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

[ebdaakitchen]

Sub hamza()
Sheets(25).Activate
For Each f In Range("h2:h50")
If f <> "" Then
x = f.Value
Range(f.Offset(0, -7), f.Offset(0, 6)).Copy
lR = Sheets(x).Range("a" & Rows.Count).End(x1up).Row          هنا بيظهر نفس اللون اصفر هل في خطاء 
Sheets(x).Activate
Range("a" & lR + 1).Select
Selection.PasteSpecial x1pastevalues
End If
Next f
Sheets(25).Activate
Application.CutCopyMode = False
Range("a2:e50").ClearContents
Range("g2:k50").ClearContents
Range("m2:n50").ClearContents
End Sub
 

[ياسر خليل أبو البراء]

كلمة xlup خطأ .. قم باستبدال الرقم 1 إلى حرف l

[ebdaakitchen]

تمام الحمد لله شكرا جزيلا اصل اول مره اشتغل علي الاكسيل vba

[ياسر خليل أبو البراء]

كلنا نخطيء ونتعلم من بعضنا البعض ... تقبل وافر تقديري واحترامي