تصحيح كود

[محمد ابراهيم 78]

السلام عليكم

الاساتذة الاعزاء

ارجوا تصحيح الكود يظهر لي خطاء في تحيد القيم  (المظلل باللون الاحمر) كيفية تحيد العمل لنسخة :

Sub Mohammed()

For i = 12 To 96
Sheets("1").Activate
If Range("d" & i) <> "" Then
Range ("D" & i): Range("g" & i).Copy
Sheets("2").Activate
Range("e" & [e100000].End(xlUp).Row + 1).Select
Selection.PasteSpecial xlPasteValues
x = Range("b" & Rows.Count).End(xlUp).Row
Sheets("2).Range("b" & x + 1) = Sheets("1").[g9].Value
y = Range("c" & Rows.Count).End(xlUp).Row
Sheets("2).Range("c" & x + 1) = Sheets("1").[e8].Value
Z = Range("d" & Rows.Count).End(xlUp).Row
Sheets("2").Range("d" & x + 1) = Sheets("1").[e10].Value
End If

Next i

End Sub
 

[سليم حاصبيا]

منذ ساعه, محمد ابراهيم 78 said:

السلام عليكم

الاساتذة الاعزاء

ارجوا تصحيح الكود يظهر لي خطاء في تحيد القيم  (المظلل باللون الاحمر) كيفية تحيد العمل لنسخة :

Sub Mohammed()

For i = 12 To 96
Sheets("1").Activate
If Range("d" & i) <> "" Then
Range ("D" & i): Range("g" & i).Copy
Sheets("2").Activate
Range("e" & [e100000].End(xlUp).Row + 1).Select
Selection.PasteSpecial xlPasteValues
x = Range("b" & Rows.Count).End(xlUp).Row
Sheets("2).Range("b" & x + 1) = Sheets("1").[g9].Value
y = Range("c" & Rows.Count).End(xlUp).Row
Sheets("2).Range("c" & x + 1) = Sheets("1").[e8].Value
Z = Range("d" & Rows.Count).End(xlUp).Row
Sheets("2").Range("d" & x + 1) = Sheets("1").[e10].Value
End If

Next i

End Sub
 

ارفع الملف نفسه لمعرفة الخطأ

[محمد ابراهيم 78]

منذ ساعه, سليم حاصبيا said:

ارفع الملف نفسه لمعرفة الخطأ

السلام عليكم 

هذا المرفق 

وشكراً على الاجابة

 

تصحيح كود.rar

[بن علية حاجي]

السلام عليكم ورحمة الله

تم التصحيح في الملف المرفق....

بن علية

تصحيح كود.rar

[سليم حاصبيا]

بعد اذن اخي بن علية

هذا الكود

Sub translate_data()
Dim My_Rg As Range
Dim r%
Set My_Rg = Sheets(1).Range("c11").CurrentRegion
r = My_Rg.Rows.Count
Set My_Rg = My_Rg.Offset(4, 0).Resize(r - 4)

Sheets(2).Range("a2").Resize(r - 4, 1).Value = My_Rg.Columns(1).Value
Sheets(2).Range("e2").Resize(r - 4, 4).Value = My_Rg.Columns(2).Resize(r - 4, 4).Value
End Sub