Search for value anywhere within a cell

[ango858]

I am trying to search for a value such as A01 (in cell A5) within cell R25 and if A01 is present anywhere in R25 then in cell B5 it will place a 1.

R25 might have: A05A01A25A40

Once I can do this I plan on creating a loop to go through range R25-R1000 and have B5 continue to add 1 to the current value until the loop is complete.

Thank you all in advance

 

[VoG]

Try

=IF(ISNUMBER(FIND("A01",R25)),1,"")

 

[ango858]

thank you, however, i need this to work in VBA, it cannot be a formula in the worsheet

 

[ango858]

The code i am hoping to have will start at R25
it will then check R26, R27, etc and will increase the value in B5 every time A5's value is found

 

[Rick Rothstein]

thank you, however, i need this to work in VBA, it cannot be a formula in the worsheet

Give this line of code a try...

If InStr(Range("R25").Value, Range("A5").Value)) Then Range("B5").Value = 1

 

[ango858]

Perfect! Thanks Rick