طلب مساعدة بالكود التالي (عمل حلقة تكرارية بشكل صحيح )

[lord.anas]

طلب مساعدة بالكود التالي عمل حلقة تكرارية بشكل صحيح على قائمة الاصناف الرئيسية و قائمة الاصناف الفرعية 

مرفق المثال : new.xlsb

[أ / محمد صالح]

المشكلة في رقم الصف الذي يجلب بياناته ويضعها على الزر

لاحظ هذا السطر

Controls("C" & I).Caption = SH.Range("b" & I )

يجلب الصفوف من 1 إلى 20 من العمود B مع ملاحظة أن الأصناف تبدأ من الصف 3 لذلك ينبغي إضافة 2 ليصبح الكود

Controls("C" & I).Caption = SH.Range("b" & I + 2)

ونفس الشيء في هذا السطر

Controls("Command" & I).Caption = SH.Range("g" & I )

وينبغي إضافة 1 لأن صف العنوان غير مطلوب ليصبح الكود

Controls("Command" & I).Caption = SH.Range("g" & I + 1)

بالتوفيق 

[lord.anas]

شكراً لك اخي الحبيب تم حل المشكلة