J
JHopper
Dim Defragglerow As Long
Dim RockroadRow As Long
Defragglerow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For RockroadRow = 1 To Defragglerow
With Cells(RockroadRow, "T")
If .Text Like "TACO*" And.Offset(, 52).Text Like "*Blank*" Then
Cells(RockroadRow, "F") = "SOFT TACO"
End If
End With
Next RockroadRow
End Sub
If any row in Column T contains TACO anywhere and that same row in Column BA
is blank I want to change the contents in Column F to “SOFT TACOâ€. I entered
the code I have so far above. Can you help?
Dim RockroadRow As Long
Defragglerow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For RockroadRow = 1 To Defragglerow
With Cells(RockroadRow, "T")
If .Text Like "TACO*" And.Offset(, 52).Text Like "*Blank*" Then
Cells(RockroadRow, "F") = "SOFT TACO"
End If
End With
Next RockroadRow
End Sub
If any row in Column T contains TACO anywhere and that same row in Column BA
is blank I want to change the contents in Column F to “SOFT TACOâ€. I entered
the code I have so far above. Can you help?