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 me with the rest?

For RockroadRow = 1 To Defragglerow
If Cells(RockroadRow, "T").Text Like "TACO*" And _
Cells(RockroadRow, "BT").Text Like "*Blank*" Then

Cells(RockroadRow, "F") = "SOFT TACO"
End If
Next RockroadRow


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=159775

Microsoft Office Help

Very nice. Thank you for the extra help.

"joel" wrote:


For RockroadRow = 1 To Defragglerow
If Cells(RockroadRow, "T").Text Like "TACO*" And _
Cells(RockroadRow, "BT").Text Like "*Blank*" Then

Cells(RockroadRow, "F") = "SOFT TACO"
End If
Next RockroadRow


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=159775

Microsoft Office Help

.