Need help Finishing code.

[Lynxador]

i need to find out how to finish this code. but im having trouble with just 2 parts of it. the Do until Statement, and the function to Fill a cell with the color red.

x = 4

Do until (end of sheet)
      If Cells(x, 1) = "" Than
      Cells(x, 1) (fill in box red)
x = x + 9
Loop

any help would be greatly appreciated.

 

[Joe4]

If you just want it to down to the last row with data, try:

    Dim x As Long
    Dim myLastRow As Long
    
'   Find last row of column A
    myLastRow = Cells(65536, 1).End(xlUp).Row

    x = 4

    Do Until x > myLastRow
        If Cells(x, 1) = "" Then Cells(x, 1).Interior.ColorIndex = 3
        x = x + 9
    Loop

If you want to do all rows, then change myLastRow to 65536 (no formula).

 

[Lynxador]

Thank you so much. was perfectly what i needed.

 

[HalfAce]

Hello Lynxador,
Along with jm14's, example, here are a couple more that work too.

Dim x As Long, LstRw As Long
x = 4
LstRw = Cells(Rows.Count, 1).End(xlUp).Row
While x < LstRw
  If Cells(x, 1) = "" Then Cells(x, 1).Interior.ColorIndex = 3 '(fill in box red)
  x = x + 9
Wend

And . . .

Dim x As Long, LstRw As Long
LstRw = Cells(Rows.Count, 1).End(xlUp).Row
For x = 4 To LstRw Step 9
  If Cells(x, 1) = "" Then Cells(x, 1).Interior.ColorIndex = 3 '(fill in box red)
Next x

And lastly, if these cells are the only blank cells in column A (used range) then you can
do it without looping at all.

Dim LstRw As Long
LstRw = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(4, 1), Cells(LstRw, 1)).SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 3