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

How would you do mulitple strings?

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.

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.

Thank you, it really helped me

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

Excellent!!!

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.

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.

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.

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

thanks