Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro to stop at the end of a worksheet
Hi
I'm writing a macro that I wish to go row by row through the worksheet until it get to the end and then stops. It is a bit complex, so I won't try and explain what I'm doing, but I've got about 30 workbooks with a few thousand rows each. Any suggestions on how to stop at the end if I use a similar way of moving around as the following example (this example is moving by column, whereas I'll want to work on each row then move down a row, moving by row.) Selection.End(xlDown).Select ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=RC[-1]*100" Range("D2").Select ActiveCell.FormulaR1C1 = "=RC[-1]*100" Selection.Copy Range(Selection, Selection.End(xlDown)).Select Many thanks for your help. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro to stop at the end of a worksheet
With ActiveCell
.Offset(0, 1).Resize(.End(xlDown).Row - .Row + 1).FormulaR1C1 = "=RC[-1]*100" End With -- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Mark" wrote in message ... Hi I'm writing a macro that I wish to go row by row through the worksheet until it get to the end and then stops. It is a bit complex, so I won't try and explain what I'm doing, but I've got about 30 workbooks with a few thousand rows each. Any suggestions on how to stop at the end if I use a similar way of moving around as the following example (this example is moving by column, whereas I'll want to work on each row then move down a row, moving by row.) Selection.End(xlDown).Select ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=RC[-1]*100" Range("D2").Select ActiveCell.FormulaR1C1 = "=RC[-1]*100" Selection.Copy Range(Selection, Selection.End(xlDown)).Select Many thanks for your help. |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro to stop at the end of a worksheet
Many thanks Bob
I'll give it a try "Bob Phillips" wrote in message ... With ActiveCell .Offset(0, 1).Resize(.End(xlDown).Row - .Row + 1).FormulaR1C1 = "=RC[-1]*100" End With -- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Mark" wrote in message ... Hi I'm writing a macro that I wish to go row by row through the worksheet until it get to the end and then stops. It is a bit complex, so I won't try and explain what I'm doing, but I've got about 30 workbooks with a few thousand rows each. Any suggestions on how to stop at the end if I use a similar way of moving around as the following example (this example is moving by column, whereas I'll want to work on each row then move down a row, moving by row.) Selection.End(xlDown).Select ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=RC[-1]*100" Range("D2").Select ActiveCell.FormulaR1C1 = "=RC[-1]*100" Selection.Copy Range(Selection, Selection.End(xlDown)).Select Many thanks for your help. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro - Stop Recording | Excel Discussion (Misc queries) | |||
Macro - Stop Recording toolbar | New Users to Excel | |||
How do I stop a Macro from running? | Excel Worksheet Functions | |||
Macro to stop at a certain tab and does not go to the next one. | Excel Worksheet Functions | |||
stop macro from flashing sheets | Excel Discussion (Misc queries) |