لدي مشكلة في صيغة الاكسل ارجوا المساعدة

[m0hmad]

عند 12 عمود وعندي و 6 شيتات 

السؤال عندي قيمة احد الاعمدة الي هو combox1   متعدد الاختيار اذا اخترت من هذه القائمة ينقول البيانات المدخلة  عند الترحيل  مباشرة على الشيت نفسة 

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

وشكرا لكم على تعاونكم

Private Sub CommandButton1_Click()
If Me.ComboBox1.Value = "السلة الغذائية" Then
sheet2.Activate
Dim w As Integer
w = sh[a10000].End(xlUp).Row + 1
Cells(w, 1).Value = Me.TextBox1.Value
Cells(w, 2).Value = Me.TextBox2.Value
Cells(w, 3).Value = Me.ComboBox1.Value
Cells(w, 4).Value = Me.ComboBox2.Value
Cells(w, 5).Value = Me.TextBox3.Value
Cells(w, 6).Value = Me.ComboBox3.Value
Cells(w, 7).Value = Me.TextBox4.Value
Cells(w, 8).Value = Me.TextBox5.Value
Cells(w, 9).Value = Me.TextBox6.Value
Cells(w, 10).Value = Me.TextBox7.Value
Cells(w, 11).Value = Me.ComboBox4.Value
Cells(w, 12).Value = Me.ComboBox5.Value
MsgBox "تم الترحيل بنجاح"
TextBox1.Value = ""
TextBox2.Value = ""
ComboBox1.Value = ""
ComboBox2.Value = ""
TextBox3.Value = ""
ComboBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
ComboBox4.Value = ""
ComboBox5.Value = ""
TextBox1.SetFocus
End If

If Me.ComboBox1.Value = "قرض الزواج" Then
Activate.sheet3

w = [a10000].End(xlUp).Row + 1
Cells(w, 1).Value = Me.TextBox1.Value
Cells(w, 2).Value = Me.TextBox2.Value
Cells(w, 3).Value = Me.ComboBox1.Value
Cells(w, 4).Value = Me.ComboBox2.Value
Cells(w, 5).Value = Me.TextBox3.Value
Cells(w, 6).Value = Me.ComboBox3.Value
Cells(w, 7).Value = Me.TextBox4.Value
Cells(w, 8).Value = Me.TextBox5.Value
Cells(w, 9).Value = Me.TextBox6.Value
Cells(w, 10).Value = Me.TextBox7.Value
Cells(w, 11).Value = Me.ComboBox4.Value
Cells(w, 12).Value = Me.ComboBox5.Value
MsgBox "تم الترحيل بنجاح"
TextBox1.Value = ""
TextBox2.Value = ""
ComboBox1.Value = ""
ComboBox2.Value = ""
TextBox3.Value = ""
ComboBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
ComboBox4.Value = ""
ComboBox5.Value = ""
TextBox1.SetFocus
End If

If Me.ComboBox1.Value = "قرض الحاجة" Then
sheet4.Activate

w = [a10000].End(xlUp).Row + 1
Cells(w, 1).Value = Me.TextBox1.Value
Cells(w, 2).Value = Me.TextBox2.Value
Cells(w, 3).Value = Me.ComboBox1.Value
Cells(w, 4).Value = Me.ComboBox2.Value
Cells(w, 5).Value = Me.TextBox3.Value
Cells(w, 6).Value = Me.ComboBox3.Value
Cells(w, 7).Value = Me.TextBox4.Value
Cells(w, 8).Value = Me.TextBox5.Value
Cells(w, 9).Value = Me.TextBox6.Value
Cells(w, 10).Value = Me.TextBox7.Value
Cells(w, 11).Value = Me.ComboBox4.Value
Cells(w, 12).Value = Me.ComboBox5.Value
MsgBox "تم الترحيل بنجاح"
TextBox1.Value = ""
TextBox2.Value = ""
ComboBox1.Value = ""
ComboBox2.Value = ""
TextBox3.Value = ""
ComboBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
ComboBox4.Value = ""
ComboBox5.Value = ""
TextBox1.SetFocus
End If

If Me.ComboBox1.Value = "تفريج كربة" Then
sheet5.Activate

w = [a10000].End(xlUp).Row + 1
Cells(w, 1).Value = Me.TextBox1.Value
Cells(w, 2).Value = Me.TextBox2.Value
Cells(w, 3).Value = Me.ComboBox1.Value
Cells(w, 4).Value = Me.ComboBox2.Value
Cells(w, 5).Value = Me.TextBox3.Value
Cells(w, 6).Value = Me.ComboBox3.Value
Cells(w, 7).Value = Me.TextBox4.Value
Cells(w, 8).Value = Me.TextBox5.Value
Cells(w, 9).Value = Me.TextBox6.Value
Cells(w, 10).Value = Me.TextBox7.Value
Cells(w, 11).Value = Me.ComboBox4.Value
Cells(w, 12).Value = Me.ComboBox5.Value
MsgBox "تم الترحيل بنجاح"
TextBox1.Value = ""
TextBox2.Value = ""
ComboBox1.Value = ""
ComboBox2.Value = ""
TextBox3.Value = ""
ComboBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
ComboBox4.Value = ""
ComboBox5.Value = ""
TextBox1.SetFocus
End If

If Me.ComboBox1.Value = "الهبة غير المستردة" Then
sheet6.Activate
w = [a10000].End(xlUp).Row + 1
Cells(w, 1).Value = Me.TextBox1.Value
Cells(w, 2).Value = Me.TextBox2.Value
Cells(w, 3).Value = Me.ComboBox1.Value
Cells(w, 4).Value = Me.ComboBox2.Value
Cells(w, 5).Value = Me.TextBox3.Value
Cells(w, 6).Value = Me.ComboBox3.Value
Cells(w, 7).Value = Me.TextBox4.Value
Cells(w, 8).Value = Me.TextBox5.Value
Cells(w, 9).Value = Me.TextBox6.Value
Cells(w, 10).Value = Me.TextBox7.Value
Cells(w, 11).Value = Me.ComboBox4.Value
Cells(w, 12).Value = Me.ComboBox5.Value
MsgBox "تم الترحيل بنجاح"
TextBox1.Value = ""
TextBox2.Value = ""
ComboBox1.Value = ""
ComboBox2.Value = ""
TextBox3.Value = ""
ComboBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
ComboBox4.Value = ""
ComboBox5.Value = ""
TextBox1.SetFocus
End If
If Me.ComboBox1.Value = "المتعثرين في السداد" Then
sheet7.Activate

w = [a10000].End(xlUp).Row + 1
Cells(w, 1).Value = Me.TextBox1.Value
Cells(w, 2).Value = Me.TextBox2.Value
Cells(w, 3).Value = Me.ComboBox1.Value
Cells(w, 4).Value = Me.ComboBox2.Value
Cells(w, 5).Value = Me.TextBox3.Value
Cells(w, 6).Value = Me.ComboBox3.Value
Cells(w, 7).Value = Me.TextBox4.Value
Cells(w, 8).Value = Me.TextBox5.Value
Cells(w, 9).Value = Me.TextBox6.Value
Cells(w, 10).Value = Me.TextBox7.Value
Cells(w, 11).Value = Me.ComboBox4.Value
Cells(w, 12).Value = Me.ComboBox5.Value
MsgBox "تم الترحيل بنجاح"
TextBox1.Value = ""
TextBox2.Value = ""
ComboBox1.Value = ""
ComboBox2.Value = ""
TextBox3.Value = ""
ComboBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
ComboBox4.Value = ""
ComboBox5.Value = ""
TextBox1.SetFocus
End If
End Sub

[عبدالفتاح في بي اكسيل]

الصورة  غير واضحة  ارفق ملف  وضع  النتائج   المتوقعة  بشرح  وافي