Do Until empty loop

[Kirsty]

All,

I have been trying to write a loop macro that will insert a star every 6
rows in column C until there are no values in column B.

So far I can get it to insert only the first star, know I am missing
something but not sure what. This is what I have

Range("B7").Select 'Set range to start point
Do While ActiveCell.Value <> ""
ActiveCell.Offset(0, 1).FormulaR1C1 = "*"
ActiveCell.Offset(1, -1).Select
Loop

Kirsty

 

[JLGWhiz]

You can insert this into your code by removing the first and last lines.

Sub sixrowtest()
lastRow = Cells(Rows.Count, 2).End(xlUp).Row
For i = 7 To lastRow Step 8
If Cells(i, 2) <> "" Then
Cells(i, 3) = "*"
End If
Next
End Sub

 

[Kirsty]

Thanks,

Works perfectly

You can insert this into your code by removing the first and last lines.

Sub sixrowtest()
lastRow = Cells(Rows.Count, 2).End(xlUp).Row
For i = 7 To lastRow Step 8
If Cells(i, 2) <> "" Then
Cells(i, 3) = "*"
End If
Next
End Sub