Hi i need to check the cells in the column for the word "screenshot" and print "yes" in the adjacent column. I need to do this till data exists in the column..
I want to run this loop till we get blank cell in the column.
Hi i need to check the cells in the column for the word "screenshot" and print "yes" in the adjacent column. I need to do this till data exists in the column..
I want to run this loop till we get blank cell in the column.
Hello
Maybe a Do Until Loop, for example Column A until a blank cell is found:
Please Login or Register to view this content.
try this assuming data in column a
Sub testing()
Dim LastRow As Integer, x As Integer
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For x = 1 To LastRow
If Cells(x, 1).Value = "screenshot" Then
Cells(x, 2).Value = "yes"
End If
Next x
End Sub
Hi
Try the following code:
the UCase function makes this non-case sensitive but if you prefer it to be case sensitive then remove UCase.Please Login or Register to view this content.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks