Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Do Until Loop
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Do Until Loop
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Naming Worksheets - Loop within a loop issue | Excel Programming | |||
Naming Worksheets - Loop within a loop issue | Excel Programming | |||
(Complex) Loop within loop to create worksheets | Excel Programming | |||
Advancing outer Loop Based on criteria of inner loop | Excel Programming | |||
Problem adding charts using Do-Loop Until loop | Excel Programming |