الصفتى قام بنشر أكتوبر 12, 2021 مشاركة قام بنشر أكتوبر 12, 2021 Dim x, ws As Worksheet, i As Long, j As Long, lastRow As Long With Me.ListBox1 .Clear .ColumnCount = 7 .ColumnWidths = "60 pt;150 pt;80 pt;150 pt;100 pt;70 pt;100 pt" .ColumnHeads = 0 Set ws = Sheets("Ledger") x = Application.Match(ComboBox1.Value, ws.Rows(1), 0) If Not IsError(x) Then lastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row For i = 1 To lastRow If TextBox1 <> "" And InStr(ws.Cells(i, x), TextBox1) <> 0 Then .AddItem .List(j, 0) = ws.Cells(i, 1) .List(j, 1) = ws.Cells(i, 3) .List(j, 2) = ws.Cells(i, 4) .List(j, 3) = ws.Cells(i, 16) .List(j, 4) = ws.Cells(i, 17) .List(j, 5) = ws.Cells(i, 18) .List(j, 6) = ws.Cells(i, 10) j = j + 1 End If Next i End If End With المطلوب عند البحث باسخدام الكمبوبوكس و التكست بوكس يتم اظهار النتائج الموجوده فى شيت ليدجر فى النطاق من (a4:s ) و لكم جزيل الشكر test.xlsb رابط هذا التعليق شارك More sharing options...
الصفتى قام بنشر أكتوبر 13, 2021 الكاتب مشاركة قام بنشر أكتوبر 13, 2021 UP رابط هذا التعليق شارك More sharing options...
أفضل إجابة حسونة حسين قام بنشر أكتوبر 13, 2021 أفضل إجابة مشاركة قام بنشر أكتوبر 13, 2021 السلام عليكم ورحمه الله وبركاته جرب هذا التعديل اخى الكريم test2.xlsb 2 1 رابط هذا التعليق شارك More sharing options...
الصفتى قام بنشر أكتوبر 14, 2021 الكاتب مشاركة قام بنشر أكتوبر 14, 2021 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
حسونة حسين قام بنشر أكتوبر 14, 2021 مشاركة قام بنشر أكتوبر 14, 2021 وجزاكم مثله اخى الكريم الحمد لله الذي بنعمته تتم الصالحات رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان