مشكلة في الكود المرفق

[gamalin]

الاخوة الافاضل

لدي مشكلة في الكود التالي لا اعرف سببها

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

[عبد الفتاح كيرة]

الكود

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

بالسطر الأخير