C
Cue
Greetings,
The following code colors the row the matches the criteria. But I would like
the code to insert the word 'MATCH' in column 'Z' to each row that matches
the criteria. I am assuming the line with the stars is the only line I have
to change. But I have tried numerous ways but was unsuccessful. Can someone
show me what it should be?
Dim myCell As Range
Dim myrng As Range
Set myrng = Sheets("C&D").Range("$B$1:$B$50")
For Each myCell In myrng.Cells
whatwant = myCell.Value
For Each rCell In Sheets("MultAdjDaily").Range("$C$6:$C$1200")
If rCell.Value Like whatwant And rCell.Value > 0 Then
*****rCell.EntireRow.Resize(1, 14).Interior.ColorIndex = 43*****
End If
Next cell
Next micelle
Thanks for your time...
The following code colors the row the matches the criteria. But I would like
the code to insert the word 'MATCH' in column 'Z' to each row that matches
the criteria. I am assuming the line with the stars is the only line I have
to change. But I have tried numerous ways but was unsuccessful. Can someone
show me what it should be?
Dim myCell As Range
Dim myrng As Range
Set myrng = Sheets("C&D").Range("$B$1:$B$50")
For Each myCell In myrng.Cells
whatwant = myCell.Value
For Each rCell In Sheets("MultAdjDaily").Range("$C$6:$C$1200")
If rCell.Value Like whatwant And rCell.Value > 0 Then
*****rCell.EntireRow.Resize(1, 14).Interior.ColorIndex = 43*****
End If
Next cell
Next micelle
Thanks for your time...