أشرف محمد السيد

ارجو المساعدة علي الاقل في الطلب الأول لانه هو صلب الموضوع و مشروع البرنامج يتوقف عليه
 

ملحوظة
من خلال البحث في المنتدي و جدت موضوع مشابه جدا لطلبي و لكني فشلت في الاستفادة منه نظرا لقلة خبرتي و حداثة عهدي مع البرمجة و الاكواد
و لكن أعتقد إن الموضوع سوف يكون أسهل علي الأستاذة و الخبراء

في 12/16/2015 at 09:16, الصـقر said:

الاخ الحبيب بكار

أولا عايز اشكرك على طلبك هذا لانه بصراحه فنى وكتير ممكن نستخدمه فى الحياه العمليه

المهم علشان مطولش عليك انا عملت كود من اهم الاكود اللى عملتها فى حياتى ودا بالنسبه لى مش هنساه لانه صعب يتنسى الكود بسيط فى تنفيذه ولكن فكرته هى الفنيه

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

جرب المرفق وان شاء الله هيعجبك

ولا تنسانى من صالح دعائك

تقبل تحياتى

2015.zip

 

بصراحة كود روعة الروعة و انا ابحث عن كود شبيه يكون الترحيل فيه من يوزر فورم
 لكن للاسف لم تمكني امكانياتي المحدودة من اقتباس هذا الكود
فاردت ان تساعدني حضرتك في انشاء هذا الكود 

http://www.fileconvoy.com/dfl.php?id=g43bfe25528830d5d9998058741de2027c98d93d0c

مرفق الملف المراد 

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

أريد مساعدة الأخوة في تعديل الاكواد في الملف المرفق
حيث يتم ترحيل الأسم مرة واحدة فقط علي أن يكون التكرار في المعلومات بشكل أفقي كما هو موضح بالملف المرفق

دفتر المواظبة.rar

http://www.fileconvoy.com/dfl.php?id=g3623542161e615d4999803865a83de24662ef0e43

السلام عليكم ورحمة الله و بركاته
المطلوب هو تعبئة البيانات بالشكل التي عليه في الملف الاصلي 
عن طريق USER FORM كما في الملف TEST
المشكلة الأولي :-
أن الكود طويـــــــــــل جدا مما يصعب علي مراجعة الاخطاء او حتي تعديل اي شيئ يطرا علي البرنامج
فاذا كان هناك طريقة لاختصار هذا الكود سيكون مفيد لي جدا 
طبقا لعقليتي كمبتدأ  لدي تصورين يبدوان منطقيين و لكني لا اعرف السبيل لتنفيذهم 
الاول :-  لو ان هناك شيئ شبيه بالحلقات التكرارية يمكن فعله مع ال CHECK BOX و ذلك كما ورد في الموضوع الاصلي

الثاني :- تغيير اسلوب الادخال من CHECK BOX الي LIST BOX
 

أما المشكلة الثانية 
هي أن الترحيل الي الشيتات التي تحمل ارقام (الايام) يكون تحت الجدول و لا اعرف سببا لهذا 
 

أشكركم علي تعاونكم معي ومع أمثالي من الذين يحاولون تطوير أنفسهم
و 

ادعو الله أن يبارك في علمكم 
ملحوظة 
هذا لن يكون الشكل الاخير فلا يزال امامي بعض الخطوات تتمثل في الدوال و يوزر فورم لمعاينة الطباعة و الطباعة 
و ان شاء الله سوف ابدا فيها بعد تجاوز العقبتين سالفتي الذكر
 

http://www.fileconvoy.com/dfl.php?id=g3623542161e615d4999803865a83de24662ef0e43

السلام عليكم ورحمة الله و بركاته
المطلوب هو تعبئة البيانات بالشكل التي عليه في الملف الاصلي 
عن طريق USER FORM كما في الملف TEST
المشكلة الأولي :-
أن الكود طويـــــــــــل جدا مما يصعب علي مراجعة الاخطاء او حتي تعديل اي شيئ يطرا علي البرنامج
فاذا كان هناك طريقة لاختصار هذا الكود سيكون مفيد لي جدا 
طبقا لعقليتي كمبتدأ  لدي تصورين يبدوان منطقيين و لكني لا اعرف السبيل لتنفيذهم 
الاول :-  لو ان هناك شيئ شبيه بالحلقات التكرارية يمكن فعله مع ال CHECK BOX و ذلك كما ورد في الموضوع الاصلي

الثاني :- تغيير اسلوب الادخال من CHECK BOX الي LIST BOX
 

أما المشكلة الثانية 
هي أن الترحيل الي الشيتات التي تحمل ارقام (الايام) يكون تحت الجدول و لا اعرف سببا لهذا 
 

أشكركم علي تعاونكم معي ومع أمثالي من الذين يحاولون تطوير أنفسهم
و 

ادعو الله أن يبارك في علمكم 
ملحوظة 
هذا لن يكون الشكل الاخير فلا يزال امامي بعض الخطوات تتمثل في الدوال و يوزر فورم لمعاينة الطباعة و الطباعة 
و ان شاء الله سوف ابدا فيها بعد تجاوز العقبتين سالفتي الذكر
 

لو ممكن ابعت اللملف علي ايميل ؟؟

أخواني الاعزء حاولت أكثر من مرة رفع الملف و لكني لم أستطيع

و لكن علي العموم  هذا هو شكل اليوزر فورم
و هذا هو الكود 

Private Sub CommandButton1_Click()
x = TextBox1.Value
Z = x + 2
Sheets(1).Activate
If CheckBox1.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox1.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox1.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox2.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox2.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox2.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox3.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox3.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox3.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox4.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox4.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox4.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox5.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox5.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox5.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox6.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox6.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox6.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox7.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox7.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox7.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox9.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox9.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox9.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox10.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox10.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox10.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox11.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox11.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox11.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox12.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox12.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox12.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox13.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox13.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox13.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox14.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox14.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox14.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox15.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox15.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox15.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox16.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox16.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox16.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox17.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox17.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox17.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox18.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox18.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox18.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox19.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox19.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox19.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox20.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox20.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox20.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox21.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox21.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox21.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox22.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox22.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox22.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox23.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox23.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox23.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox24.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox24.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox24.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox25.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox25.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox25.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox26.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox26.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox26.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox27.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox27.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox27.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox28.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox28.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox28.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox29.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox29.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox29.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox30.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox30.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox30.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox31.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox31.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox31.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox32.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox32.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox32.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox33.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox33.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox33.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox34.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox34.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox34.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox35.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox35.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox35.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox36.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox36.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox36.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox37.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox37.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox37.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox38.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox38.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox38.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox39.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox39.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox39.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

If CheckBox41.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox41.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox41.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End If

End Sub

المشكلة فقط  إنه طويل جدا

هل يمكن عمل حلقات تكرارية لعدد 40 check box داخل userform
بحيث يكون عمل الحلقة التكرارية كالتالي
اذا كانت قيمة ال check box = true  إذن استخدم ال checkbox .caption و قم بترحيله الي خلية معينة في ورقة عمل معينة

ثم يقوم بتكرار هذا الاجراء لكل ال check box  

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