ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   If Column T contains then (https://www.excelbanter.com/excel-programming/437034-if-column-t-contains-then.html)

JHopper

If Column T contains then
 
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?


joel[_290_]

If Column T contains then
 

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


JHopper

If Column T contains then
 
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

.



All times are GMT +1. The time now is 03:45 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com