Adding formulas to rows using a Loop Macro


Lucas B

I am trying to write a macro that will do the following as long as there is
data in column A.

ActiveCell.FormulaR1C1 _
= "=IF(LEN(R4C1)<LEN(R4C5),
With Selection.Interior
.ColorIndex = 38
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
Selection.Locked = True
End With

How do I write a Loop that will keep doing this on each successive row until
the cell in column A is blank?

Chip Pearson


Dim R As Range
Set R = Range("F4")
Do Until R.EntireRow.Cells(1, "A").Value = vbNullString
With R
.FormulaR1C1 = "your formula here"
With .Interior
.ColorIndex = 38
.Pattern = xlSolid
.PatternColorIndex = xlColorIndexAutomatic
End With
.Locked = True
End With
Set R = R(2, 1)

Chip Pearson
Microsoft MVP 1998 - 2010
Pearson Software Consulting, LLC
[email on web site]

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question