هل يمكن عمل حلقات تكرارية داخل اليوزرفورم

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

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

ثم يقوم بتكرار هذا الاجراء لكل ال check 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

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

[ياسر خليل أبو البراء]

أخي الكريم قم بضغط الملف ثم رفعه أو على أسوأ الفروض يمكنك رفع الملف على موقع رفع خارجي وإدراج الرابط في مشاركة ..

والرجاء توضيح المطلوب بالضبط حتى يتسنى للأعضاء تقديم المساعدة المطلوبة

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

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

 

[ياسر خليل أبو البراء]

هذا رابط لموقع رفع خارجي يتم فيه رفع الملفات بشكل مؤقت

من هنا

وإليك صورة توضيحية للخطوات في صورة واحدة ..

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

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

 

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

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

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

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

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

تم تعديل مارس 21, 2016 بواسطه أشرف محمد السيد