gamalin قام بنشر مارس 22, 2011 مشاركة قام بنشر مارس 22, 2011 (معدل) الاخوة الافاضل لدي مشكلة في الكود التالي لا اعرف سببها Sub fifo_all() Sheets("sale").Activate Dim salrows As Integer salrows = Range("a1048576").End(xlUp).Row For r = 2 To salrows 'For r = 2 To 37078 Application.Run "!FIFO1" Next r End Sub الكود يتوقف ولا يعمل عند تعريف المتغير salerows السطر بالاحمر ويقبل وكمل العمل اذا اوقفته وكتبت بدلا من المتغير الرقم في دورة for علما بانه بالوقوف على كلمة salerows بالسطر الاصفر عند توقف الكود يكتب salerows = صفر على الرغم من عند الوقوف بالماوس على الطرف الاخر من المعادلة يعطي القيمة 37078 مشكلة اخرى بالكود التالي r = Sheets("sale").Cells(1, 10).Value + 1 الكود يعمل بكفاءة حتى يصل الى سطر معين في الشيت والعداد يعمل لينتقل الى السطر الذي يليه ثم يتوقف عند السطر 32767 في كل مرة ولا اعلم لماذا ويعطي نفس الخطأ السابق ان قيمة المتغير r = صفر علما بانه يعمل في كل الاسطر السابقة تم تعديل مارس 22, 2011 بواسطه gamalin رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر مارس 28, 2011 مشاركة قام بنشر مارس 28, 2011 الكود Sub fifo_all() Sheets("sale").Activate Dim salrows As Integer salrows = Range("a1048576").End(xlUp).Row For r = 2 To salrows 'For r = 2 To 37078 Application.Run "!FIFO1" Next r End Sub شغال تمام لا يتوقف إلا عند نداء FIFO1 بالسطر الأخير رابط هذا التعليق شارك 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.