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

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

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

مرفق ملف يضم برنامج مبيعات لا يزال في بداية انشاءه المطلوب يخص الجدول Sales باللون الأحمر حيث قمت بعمل كود ترحيل مأخوذ من ابداعات الأستاذ islam ragab والمشكلة التي تواجهني تتمثل في التالي في بعض الأحيان تتم عملية بيع اما بيع بسعر التجزئة او بيع بسعر الجملة وعند القيام بتسجيل عمليات البيع تباعا في الفورم يحدث أنني مثلا استخدم تكست بوكس 1 دون استخدام تكست بوكس 2 و 3 لتسجيل عملية البيع بسعر التجزئة وعند تسجيل عملية بيع بسعر الجملة استخدم تكست بوكس 2 او 3 دون استخدام تكست بوكس 1 بمعني انه في كل مرة يتم استخدام تكست بوكس واحد فقط دون الآخرين وهو الأمر الذي ينتج عنه وجود خلايا فارغة في الجدول المرحل اليه وهذا ما لا أريده وانما اريد ان يتم الترحيل تباعا اسفل أخر خلية موجود بها بيانات أيضا يحدث عند الترحيل في حالة وجود بيانات في الصف b فقط دون وجود أي بيانات في الصف a وعند ترحيل عملية بيع بسعر التجزئة من خلال تكست بوكس 1 انه يتم إزالة آخر بيان ضمن الصف b وترحيل البيان الجديد الي الصف a وأخيرا اريد ان يتم الترحيل الي الجدول sales ضمن المدي a5:c33) ) حيث انني اضطرت الي كتابة رقم 0 في الخلايا a4 و b4 وc4 حتي يتم الترحيل الي المدي المطلوب وأريد كتابة هذا المدي a5:c33) ) ضمن الكود 11.rar

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

الشكر موصول للأستاذ الفاضل ياسر خليل علي التوجيه والنصح واليكم الملف المطلوب sales.rar

السلام عليكم ورحمة الله في الملف الموجود بالرابط أدناه برنامج للمبيعات وما اريده هو 1- اضافة عناصر الي الكمبوبوكس يبلغ عددها 31 عنصر تمثل اسماء أوراق العمل بحيث يتم توزيعها علي ثلاثة أعمدة في الكمبوبوكس . العمود الأول يتضمن اسماء اوراق العمل من 1 الي 10 والعمود الثاني من 11 الي 20 والأخير من 21 الي 31. 2- ترحيل البيانات المسجلة في التكست بوكس 1و2و3 الي أوراق العمل وذلك حسب ورقة العمل التي يتم تحديدها في الكمبوبوكس بحيث يتم ترحيل البيانات التي يتم تسجيلها في تكست بوكس1 الي ورقة العمل في العمود A ضمن الجدول Sales ويتم ترحيل البيانات التي يتم تسجيلها في تكست بوكس2 الي ورقة العمل في العمود B ضمن الجدول Sales ترحيل البيانات التي يتم تسجيلها في تكست بوكس3 الي ورقة العمل في العمود C ضمن الجدول Sales https://www.mediafire.com/#391vuwkmm0hlz ملحوظة الملف مرفوع بنسخة اوفيس 2013