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