sherif ahmed mohamed

السلام عليكم ده كود بحث وفلترة فى listbox2 شغال تمام المطلوب عمل كود فى userform_activate علشان القيم تظهر فى listbox2 عند فتح الفورم وشكرا للجميع Private Sub TextBox1_Change() On Error Resume Next ThisWorkbook.Activate Dim v As Integer, LastRow As Integer Dim M As String Dim Q, F ListBox2.Clear With Da If TextBox1.Text = "" Then GoTo 1 LastRow = .Range("cc1000").End(xlUp).Row Set sp = .Range("cc5:cc" & LastRow) M = TextBox1.Text Set Q = sp.Find(M) If Not Q Is Nothing Then F = Q.Address Do If Application.WorksheetFunction.Search(M, Q, 0) = 1 Then 'هنا في حالة انني اريد البحث على اساس اي حرف بالكلمه '==================================================================== 'وهذا الكود اذا اردت البحث باول حرف من الكلمه ولاحظ هنا ان الرقم تغير من صفر الى واحد في الاقواس '==================================================================== ListBox2.AddItem Q.Value 'هذا خاص باضافة عمود البحث وهنا يكون العمود الاول من الليست بوكس ListBox2.List(v, 0) = Q.Offset(0, -2).Value ListBox2.List(v, 1) = Q.Value طلب كود اظهار القيم فى listbox عند فتح الفورمListBox2.List(v, 2) = Q.Offset(0, 2).Value ListBox2.List(v, 3) = Q.Offset(0, 3).Value ' ListBox2.List(v, 3) = Q.Offset(0, 2).Value v = v + 1 'وهذا المتغير ضروريان يكون كماهو لانه يعني ظهور الداتا لكامل عدد الاعمده في الليست بوكس End If Set Q = sp.FindNext(Q) 'وهذا السطر يجب ان يكون موجود وهو خاص بالبحث التالي للكلمات، يعني لو حذفت هذا السطر لن يعطيك تكرار للبحث 'ويجب ان تراعي ان تغير معطيات الكود في حال غيرت اسماء المتغيرات وايضا في حال غيرة عمود البحث Loop While Not Q Is Nothing And Q.Address <> F Me.ListBox2 = "" طلب كود اظهار القيم فى listbox عند فتح الفورمEnd If End With 1 End Sub كلمة المرور 123 اساسى_تعديل.rar

استاذ هاشم بعد اذن حضرتك ...كنت عايز مساعده من حضرتك فى نقطة صغيره ..ممكن حضرتك ترد عليا فى الشات لانى مش عارف اكلم حضرتك او فيس بوك حتى https://www.facebook.com/profile.php?id=100011613548102

الاوفيس اللى حضرتك بتستخدمه اصدار كام لو نتكلم على الفيس يبقى افضل https://www.facebook.com/profile.php?id=100011613548102

تمام هجرب الكود ويارب يشتغل لانى حاولت كتير فى اكواد كتيره ولم تعمل بالنسبة للبرنامج اللى حضرتك بتستخدمه ده فى برنامج جميل جدا موجود فى المنتدى يؤدى نفس الغرض واكثر بكثير ومفتوح المصدر لو عايزه ابعته لحضرتك هو اسمه (المشروع الكبير) موجود منه ثلاث اصدرارت على المنتدى وافضلهم طبعا الاصدار الثالث

اقتراح على برنامج المخزون الشامل (شاشة الادخال)

البرنامج مفتوح المصدر وانا تحت امرك لو عايز تعرف تستخدمه ازاى @وائل يونس سلامي

تمام انا قمت بالمعاينة ولكنى لم اعرف ماهو الكود المرتبط بهذا الموضوع فى برنامج حضرتك

السلام عليكم انا متشكر لاهتمام حضرتك بس فى مشكله واجهتنى بسبب مسار حفظ البيانات فى برنامجك ولم اتمكن من معاينة المطلوب فممكن حضرتك توصفلى ما هو الكود الخاص بموضوع سؤالى

فاتورة مطاطيه لحجم الاصناف السلام عليكم عايز اعدل على فاتوة الطباعة فى البرنامج بحيث انها تكون مطاطيه لحجم البيانات التى بها (اى يزيد وينقص طول الفاتورةعلى اساس حجم الاصناف بها) يوجد نوعين من الفاتوة فى البرنامج اريد التعديل فى فاتورة A4

اعرض الملف فاتورة مطاطيه لحجم الاصناف السلام عليكم عايز اعدل على فاتوة الطباعة فى البرنامج بحيث انها تكون مطاطيه لحجم البيانات التى بها (اى يزيد وينقص طول الفاتورةعلى اساس حجم الاصناف بها) يوجد نوعين من الفاتوة فى البرنامج اريد التعديل فى فاتورة A4 صاحب الملف sherif ahmed mohamed تمت الاضافه 29 أكت, 2018 الاقسام قسم الإكسيل

اعرض الملف فاتورة مطاطيه لحجم الاصناف السلام عليكم عايز اعدل على فاتوة الطباعة فى البرنامج بحيث انها تكون مطاطيه لحجم البيانات التى بها (اى يزيد وينقص طول الفاتورةعلى اساس حجم الاصناف بها) يوجد نوعين من الفاتوة فى البرنامج اريد التعديل فى فاتورة A4 صاحب الملف sherif ahmed mohamed تمت الاضافه 29 أكت, 2018 الاقسام قسم الإكسيل

السلام عليكم .يارب الجميع يكون بخير البرنامج ده شئ فوق الممتاز ويفى بالغرض لكل من يعمل فى مجال المبيعات (قمت نتزيله من هذا المنتدى الرائع) عايز اضافه صغيره حتى يتمشى مع مجال عملى المطلوب اضافة عمود فى جدول الاصناف فى ورقة data يكون اسمه تكعيب الوحده ويكون بيساوى الارتفاع *الطول *العرض (طبعا هيتم عمل عمود لكل منهم)ايضا تانى حاجه فى نموذج الفاتوره اضافة نافذة تكعيب الوحده وكمان اجمالى التكعيب وده بيساوى تكعيب الوحده * الكميه اسم المستخدم مدير والرقم 123 الغاء حماية الورق 8521 باسورد الفيجوال 85211 يارب البرنامج يعجبكوا وتستفيدوا به برنامج مبيعات

اعرض الملف برنامج مبيعات لسلام عليكم .يارب الجميع يكون بخير البرنامج ده شئ فوق الممتاز ويفى بالغرض لكل من يعمل فى مجال المبيعات عايز اضافه صغيره حتى يتمشى مع مجال عملى المطلوب اضافة عمود فى جدول الاصناف فى ورقة data يكون اسمه تكعيب الوحده ويكون بيساوى الارتفاع *الطول *العرض (طبعا هيتم عمل عمود لكل منهم)ايضا تانى حاجه فى نموذج الفاتوره اضافة نافذة تكعيب الوحده وكمان اجمالى التكعيب وده بيساوى تكعيب الوحده * الكميه اسم المستخدم مدير والرقم 123 الغاء حماية الورق 8521 باسورد الفيجوال 85211 يارب البرنامج يعجبكوا وتستفيدوا بيه صاحب الملف sherif ahmed mohamed تمت الاضافه 07 سبت, 2018 الاقسام قسم الإكسيل

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

ah0562982701 @ابو ياسين المشولي