m0hmad

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

عنوان مخالف.. تم تعديل عنوان المشاركة ليدل اكثر على طلبك

من فضلك انتبه لهذا الأمر جيدا فهذه ليست اول مرة منك. فان لم يكن عنوان المشاركة يدل على طلبك ستحذف المشاركة بناءاً على تعليمات وقوانين المنتدى

seed.xlsm

الله يعطيكم العافية جميعا وشكرا

اسال الله العلي العظيم أن يعطيكم العافية على هذا المنتدى الجميل وأن يوفكم في الدارين واشتغل معي الان 

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

أرجوا المساعدة عمود نوع القرض عند اختيار اي نوع من أنواع القروض في الفورم ابغاه ينتقل الى الشيت المحدد حسب نوع القرض

اسم المستخدم        ض                كلملة المرور        1

وجزاكم الله خيرا

عنوان مخالف جداً .... تم تعديل عنوان المشاركة ليدل أكثر على طلبك

شششششش.xlsm

عند 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