Listbox Use Instr And Multiple Columns Concatenate Userform Excel VBA

[@alseragiwail]

Please keep going 😘 with Access

[@razakmcr]

Thanks fr watching

[@abcd2-k4s]

Very nice 👍
Sir ji excel to access

[@razakmcr]

Thanks

[@MohAboAbdo]

Thank you so much Sir.

[@razakmcr]

Thanks

[@andrewpalmes7389]

hello master how to stock out the item same product different price . do you have a formula.. thank you for responds.

[@BRVR_]

Hello, Razakmcr. Thanks for this video - i think, it's great. But i can search only from the First Column and the First Letter of Second Column (not from all Five Columns). I check VBA-Code many times - it is the same as in Your video. May be You marked something in Properties of ListBox? something else could be? Thanks
Private Sub TextBox1_Change()
Dim RNG As Range
Dim RO As Long
Dim CLN, LST As Integer
Me.ListBox1.Clear
Set RNG = Sheet1.Range("A2").CurrentRegion
Me.ListBox1.AddItem
For LST = 1 To RNG.Columns.Count
Me.ListBox1.List(0, LST - 1) = Sheet1.Cells(1, LST)
Next LST
Me.ListBox1.Selected(0) = True
For RO = 2 To RNG.Rows.Count
If InStr(UCase(Sheet1.Cells(RO, "A")) & Sheet1.Cells(RO, "B"), UCase(Me.TextBox1)) > 0 _
And Me.TextBox1 "" Then
Me.ListBox1.AddItem
For CLN = 1 To RNG.Columns.Count
Me.ListBox1.List(ListBox1.ListCount - 1, CLN - 1) = Sheet1.Cells(RO, CLN)
Next CLN
End If
Next RO
Me.ListBox1.Height = Me.ListBox1.ListCount * 12
End Sub
Private Sub UserForm_Initialize()
Me.TextBox1.SetFocus
Me.ListBox1.Height = 0
End Sub

[@razakmcr]

Thanks for watching video in ur code I nothing found any false U go to listbox property check columncount my b 1 then typ how mini column in worksheet typ

[@MetroCoder-fw1qm]

Bro how to make the same Search box with “ListView” and Select searched data + add button to add the data to another sheet example sheet 2

[@razakmcr]

Thanks fr watching ok soon uploading

[@adeshraka6668]

How to search full name in listbox.. Exp.. Type textbox A B C.. Then Result Listbox.. ADI BIKE CARE.. Please sirji code ya video.. Reply

[@salmataahamada6403]

thank you but I have erreur code 380 when I execut in this commande " Me.ListBox1.List(0, LST - 1) = Sheets("base").Cells(1, LST)"

[@razakmcr]

Thanks for watching check variable LST start from 0 or 1

[@razakmcr]

And check invertedcomna after bras

[@razakmcr]

U use row index 1 not use loop

[@MdTarek-zj3ld]

can your give me sir excel file with complete user form file

[@MetroCoder-fw1qm]

What will be the code for 15 columns

[@razakmcr]

th-cam.com/video/0Nmm2SrpsiY/w-d-xo.html