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

السلام عليكم الاخوة الكرام مطلوب ملء عمود معبن بالبيانات من خلال كود بحث عن القيمة مع وجود شرطين قمت بتوضيح المطلوب في الملف المرفق علما باني قمت بعمل كود ضمن الملف الا انه لا يعمل DATA ُ ENTRY.xlsm

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

هل ممكن الاقي حل للمشكلة دي ولا اعمل مشاركة جديدة لأني لم اجد اي تجاوب معي لأ طبعاً ممنوع فتح مشاركة لنفس الطلب ,.. التمس العذر دائماً للأساتذة فانت لا تعرف أوقاتهم ولا تستعجل الرد الا بكلمة للـــــرفع ولكن ليس كل نصف ساعة اعطى لنفسك الوقت الكافى لذلك حتى وان كانت كل ساعتين

هذا هو الملف المطلوب وانا اسف علي لعدم ادراكي أهمية هذا الأمر

عندي ملف به بيانات يتم استخراجها من برنامج احد الاعمدة توجد بيانات نصية عبارة عن اسماء العملاء بين اسم كل عميل واخر توجد هناك ارقام ما هو مطلوب موضح في الملف من فضلك لا تكرر نفس المشاركات والا ستحذف جميع المشاركات 1.xls

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

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

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

بعد تجربة الكود الجديد لا زالت المشكلة قائمة كما قمت بالتعديل بعد ذلك علي هذا الكود بتغيير x كما تفضلت حضرتك في المشاركة السابقة وايضا قمت بتعديل السطر الرابع الي x = ComboBox1.Value لانه يتضمن اسماء اوراق العمل وليس TextBox1 تقبل تحياتي استاذ سليم

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته لدي برنامج يتكون من 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 للعمود الثالث