احمد محمد على

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

هل ممكن استعمال المعادلات داخل اللست بوكس 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 اشكرك

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

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

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