How to repeat a macro
Tim,
You're going to think my question is dumb
but what does "Do Until numcheck = """
what do I have to replace """" by
Sorry I'm a beginner !!
"Tim Marsh" wrote:
I don't know if its the best way but you could try the following (which
presumes that the you want to carry on until the active cell is empty): -
sub test()
Dim numcheck
numcheck = ActiveCell.Value
Do Until numcheck = ""
'<== YOUR CODE HER ==
ActiveCell.Offset(1, 0).Select '<== or whatever your offset is
numcheck = ActiveCell.Value
Loop
end sub
hope this helps,
Tim
"Leon" wrote in message
...
I have a macro that looks like this:
ActiveCell.Offset(2, 0).Range("A1").Select
Selection.Cut Destination:=ActiveCell.Offset(-2, 1).Range("A1")
ActiveCell.Offset(2, 0).Range("A1").Select
Selection.Cut Destination:=ActiveCell.Offset(-4, 2).Range("A1")
ActiveCell.Offset(2, 0).Range("A1").Select
Selection.Cut Destination:=ActiveCell.Offset(-6, 3).Range("A1")
ActiveCell.Offset(-5, 0).Rows("1:8").EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.Offset(0, 2).Range("A1").Select
I'd like to have Excel repeat the macro for as many entries there are on
the
spreadsheet (this macro being valid onl for one entry). Right now I do it
manually by pressing a shortcut for as long as it not done.
Any help will be gratefully appreciated.
|