احمد النكلاوي قام بنشر يونيو 24, 2015 مشاركة قام بنشر يونيو 24, 2015 (معدل) السلام عليكم ورحمة الله وبركاته لدي برنامج يتكون من 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 بواسطه احمد النكلاوي رابط هذا التعليق شارك More sharing options...
احمد النكلاوي قام بنشر يونيو 25, 2015 الكاتب مشاركة قام بنشر يونيو 25, 2015 (معدل) هذا هو الملف الموجود به المشكلة 11.rar تم تعديل يونيو 25, 2015 بواسطه احمد النكلاوي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.