Do Until Loop
Awesome, simply awesome!
Thanks!
--
RyGuy
"FSt1" wrote:
hi
try this....
Sub FillDown()
Dim r As Range
Dim rd As Range
Dim ro As Range
Set r = Range("K2")
Do While Not IsEmpty(r)
Set rd = r.Offset(1, 0)
Set ro = r.Offset(0, 5)
ro.FormulaR1C1 = "=SUM(RC[-4]:RC[-1])"
Set r = rd
Loop
End Sub
varibles work much better than activecell. it also speeds up the macro
because you not selecting anything.
Regards
FSt1
"ryguy7272" wrote:
I'm still not good with setting up loops. I'm trying to create a simple
macro to sum the values in columns L through O, and put the results in Column
P. i want the loop to run until it detects blanks in Column K.
Sub FillDown()
Range("P2").Select
Do Until ActiveCell.Offset(-5, 1) = ""
ActiveCell.FormulaR1C1 = "=SUM(RC[-4]:RC[-1])"
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Please help!
Thanks,
Ryan--
--
RyGuy
|