Move row based on value in cell

A

angelo328

Hi All
I have searched and found lots of examples of moving rows based on the
values in a cell but I can't get it so that it loops through several
named worksheets (there are other unconnected sheets in the book hence
naming them).
What I am wishing for is code that will examine cells in column Y and
if there is a date to move the entire row to a sheet named Archive.The
source row is then cleared (not cut as I want to preserve the
formatting)..
This macro then goes on to other named sheets.
If one of you guys can help it is really appreciated.

Kind Regards

Angelo
 
A

angelo328

Hi Mick
Thank you for replying, have been looking at this all morning in the
hope of finding an answer.
I use Macro's so infrequently that I get a little mixed up when I try
anything complicated.
I do recall Ron Bruins page from past and his was the one of the first
I turned to except that he now seems to have updated his examples and
also uses Excel 2007 - I am on 2003.
The delete sheet is useful and whilst I have found similar examples
over the net the problem I am having is getting to move the row to a
different sheet AND loop through various sheets.
Here is a loop I found which I think may be suitable for the looping
part, now to find the other bits.


Sub looparray()
Dim sh As Worksheet
For Each sh In Sheets(Array("Sheet2", "Sheet6", "Sheet10"))
MsgBox sh.Range("a1")
Next
End Sub

Kind Regards

Angelo
 

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

Top