السلام عليكم
اخي قصي
بالنسبة الي طلبك
فيجب التعدبل التالي و ساتكلم هنا علي عمل اخي خبور لان كود اصغر و اشمل طبعا ان سمح لي
في المديول الموجود بالملف و خاصة السطر التالي
MyRng_Address = Range("A1:f" & Last).Address
قم بتغيير ال f الي ال z
, و بالنسبة الي الاكواد المرفقة بالفورم و خاصى السطر التالي
For R = 1 To 5
قم بتغيير ال 5 الي 24
و ايضا في السطر التالي
For R = 1 To 5
نفس الشئ
مع ملاحظة انك يجب ان تدرج العدد المطلوب من التشيك بوكس
اما بالنسبة لسؤال اخي Kemas
.Range(Me.Tag)
الخاصية tag و الخاصة هنا بالفورم فهي تستعمل لتخزين اي قيمة يمكن ان نحتاجها
و قد حفظ بها اخي خبور المدي من اول الجدول الي اخر سطر به و طبعا ستعدل دون تدخلك عند اضافة اي سطر
و Me هناالمقصود بها الفورم
اتمني ان يكون كلامي واصل الي الفهم بسهوله
تحياتي