Add wildcard* character to Term in Code to change value

[DougStroud]

The following line of code searches for the term "Boot", but I want it to find any instance of "Boot", ie. "Boot", "Bootw", or "Booty".
Placing the standard * after the term does not work...
If (Cells(i, "F") = "Hat" Or Cells(i, "F") = "Shoe" Or Cells(i, "G") = "Boot*") And Cells(i, _
"M").NumberFormat = "0.000" Then

or

If (Cells(i, "F") = "Hat" Or Cells(i, "F") = "Shoe" Or Cells(i, "G") = "Boot" & "*") And Cells(i, _
"M").NumberFormat = "0.000" Then

Does not work....

 

[hsk]

have u tried "Left" function ??

If Left(Cells(11, 3).Value, 3) = "ABC" Then

.........

 

[DougStroud]

Hello Hsk-
I did try that earlier, but could not get the syntax correct for it to work.
Here is my original line- can you provide an example w/ the "Left" function included?

If (Cells(i, "F") = "Hat" Or Cells(i, "F") = "Shoe" Or Cells(i, "G") = "Boot") And Cells(i, _
    "M").NumberFormat = "0.000" Then

 

[gaj104]

Use the find function as a better test. I also cleaned up your code and created a separate function to test the cell

Hope it helps

Sub LookFor()


If Cells(i, "M").NumberFormat = "0.000" Then

    If Finder(Cells(i, "F")) = True Then
    
    'put code here where conditons are met
    
    End If

End If

End Sub

Function Finder(rng As Range) As Boolean

Dim findValues As Variant
Dim j As Long

findValues = Array("Hat", "Shoe", "Boot")

For j = LBound(findValues) To UBound(findValues)
    
    If Not (rng.Find(findValues(j)) Is Nothing) Then
        
        Finder = True
        Exit Function
    
    End If

Next j

Finder = False

End Function