السلام عليكم
شكرا جزيلا وبارك الله فيك
Dim MyRange_Search As Range, Mycel As Range
Dim r As Integer
Set MyRange_Search = Range("SAMA1")
For Each Mycel In MyRange_Search
If LCase(Mycel) Like "*" & LCase(TextBox1) & "*" Then
With ListBox1
.AddItem
.List(r, 0) = MyRange_Search.Cells(Mycel.Row - 1, 1)
.List(r, 1) = MyRange_Search.Cells(Mycel.Row - 1, 2)
.List(r, 2) = MyRange_Search.Cells(Mycel.Row - 1, 3)
.List(r, 3) = MyRange_Search.Cells(Mycel.Row - 1, 4)
.List(r, 4) = MyRange_Search.Cells(Mycel.Row - 1, 5)
.List(r, 5) = MyRange_Search.Cells(Mycel.Row - 1, 6)
End With
r = r + 1
End If
Next
هذه الجزئية من الكود وتسمية النطاق هل هذا ما أصيفه لفورم البحث