لزهر مدلل قام بنشر أكتوبر 25, 2016 قام بنشر أكتوبر 25, 2016 السلام عليكم أريد تعديل في كود الترحيل بحيث يقوم بلصق البيانات إبتداءا من السطر الثامن بدل من السطر الثاني مشكورون gestion conversion GPLC.rar
ابراهيم الحداد قام بنشر أكتوبر 25, 2016 قام بنشر أكتوبر 25, 2016 استبدل هذا الجزء Sheets("Programmation").Select Range("A2:I1105").Select Selection.ClearContents Sheets("Enregistrement").Select '''''''''''''''''''''''''''''''''''''' lr = Cells(Rows.Count, 1).End(xlUp).Row For r = 8 To lr If Cells(r, 8).Value = Empty Then GoTo 2 If Cells(r, 8).Value = "ok" Then Range(Cells(r, 1), Cells(r, 9)).Copy y = ThisWorkbook.Worksheets("Programmation").Cells(Rows.Count, 1).End(xlUp).Row + 1 ThisWorkbook.Worksheets("Programmation").Range("a" & y).PasteSpecial xlPasteValues End If بهذا الجزء m = 7 Sheets("Programmation").Select Range("A2:I1105").Select Selection.ClearContents Sheets("Enregistrement").Select '''''''''''''''''''''''''''''''''''''' lr = Cells(Rows.Count, 1).End(xlUp).Row For r = 8 To lr If Cells(r, 8).Value = Empty Then GoTo 2 If Cells(r, 8).Value = "ok" Then m = m + 1 Range(Cells(r, 1), Cells(r, 9)).Copy ThisWorkbook.Worksheets("Programmation").Range("a" & m).PasteSpecial xlPasteValues End If
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.