السلام عليكم استاذتنا الاعزاء ممكن اعرف شنو سبب الخطآ .... ممكن اعرف شنو سبب الخطآ كما في المرفقات .تحياتي للجميع
Option Explicit
Dim WS As Worksheet, SH As Worksheet
Dim I As Long, RO As Long, WSLR As Long, SHLR As Long, res As Long, SS As Long
Dim C As Range, K As Integer
Private Sub TextBox1_Change()
WSLR = WS.Cells(Rows.Count, 1).End(xlUp).Row
K = 0
On Error Resume Next
With Me.ListBox1
.Clear
.ColumnCount = 4
For Each C In WS.Range("B2:B" & WSLR)
If TextBox1.Value <> "" Then
If C Like "*" & TextBox1.Value & "*" Then
.AddItem
.List(K, 0) = WS.Cells(C.Row, 5).Value
.List(K, 1) = WS.Cells(C.Row, 4).Value
.List(K, 2) = WS.Cells(C.Row, 3).Value
.List(K, 3) = WS.Cells(C.Row, 2).Value
.List(K, 4) = C.Row
K = K + 1
End If
End If
Next C
End With
End Sub