VBA Excel 2010 Programming How to Find If Text is Contained in a Certain String

VBA Excel 2010 Programming How to Find If Text is Contained in a Certain String
Handy Excel Resources
amzn.to/3gFx7s1 - Excel Formulas & Functions For Dummies 5th Edition
amzn.to/3sYnuH6 - Microsoft Excel 2019 VBA and Macros
amzn.to/2PqXhU0 - MICROSOFT EXCEL VBA AND MACROS FOR BEGINNERS:
amzn.to/3xtsLtM - Microsoft Excel VBA Programming for the Absolute Beginner
amzn.to/3xwkEg0 - Excel 2019 Bible
amzn.to/3aJEHxW - EXCEL 2020 FOR BEGINNERS
As an Amazon Associate, I earn from qualifying purchases. Product prices and availability are subject to change.

[@sahilmehta3694]

I have struggled to find half decent INSTR function example on web but your example is perfect. I'm so glad you tutorial is without msgbox as msgbox doesn't really help in real world.

[@MrMolehunter]

Thanks,
I have made a small change to your code
Set oSht = Sheets("Export")
LastRow = oSht.Range("A" & Rows.Count).End(xlUp).Row
Row_Number = 1
Do
DoEvents
Row_Number = Row_Number + 1
Item_Number = Worksheets("Export").Range("A" & Row_Number).Value
IdCode = Worksheets("Export").Range("F" & Row_Number).Value
If InStr(Item_Number, txtItem.Value) > 0 Then
lstIdCode.AddItem (IdCode)
End If
Loop Until Row_Number = LastRow

[@supervasia]

Thanks Alex, great stuff!
Just a quick question.
How can I expand the search range not only for column B but for B:K in this line?
item_description = Sheets("Database").Range("B" & row_number)
"B:K" is not working.
Thanks.

[@yaolegoleynik]

Thank you, it really helped me

[@StationOnLife]

What happen when I want to change the find text description? Do O actually have to manually edit the VBA code to change the find "description"!!! Could anyone help!!! Thank you.

[@gtaiwo21]

How would you do mulitple strings?

[@viracochalumens6902]

After some time of running the code, a run time error 1005 occurs. To fix, you need to Set the range method before and after the loop. Also , should be Loop until item_number and not row_number. Define row number as integer and item_number as range.

[@viracochalumens6902]

Run time error 1004 i mean.

[@josslippstreu4712]

Do you have an example where the number of loops is not known? In your example you set it up so it loops until row 16. What if you are trying to automatize but the amount of rows if never known? Sometimes it is 16 but sometimes it is 3,000.

[@soccerman1510]

You can find the last row with: FinalRow = Cells(Rows.Count, 1).End(xlUp).Row

[@nitro5571]

What if i want to search for 2 text in a string? can I know instr ********* or Instr*********??

[@rajeshmajumdar4999]

Excellent!!!

[@ChyounesYouness]

thanks