احمد محمد على

الكود الموجود كما تصورته لكنه لا يعمل

هل ممكن استعمال المعادلات داخل اللست بوكس k = 0 With Me.ListBox2 For i = 0 To .ListCount - 1 .AddItem .List(k, 0) = WorksheetFunction.VLookup(Val(Me.ListBox1.List(i, 0)), Sheets("dalel").Range("b5:k200"), 9, 0) .List(k, 1) = WorksheetFunction.VLookup(Val(Me.ListBox1.List(i, 1)), Sheets("dalel").Range("b5:k200"), 10, 0) k = k + 1 Next End With

up

السلام عليكم ما هو الخطا فى الكود الكود يعمل بشكل صحيح ولكن لا يبحث بين تاريخين Sub SEARSH() On Error Resume Next Dim sh As Worksheet, j As Double, R As Double, Ary() Dim COL1 As String, COL2 As String, COL3 As String, COL4 As String Dim Dt As Date, Dt1 As Date Set sh = Sheet3: Application.ScreenUpdating = False With Me .ListBox1.clear: txt1 = .ComboBox2.Value: txt2 = .ComboBox3.Value: txt3 = .n3.Value: txt4 = .n4.Value End With With sh LsRow = .Range("a" & Rows.Count).End(xlUp).Row For j = 5 To LsRow If txt1 = "" Then GoTo 10 If InStr(1, .Cells(j, 2), txt1, 1) >= 1 Then 10 If txt2 = "" Then GoTo 20 If InStr(1, .Cells(j, 2), txt2, 1) <= 1 Then 20 If txt3 = "" Then GoTo 30 If InStr(1, .Cells(j, 6), txt3, 1) = 1 Then 30 If txt4 = "" Then GoTo 40 If InStr(1, .Cells(j, 7), txt4, 1) = 1 Then 40 R = R + 1 ReDim Preserve Ary(1 To 8, 1 To R) Ary(1, R) = .Cells(j, 15): Ary(2, R) = .Cells(j, 13): Ary(3, R) = .Cells(j, 12) Ary(4, R) = .Cells(j, 11): Ary(5, R) = .Cells(j, 10): Ary(6, R) = .Cells(j, 4) Ary(7, R) = .Cells(j, 3): Ary(8, R) = .Cells(j, 2) End If: End If: End If: End If Next If R Then Me.ListBox1.Column = Ary End With If Me.ComboBox2 = "" And Me.ComboBox3 = "" And Me.n3 = "" And Me.n4 = "" Then Me.ListBox1.clear Application.ScreenUpdating = True End Sub

اخوانى جربت فى الخصائص التكست بوكس والكمندبوتن واستطعت ان اجعلها شبه مخفيه بلون الفورم ولكن اللست بوكس لم اجد هذه الخاصية back style افيدونى افادكم الله

اخى ابوحنين جزاك الله خيرا ممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممتاز الله الله وفقكم الله

اخى ياسر ما اطلبه داخل الفورم كما قدمت مثالا لدالة vlookup وعملت معى وبجدارة وارجو ان تعطى لى مثال للجمع sumif داخل التكست ولك الشكر اخى

اخى ياسر السلام عليكم عندما سجلت رفض الاسم احمد محمد فكتبت احمد21 فقبل طريقة استخدم sumif ,sumifs داخل التكست وجارى تغيير او محاولة تغيير اسم الظهور

اخوانى السلام عليكم كيف اتعامل مع التكست بوكس اريد ان يكون التكست بوكس رقم1=الخلية المقابله لتاريخ معين مكتوب فى التكست بوكس رقم4 التكست بوكس رقم2 يكون بداخله معادله تجمع بشرط لتكست بوكس رقم5 بمعنى ان كتب فى رقم 4 رقم 8 يجمع العمود h بشرط ان يكون العمود a يحتوى على رقم8 اشكركم 4444.rar

اخى ابوحنين تحياتى لك ولاهل الجزائر جزاك الله خيرا كل عام وانتم بخير

اخى ابوحنين اشكرك للمره المليون اخى وكل عام وانتم بخير الترحيل لصف واحد ومن الممكن لوسمحت ان يكون فى حدث الكليك لانى استخدمه للتفنيد فى الحسابات فالصفوف المرسله جزء من عمل اشكرك اخى بالنسبه للست لا يحذف ولكن ترفع عنه التظليل لابحث مره اخرى

اخى ابوحنين هو المطلوب ممتاز جزاك الله خير بارك الله لك الترحيل اريده للصف النشط والمختار فى اللست وارجو الا يشطب البيانات التى تسبقه فى الورقة "حسابات" اخر صف+1 اشكرك

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

اخى سليم الف مبرررررررروك

اخى عمرو.محمد اشكرك كل الشكر جزاك الله خيرا اخى ابوحنين الف الف شكر جزاك الله خيرا ارجو مراجعة الفورم الاخير طلبى منك هو طلب الاخ ياسر هل يمكن البحث باسم الحساب الرئيسى ومن النتائج ابحث عن عميل معين بمعنى البحث بمراحل من العام للاشمل ثم المخصص نكون شاكرين اخى ابوحنين

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

اخوانى السلام عليكم هل ممكن البحث فى الست بوكس عن طريق التكست تكست بوكس للبحث فى عمود الاول للست والثانى والثالث البحث يكون بالحرف الاول او جزء من الكلمة ثم اختيار من الست وترحيله لورقة الحسابات اشكركم 11.rar

اخى عبدالسلام هو المطلوب جزاك الله خيرا ممكن اخى عبدالسلام شرح على اسطر الكود لوسمحت

للرفع

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

اخوانى كل عام وانتم بخير هل يمكن ان اختار من لست بوكس اختيارات متعدده بينهم "+" بمعنى لو ان الست بوكس تحتوى على 1 2 3 اخترت انا هذه الخيارات لتسجيلها فى الخلية النشطه تسجل هكذا 1+2+3 فى نفس الخلية دمتم بخير

اخى ياسر تم تنزيل النت فريم ورك 2 و3 و3.5 وتنصيبه الكود عمل بشكل رائع رائع رائئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئع جزاك الله خيرا الف شكر لو كان عندك وقت شرح بسيط على اسطر الكود اكون شاكر جدا

اخى ياسر استخدم ويندز 8.1

اخى ياسر الكود يتوقف عند السطر With CreateObject("System.Collections.SortedList") اضفت لتلافى الخطا on error resume next فلم يعطى نتائج المعذرة اخى ارجو مراجعة الكود

اخى ياسر يفضل الترتيب الابجدى في الاسماء تم رفع الملف 22المصنف1.rar