اريد المساعدة في مشكلة كود برمجى

[ghpryal2010]

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

التطوير.rar

[سليم حاصبيا]

 Application.Visible = False

لماذا اخفاء الاكسل عند فتح الملف

هذه عادة سيئة

انت بهذا الكود الذي وضغته في Workbook Open استعملت

Application.visible=False و هذا يطبق على كل الـــ Application
اي على برنامج الــ   Excel بشكل عام  لأنه في هذه الحالة (Application=Excel)

اي شخص يدخل الى ملفك و يريد فتج ملف اخر في  Excel  ثانية لا يظهر له لأنه مخفي

فما ذنب الذي يفتح ملفك ويفقد الاكسل , خاصة اذا كان لا يعرف كيفية اعادته للظهور

[سليم حاصبيا]

لا حاجة في عملك الى يوزر من عدة  Multipage

1 اختر الصفحة المطلوبة من خلال الـــ Option Button

2- أملا البيانات المطلوبة

3- اضغط على الزر To Sheet (حسب هذه الصورة)

الملف مرفق

 

ghpryal2010_User.xlsm

[ghpryal2010]

شكرا جزيلا لردكم السريع والمحترم ولكنى اريد حل لهذا الكود لان بقيت الاكواد تعمل بكفاءة

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

Private Sub CommandButton6_Click()
If UserForm1.TextBox10.Value = "" Or UserForm1.TextBox11.Value = "" Or UserForm1.TextBox12.Value = "" Or UserForm1.TextBox13.Value = "" Or UserForm1.TextBox14.Value = "" Or UserForm1.TextBox15.Value = "" Then
MsgBox "من فضلك ادخل البيانات كاملة"
Else
End If
Worksheets("sheet2").Cells(8, 3).Value = TextBox10.Value
Worksheets("sheet2").Cells(8, 4).Value = TextBox11.Value
Worksheets("sheet2").Cells(8, 5).Value = TextBox12.Value
Worksheets("sheet2").Cells(8, 6).Value = TextBox13.Value
Worksheets("sheet2").Cells(8, 7).Value = TextBox14.Value
Worksheets("sheet2").Cells(8, 8).Value = TextBox15.Value
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
TextBox10.SetFocus
End Sub

 

[سليم حاصبيا]

استبدل ما هو موجود في المربع الأحمر

بما هو موجود في المربع الأزرق (حسب الصورة)

 

[ghpryal2010]

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

Private Sub CommandButton6_Click() If UserForm1.TextBox10.Value = "" Or UserForm1.TextBox11.Value = "" Or UserForm1.TextBox12.Value = "" Or UserForm1.TextBox13.Value = "" Or UserForm1.TextBox14.Value = "" Or UserForm1.TextBox15.Value = "" Then MsgBox "من فضلك ادخل البيانات كاملة" Else End If Worksheets("sheet2").Cells(8, 3).Value = TextBox10.Value Worksheets("sheet2").Cells(8, 4).Value = TextBox11.Value Worksheets("sheet2").Cells(8, 5).Value = TextBox12.Value Worksheets("sheet2").Cells(8, 6).Value = TextBox13.Value Worksheets("sheet2").Cells(8, 7).Value = TextBox14.Value Worksheets("sheet2").Cells(8, 8).Value = TextBox15.Value TextBox10.Text = "" TextBox11.Text = "" TextBox12.Text = "" TextBox13.Text = "" TextBox14.Text = "" TextBox15.Text = "" TextBox10.SetFocus End Sub

التطوير.rar

[سليم حاصبيا]

استبدل ما هو موجود في المربع الأحمر

بما هو موجود في المربع الأزرق (حسب الصورة)