How to repeat a macro

L

Leon

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.
 
D

davesexcel

range("A1").select
do until selection.value=""
'your code
selection.offset(1,0).select
loop
 
T

Tim Marsh

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
 
L

Leon

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 !!
 
T

Tim Marsh

there are no dumb questions (except the ones i ask)!

this is the same as davesexcel's route (except his would always refer to the
selected cell, whereas you could use mine to refer to something else if that
were relevant).

the 'Do Until numcheck = ""' statement just means that you keep on
processing the loop until you get to a blank cell ie, the contents of active
cell (that you have just scrolled to) = "" (ie, nothing in the cell)

hth,

Tim
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top