Wildcard String Search

[I3atnumb3rs]

Hello,

I would like to loop column j and if any part of the value in Q equals the string EXCHANGE, I want to concatenate the value in column k the Q, otherwise just put the string value in column q. My wildcard doesn't seem to work and even when the word EXCHANGE is in q and only entering the info in K. Help!

Sub ServiceLevel()
Dim strMyValue As String

strMyValue = "*EXCHANGE*"



Range("A2").Select

Do

ActiveCell.Offset(0, 9).Activate

If ActiveCell.Offset(0, 7).Value = "strMyValue" Then
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[1], "" "", RC[7])"
Else: ActiveCell.FormulaR1C1 = ActiveCell.Offset(0, 1)
End If

ActiveCell.Offset(1, -9).Activate

Loop While ActiveCell.Value <> ""
End Sub

 

[Fluff]

Try removing thee quotes from the strMyValue

If ActiveCell.Offset(0, 7).Value = strMyValue Then

 

[Fluff]

Another thing, you also need to replace the = with Like

 

[JoeMo]

Change this line:
If ActiveCell.Offset(0, 7).Value = "strMyValue" Then

To this:
If ActiveCell.Offset(0, 7).Value Like "*EXCHANGE*" Then

 

[I3atnumb3rs]

Thank you so much!

 

[Fluff]

You're welcome & thanks for the feedback