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

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

بصراحة كود روعة الروعة و انا ابحث عن كود شبيه يكون الترحيل فيه من يوزر فورم لكن للاسف لم تمكني امكانياتي المحدودة من اقتباس هذا الكود فاردت ان تساعدني حضرتك في انشاء هذا الكود 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

اعرض الملف أريد كود مختصر لترحيل البينات وفقاً لشرطين السلام عليكم ورحمة الله ة بركاته أنا مبتدئ و احتاج للمساعدة من أهل الخبرة في هذا المنتدى الرائع في الملف المرفق توصلت بفضل الله الي تصميم يوزر فورم وقمت بعمل كود لنقل البينات من الفورم الي صفحة العمل المشكلة ان الطريقة التي توصلت اليها ستكون اطول من اللازم ولم يقبلها البرنامج لان الكود كان طويلا جداً حيث إنه من المفترض تتبع كل اسم علي حدي من جمالي 39 اسم حوالي 30 مرة عدد ايام الشهر ما أحتاجه كود يقوم بعمل الاجراءات الاتية:- الاجراء الاول أن يقوم بفحص ال checkbox (عددهم 39) كل علي حدي و إذا كانت قيمة checkbox (صحيحة) يتم ترحيل caption الخاص بال checkbox الي خلية معينة في ورقة العمل علي أن يكون ذلك الترحيل مشروط برقم مكتوب في textbox1 الاجراء الثاني أن يرحل نفس البيانات الي صفحة اخري طبقا لرقم يمثل التاريخ عدد الصفحات 31 صفحة لقد تم تنفيذ الكود و لكن لتأدية الوظيفة المطلوبة فإنه يتكرر 39 مرة (عدد سمء الموظفين) و لكل أسم سوف يكون هناك 31 تكرار (عدد أيام لشهر) أشكركم و أتمني أن جد ضالتي لديكم بارك الله قي علمكم صاحب الملف أشرف محمد السيد تمت الاضافه 19 مار, 2016 الاقسام قسم الإكسيل

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