خطأ مكرو

[خالد الشاعر]

السادة الخبراء

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

invalid next control variable reference

برجاء المساعدة

جزاكم الله كل خيراُ

Book1.rar

تم تعديل نوفمبر 16, 2016 بواسطه دغيدى

[الـعيدروس]

السلام عليكم

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

For myMonth = 1 To 12
For rw = 13 To 262
For col = 8 To 49

If Sheets(myMonth).Cells(rw, "B").Value = Cells(rw, "c") Then MySum = MySum + Sheets(myMonth).Cells(rw, col_1).Value

Next myMonth
Next rw
Next col

هكذا بعد التصحيح

الى ذالك اخطاء في الاقواس في بعض اسطر الكود تم تعديلها اكتشفها بنفسك

Sub CalculateSums2()
Dim MySum, myMonth, rw, col
MySum = 0


For myMonth = 1 To 12
For rw = 13 To 262
For col = 8 To 49

If Sheets(myMonth).Cells(rw, "B").Value = Cells(rw, "c") Then MySum = MySum + Sheets(myMonth).Cells(rw, col).Value

Next col
Next rw
Next myMonth

ActiveSheet.Cells(rw, col) = MySum

ActiveSheet.Range("H13").Select

End Sub

 

تحياتي

[خالد الشاعر]

استاذ العيدروس

اشكرك

جزاك الله كل خيراً