مساعدة في اصلاح الكود

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

السلام عليكم 

 

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

 

For i = 6 To 1000

If Sheets("2").Range("e7") = Sheets("1").Range("b(i)") Then

("Sheets("1").Range("b(i)") = Sheets("2").Range("e34")

Next i

 

End If

[إبراهيم ابوليله]

اخى

ممكن ارفاق ملف للعمل عليه

[حسام مصطفي]

جرب اخي الكريم

التعديل التالي عله ينفع معك

For i = 6 To 1000
If Sheets("2").Range("e7") = Sheets("1").Range("b(i)") Then
Sheets("1").Range("b(i)") = Sheets("2").Range("e34")
Next i
 
End If

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

السلام عليكم

 

هذا الملف المرفق للتوضيح

 

 

Excel2.rar

[حمادة باشا]

الأخ الكريم/ محمد ابراهيم 78

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

وبعد إستئذان الأخوة الأفاضل

تم تعديل الكود ليناسب الغرض

تقبل تحياتي

 

Excel2.rar

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

الاخ الكريم حمادة باشا

 

مشكور على الجهد المبذول وارجوا كتابة الكود للتوضيح

 

مع الشكر

[حمادة باشا]

تفضل أخي الكريم

Sub macro1()
For i = 4 To 1000
    If Sheets("2").Range("E7") = Sheets("1").Range("B" & i) Then
        Sheets("1").Range("B" & i) = Sheets("2").Range("E35")
        MsgBox "تم النقل بنجاح", vbInformation
        Exit Sub
    End If
Next i
MsgBox "القيمة غير موجودة", vbInformation
End Sub