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

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

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

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

ضمن كمبوبوكس

مثلا عندما اقوم باختيار الورقة daily5 أفاجأ بأن الترحيل تم الي الورقة 3 daily ودائما يكون الترحيل الي ما قبل

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

جميع الفورم الموجودة توجد بها هذه المشكلة واليكم الكود المستخدم لأول صفحة في المالتي بيدج واريد التعديل عليه لحل المشكلة السابقة والموجود ضمن الفورم 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

11.rar

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

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

حاول ان تغير السطر الرابع الى ما يلي:

Sheets(x).Activate

 

 

الى     Sheets(CSTR(x)).Activate

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

الشكر موصول استاذ سليم قد قمت بتعديل السطر الرابع ولكن تبقي المشكلة قائمة

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

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

 حاول مرة اخرى كتاب السطر الرابع باكشل التالي:

Sheets("sheet x").Activate

مع اضافة او عدم اضافة مسافة بين خرف t  وحرف  x  حسب ما هو اسم الصفحة بالضبط

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

قمت بالتعديل المطلوب سواء باضافة المسافة بين الحرفين او بدون المسافة

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

تقبل تحياتي استاذ سليم وجزاك الله عني كل خير

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

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

لا اسكت الله لكم حسا رواد المنتدي انا في  انتظار حل لهذه المشكلة

والتي لا اظنها كبيرة او بعيدة المنال عن ايجادحل لها

عندي امل كبير في الله

تم تعديل يونيو 29, 2015 بواسطه ياسر خليل أبو البراء

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

حاول ان تكتب الكود بهذا الشكل

 Private Sub CommandButton1_Click1()
 On Error Resume Next
Dim x

x = TextBox1.Value
 If Not x Is Nothing And Sheets("sheet(x)").Name Then
Sheets(x).Activate

 ActiveSheet.Range("B" & Range("B" & Rows.Count).End(xlUp).Row + 1).Value = TextBox1.Value
 ActiveSheet.Range("C" & Range("C" & Rows.Count).End(xlUp).Row + 1).Value = TextBox2.Value
 ActiveSheet.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

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

بعد تجربة الكود الجديد لا زالت المشكلة قائمة كما قمت بالتعديل بعد ذلك علي هذا الكود 

بتغيير x كما تفضلت حضرتك في المشاركة السابقة 

وايضا قمت بتعديل السطر الرابع الي  x = ComboBox1.Value

لانه يتضمن اسماء اوراق العمل وليس TextBox1

تقبل تحياتي استاذ سليم 

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

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

ارفع قسماً من الملف ولو 5% منه كي يتم معالجة الامر

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

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

واليك الملف وهو يشمل بعض اورق العمل وليس كلها 

 

11.rar

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

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

وجزاكم الله عني خير الجزاء