سؤال.. عن كيفية البحث عن طريق الكومبو بوكس واظهار النتائج في الليست بوكس

[abushuber]

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

ICC RECORDER - Copy.zip

[ابراهيم الحداد]

السلام عليكم ورحمة الله

استخدم الكودين الآتيين

الكود الاول :

Private Sub ComboBox1_Change()
Dim ws As Worksheet, Rng As Range
Dim MyArray, x As String
x = Me.ComboBox1.Value
On Error Resume Next
Set ws = Sheets(x)
Set Rng = ws.Range("A4:I" & ws.Range("B" & Rows.Count).End(xlUp).Row)
With Me.ListBox1
.Clear
.ColumnHeads = False
.ColumnCount = Rng.Columns.Count
MyArray = Rng
.List = MyArray
.ColumnWidths = "150;120;120;120;120;120;120;120"
.TopIndex = 0
End With
End Sub

الكود الثانى :

Private Sub UserForm_Initialize()
Me.ComboBox1.AddItem "TANKS"
Me.ComboBox1.AddItem "TRAINS"
Me.ComboBox1.AddItem "FLOW LINE"
Me.ComboBox1.AddItem "PUMPS"
End Sub