| Home |
| Search |
| Today's Posts |
|
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
I need a simple loop with a 4+ row added in.
I have another problem. Can you help?
"PCLIVE" wrote: By changing that number to 5833, the pasting process will loop 5,833 times. This will put you at about row 23,342. I probably just appears to run on and on. "pgarcia" wrote in message ... I changed the following and it keeps running on and on. I have to Ctrl+Pause/Break to stop it. But it does work. Thanks. For i = 1 To 10 To For i = 1 To 5833 "PCLIVE" wrote: This will repeat your pasting loop 10 times. Adjust as needed. ActiveCell.FormulaR1C1 = "=RC[-25]" Range("AC10").Select ActiveCell.FormulaR1C1 = "=RC[-25]" Range("AD10").Select ActiveCell.FormulaR1C1 = "=RC[-24]" Range("AE10").Select ActiveCell.FormulaR1C1 = "=RC[-21]" Range("AF10").Select ActiveCell.FormulaR1C1 = "=R[1]C[-22]" Range("AG10").Select ActiveCell.FormulaR1C1 = "=R[2]C[-23]" Range("AH10").Select ActiveCell.FormulaR1C1 = "=R[3]C[-24]" Range("AB10:AH10").Select Selection.Copy For i = 1 To 10 Range("AB" & ActiveCell.Row + 4).Select ActiveSheet.Paste Next i Range("AB10").Select HTH, Paul "pgarcia" wrote in message ... I have simple macro but I'm not that good with VB code. This is what I have: ActiveCell.FormulaR1C1 = "=RC[-25]" Range("AC10").Select ActiveCell.FormulaR1C1 = "=RC[-25]" Range("AD10").Select ActiveCell.FormulaR1C1 = "=RC[-24]" Range("AE10").Select ActiveCell.FormulaR1C1 = "=RC[-21]" Range("AF10").Select ActiveCell.FormulaR1C1 = "=R[1]C[-22]" Range("AG10").Select ActiveCell.FormulaR1C1 = "=R[2]C[-23]" Range("AH10").Select ActiveCell.FormulaR1C1 = "=R[3]C[-24]" Range("AB10:AH10").Select Selection.Copy Range("AB14").Select ActiveSheet.Paste Range("AB18").Select ActiveSheet.Paste Range("AB22").Select ActiveSheet.Paste Range("AB26").Select ActiveSheet.Paste Application.CutCopyMode = False Range("AB10").Select End Sub What I like to do is run a loop. From the start point, I move down 4 rows and paste my function and then I go down 4 rows and paste. Thanks |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| getting out of a if loop | Excel Discussion (Misc queries) | |||
| Do Loop | Excel Worksheet Functions | |||
| Simple Simple Excel usage question | Excel Discussion (Misc queries) | |||
| Make it more simple or intuitive to do simple things | Charts and Charting in Excel | |||
| Help With Loop | Excel Worksheet Functions | |||
Threaded Mode
