حمادة عمر

السلام عليكم الاخ الكريم / محمود ابو الدهب بارك الله فيك عذرا اخي الكريم .. مشغوليات العمل وضعف النتي لدي هذه الايام فقط اليك المرفق التالي تم تنفيذ ( زر ادخال وترحيل بيانات ) كما قمت انت بالتوضيح في المشاركة السابقة وايضا تم تنفيذ عمل البحث بالكومبوبكس ( البحث عن علاوة ) ولكن يجب الآخذ في الاعتبار القيمة في العمود AG ان تكون كلمة TRUE وكلمة FALSE بهذا الشكل وبنفس الحروف لضمان عمل التشيك بوكس اي كما في الصورة التالية وفي انتظار ردك وتوضيحاتك .. وخلينا ماشيين كده طلب طلب لضيق الوقت لدي هذه الايام فقط ولكن ان شاء الله دائما معك وبسرعة تقبل خالص تحياتي تحديث علاوات+ .rar

بالفعل المشكلة موجودة ولكن في هذا الموضوع فقط

السلام عليكم الاخ الكريم / رشوان احمد بارك الله فيك بالنسبة للمسلسل خاصتك فانت قد قمت بوضع معادلة ترقيم فيه ولذلك لا يمكن ترحيله من خلال الفورم حيث انه اذا قمت بعمل ذلك فانه سوف يسجل في الصف 500 بعد آخر معادلة موجودة في العمود A ولكن يمكنك في هذا الكود التسجيل وبمجرد التسجيل ووجود اي بيانات في العمود B سوف يتم عمل الترقيم وان اردت نجعل الترقيم من خلال الفورم نفسه تلقائيا ولكن سيجعلنا نتخلي عن معادلة الترقيم التلقائي خاصتك تقبل خالص تحياتي

جزاك الله خيرا

يرجي اخي الكريم عدم تكرار الطلب في اكثر من موضوع رابط الموضو ع

شاهد المرفق اخي الكريم ولكن شاهد الطريقة فقط حيث يحتاج الكود الجديد لبعض التعديلات السهلة البسيطة للحصول علي النتائج السليمة 100% ولكنه اسرع من الكود خاصتك .. وان شاء الله ان كان يفي بغرضك نكمل .. تقبل خالص تحياتي 20171صيفية برمجية استعلام.rar

السلام عليكم الاخ الكريم /n_tareq بارك الله فيك بعد اذن اخي الحبيب / سليم حاصبيا .. جزاه الله خيرا انت قمت فعلا بتنفيذ ما اخبرك به من تعديل اسماء الشيتات ولكنك تجاهلت اسم هذه الشيتات في باقي الكود وبذلك تصبح التعديلات في الكود كما يلي : ** بدلا من السطر التالي للمتغيرات .. Dim i As Integer, LastR As Long, ws As Worksheet سنضيف به المتغير الآخر وهو الورقة الثانية او الشيت الثاني كما هو في السطر التالي Dim i As Integer, LastR As Long, ws, ws1 As Worksheet ** السطرين التاليين Set ws = ThisWorkbook.Sheets("البيانات") Set ws = ThisWorkbook.Sheets("المدراء") سيتم تغييرهم تبعا للمتغيرات التي قمت بوضعهم في الجزئية السابقة كما يلي : Set ws = ThisWorkbook.Sheets("البيانات") Set ws1 = ThisWorkbook.Sheets("المدراء") ** ثم جزئية آخر صف .. سيتم تغيير او اضافة للصف التالي LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1 كما هو يلي LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1 LastRow1 = ws1.Cells(Rows.Count, "B").End(xlUp).Row + 1 وبالتالي ستقوم بعمل حلقة تكرارية .. لكل منهما .. لتكن مثلا S مثل T ولكن مع LastRow1 .. ثم يظل الجزء الاول في الكود والخاص بتفعيل عمل المطلوب في حالة اختيار OptionButton1 كما هو بدون تعديل ثم يتم تغيير الجزء الخاص بتفعيل عمل المطلوب من الكود في حالة اختيار OptionButton2 كالتالي If OptionButton2.Value = True Then If TextBox1.Text = Mid(ws1.Cells(S, 3).Text, 1, Len(TextBox1.Text)) Then UserForm1.ComboBox1.AddItem ws1.Cells(S, 3) UserForm1.Controls("TextBox" & i).Value = ws1.Cells(S, i).Value UserForm1.CommandButton4.Enabled = True Unload Me End If ارجو ان اكون قد وضحت لكم المطلوب وان لم يتتضح .. فبرجاء ارسال ملف مرفق كمثال ليتم العمل العمل عليه تقبل خالص تحياتي

السلام عليكم الاخ الكريم / رشوان احمد بارك الله فيك ضع اخي الكريم الكود التالي في زر ( تسجيل بيانات جديدة ) اما بخصوص زر التعديل فعلي اي اساس سيتم التعديل وباي الاعمدة او المعطيات سيتم البحث ليتم التعديل من خلاله هل هو من العمود QUO. REF. NO. اليك كود تسجيل البيانات Private Sub CommandButton2_Click() 'كود زر تسجيل بيانات Dim iRow As Long Dim ws As Worksheet Dim ii As Integer Set ws = Worksheets("QUOTATION BLOCKS & KERBS") iRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row 'ws.Cells(iRow, 1).Value = Me.TextBox1.Value ws.Cells(iRow, 2).Value = Me.TextBox2.Value ws.Cells(iRow, 3).Value = Me.TextBox3.Value ws.Cells(iRow, 4).Value = Me.TextBox4.Value ws.Cells(iRow, 5).Value = Me.TextBox5.Value ws.Cells(iRow, 6).Value = Me.TextBox6.Value ws.Cells(iRow, 7).Value = Me.TextBox7.Value ws.Cells(iRow, 8).Value = Me.TextBox8.Value ws.Cells(iRow, 9).Value = Me.TextBox9.Value ws.Cells(iRow, 10).Value = Me.TextBox10.Value ws.Cells(iRow, 11).Value = Me.TextBox11.Value ws.Cells(iRow, 12).Value = Me.TextBox12.Value ws.Cells(iRow, 13).Value = Me.TextBox13.Value ws.Cells(iRow, 14).Value = Me.TextBox14.Value ws.Cells(iRow, 15).Value = Me.TextBox15.Value ws.Cells(iRow, 16).Value = Me.TextBox16.Value ws.Cells(iRow, 17).Value = Me.TextBox17.Value ws.Cells(iRow, 18).Value = Me.TextBox18.Value For ii = 1 To 18 Me.Controls("TextBox" & ii).Value = "" Next End Sub تقبل خالص تحياتي

السلام عليكم الاخ الكريم / محمود ابو الدهب بارك الله فيك ولكن والله عندما ادخل للمنتدي .. واقوم بالعمل علي موضوعك لا افهم المطلوب تماما حتي انه لا يمكنني البدء فيما تريد لم افهم هذه الجزئية كيف تكون قيمة الكومبوبكس TRUE او FALSE اين الليست بوكس المضاف فعذرا اخي الكريم محمود .. انت تتحدث عن ملفك وطلبك بطريقة سليمة لأنك تفهم المطلوب وتفهم ما تريد منه فمعذرة .. برجاء معي واحدة واحدة لنصل الي ما تريد ان شاء الله فهيا بنا نقوم بتنفيذ طلب طلب سيكون ان شاء الله اسرع وافضل لي .. لكي افهم بالضبط منك ما تريد وعذرا مرة اخري لعدم تمكني من فهم طلبك تقبل خالص تحياتي

وجزاك الله خيرا اخي الكريم

السلام عليكم الاخ الكريم /حماده سعد الله بارك الله فيك تفضل اخي الكريم الملف المرفق به كود لتنفيذ ما تريد حسب طلبك والمخرجات اوفيس 2003 وللعلم فان الكود المستخدم في الملف هو من موضوع الحبيب / ياسر خليل .. جزاه الله خيرا ولكن تم تعديله بعض الشئ ليتناسب مع طلبك الكود يعمل علي نسخ الشيتات ارقام 3 - 4 - 5 الي ملفات منفصلة في نفس مسار الملف ويمكنك تحديد ما تريد من الشيتات ان شاء الله يفي بطلبك تقبل خالص تحياتي نسخ الشيتات كل شيت باسمه في ملف منفصل.rar

تفضل المرفق اخي الكريم الموجة صلاح بحث بفورم - تلوين الصف.rar

جزاك الله خيرا

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

شاهد المرفق التالي اخي الكريم جرب واشعرنا بالنتائج .. ان شاء الله يعمل معك كما تريد زر عائم11 .rar

جزاك الله خيرا استاذنا الكريم / مجدى يونس

السلام عليكم الاخ الكريم / شعبان فليفل بارك الله فيك تفضل اخي الكريم .. شرح للكود المستخدم الطريقة سطر سطر اتمني أن يفي بما تريد وارجو من الله أن أكون قد وفقت في شرح المطلوب كما ينبغي تقبل خالص تحياتي شرح كود عمل زر عائم سطر سطر .rar

السلام عليكم الاخ الكريم / شعبان فليفل بارك الله فيك تفضل اخي الكريم المطلوب بالملف المرفق .. وبالنسبة للشرح ان ما زلت تحتاج اليه فقط اخبرني مشاريع التنفيذ12.rar

السلام عليكم الاخ الكريم /حماده سعد الله بارك الله فيك طلبك موجود تماما في موضوع رائع للقدير الحبيب / ياسر خليل .. جزاه الله خيرا شاهد الرابط التالي واي استفسارات معك دائما باذن الله تقبل خالص تحياتي

السلام عليكم الاخ الكريم / محمد عبدالسلام بارك الله فيك شاهد المرفق . ان شاء الله حسب ما فهمته من شرحك وشرح الاخ الكريم / محمود ابو الدهب يوجد بالملف زر عائم ظاهر علي الشاشة دوما في يسار الشاشة وتتحرك انت بحرية في الشيت وعند الضغط عليه يقوم بتنفيذ الامر الذي تريده وتم هنا تنفيذ امر ( اظهار الفورم خاصتك في الملف الاخير ) .. ويمكنك تغيير مكان الزر علي الشاشة كما تريد ولكن بعد ردك شاهد المرفق .. واشعرنا بالنتائج تقبل خالص تحياتي زر عائم .rar

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

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