السلام عليكم
اريد التعديل على كود الفورم هذه ليظهر فى قائمة البحث textbox 1 اربع اعمدة بدلا من عمودين
الكود
Private Sub TxtSearch_Change()
Dim x As Long
Me.TxtSearch.Text = StrConv(Me.TxtSearch.Text, vbProperCase)
Me.ListBox1.Clear
For x = 2 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
a = Len(Me.TxtSearch.Text)
If Left(Sheet1.Cells(x, 1).Value, a) = Left(Me.TxtSearch.Text, a) Then
Me.ListBox1.AddItem Sheet1.Cells(x, 1).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Sheet1.Cells(x, 2).Value
End If
Next x
End Sub
وهناك مرفق صورة
ADVANCED SEARSH.xlsm