محمد ابراهيم 78 قام بنشر فبراير 28, 2014 مشاركة قام بنشر فبراير 28, 2014 السلام عليكم عند كود وهو عبارة عن معادلات وعند تنفيذة يظهر خطاء 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 رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر فبراير 28, 2014 مشاركة قام بنشر فبراير 28, 2014 اخى ممكن ارفاق ملف للعمل عليه رابط هذا التعليق شارك More sharing options...
حسام مصطفي قام بنشر فبراير 28, 2014 مشاركة قام بنشر فبراير 28, 2014 جرب اخي الكريم التعديل التالي عله ينفع معك 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 رابط هذا التعليق شارك More sharing options...
محمد ابراهيم 78 قام بنشر فبراير 28, 2014 الكاتب مشاركة قام بنشر فبراير 28, 2014 السلام عليكم هذا الملف المرفق للتوضيح Excel2.rar رابط هذا التعليق شارك More sharing options...
حمادة باشا قام بنشر فبراير 28, 2014 مشاركة قام بنشر فبراير 28, 2014 الأخ الكريم/ محمد ابراهيم 78 السلام عليكم ورحمة الله وبركاته وبعد إستئذان الأخوة الأفاضل تم تعديل الكود ليناسب الغرض تقبل تحياتي Excel2.rar رابط هذا التعليق شارك More sharing options...
محمد ابراهيم 78 قام بنشر مارس 1, 2014 الكاتب مشاركة قام بنشر مارس 1, 2014 الاخ الكريم حمادة باشا مشكور على الجهد المبذول وارجوا كتابة الكود للتوضيح مع الشكر رابط هذا التعليق شارك More sharing options...
حمادة باشا قام بنشر مارس 1, 2014 مشاركة قام بنشر مارس 1, 2014 تفضل أخي الكريم 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.