Hello All,
I have been posting a ton and getting great help. This is the latest one and I know I have seen examples, but I can't find any that match my need.
Identify if a cell is blank. If so, cell to the right put a "No". If it isn't blank (I don't care what is in there), put a yes. This is the code I am using.
Dim cell3 As Long
cell3 = Cells.Find(What:="*", _
SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row
Cells.MergeCells = False
Columns("R").Insert
Range("R1").Value = "Kelly"
For Each cell3 In Range("R2", Cells(Rows.Count, "R").End(xlUp))
If ("Q2:Q" & cell3) = 0 Then
cell3.Offset(, 1).Value = "No"
Else
cell3.Offset(, 1).Value = "Yes"
End If
Next cell3
At first I could get it to at least look at the first cell (but nothing happened and it wouldn't look any further) now it won't even run (something to do with the defining of "Cell3"). Once again, I appreciate any help.
Kelly
Bookmarks