الفورم لا يقوم بالترحيل الي الورقة المطلوبة

[احمد النكلاوي]

السلام عليكم ورحمة الله وبركاته

لدي برنامج يتكون من 31 ورقة عمل تخص المبيعات اليومية علي مدار الشهر

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

مثلا الصفحة الأولي يوجد بها كومبوبوكس خاص باظهار ايام الأسبوع لاختيار احد الأيام

ثم الترحيل الي الصفحة المطلوبة

وتكمن المشكلة انه عند اختيار يوم معين من الكومبوبوكس لا يتم الترحيل الي الورقة المختارة

بل يحدث أحيانا أن يتم الترحيل الي ورقة مختلفة .

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

والموجود ضمن الفورم Shop_Sales

 

()Private Sub CommandButton1_Click

 On Error Resume Next

 

x = ComboBox1.Value

Sheets(x).Activate

 

If ComboBox1.Value <> "" Then

   Range("B" & Range("B" & Rows.Count).End(xlUp).Row + 1).Value = TextBox1.Value

   Range("C" & Range("C" & Rows.Count).End(xlUp).Row + 1).Value = TextBox2.Value

   Range("D" & Range("D" & Rows.Count).End(xlUp).Row + 1).Value = TextBox3.Value

Else

   "لم يتم تحديد ورقة العمل" MsgBox

End If

 

""=TextBox1.Value 

""=TextBox2.Value 

""=TextBox3.Value 

TextBox1.SetFocus

 

End Sub

 

وفي النهاية أريد ان يتمالترحيل  ضمن المدي B6:B34 للعمود الأول

وC6:C34 للعمود الثانيو D6:D34 للعمود الثالث

 

تم تعديل يونيو 24, 2015 بواسطه احمد النكلاوي

[احمد النكلاوي]

هذا هو الملف الموجود به المشكلة

11.rar

تم تعديل يونيو 25, 2015 بواسطه احمد النكلاوي