Contents of range to move daily

D

David P.

I need for a range to move down the column 30 cells automatically at the
beginning of every day. Is that possible?
 
D

Don Guillett

try this idea to check the date in a1 and insert days required to bring up
to date & change date stored in a1

Sub insert30rows()
If Date <> Range("a1") Then
x = (Date - Range("a1")) * 30
Rows("9:" & 8 + x).Insert
Range("a1") = Date
End If
End Sub
 
D

David P.

Do I put today's date in A1?
What cell would this example referencing to copy and / or move?
My other question is, this macro won't be inserting rows will it?
Thank you for your assistance.

David P.
 
D

Don Guillett

Yes, at the start, put the date in a1..
I understood "move down the column" to insert rows.

What, EXACTLY to you want?
 
D

Don Guillett

Sub godown30rows()
If Date <> Range("a1") Then
x = (Date - Range("a1")) * 30
'Rows("9:" & 8 + x).Insert
Cells(1 + x, "a").Select
Range("a1") = Date
End If
End Sub
 
D

David P.

Sorry, move down in the sense that the contents of A2:B2 would copy or move
to A32:B32 for example but not insert rows. Thanks.
 
D

Don Guillett

OK. Which is it, copy or move???
AND, is that 30 c/m a2:b2 to
a32:b32 tomorrow
where the next day??

Always nice to fully explain what you want the FIRST time. Saves everyone a
lot of "tooth pulling" and mind reading.
 
D

David P.

Did you give up on me?
--
David P.


David P. said:
Sorry, move down in the sense that the contents of A2:B2 would copy or move
to A32:B32 for example but not insert rows. Thanks.
Click to expand...
 
D

David P.

It would be move A2:B2 to A32:B32 the next day. Thank you for your patience
on this.

David P.
 
D

Don Guillett

Sub copydn30rows()
If Date <> Range("a1") Then
Range("a2:b2").Copy Range("a32")
'or
'Range("a2:b2").Cut Range("a32")
Range("a1") = Date
End If
End Sub
 
D

David P.

Thank you Don. I played with it by changing the date in A1 so now I see what
it does.

I reallize how now critical it is to tell you what I am trying to do from
the get go. Hopefully I haven't exhasted my tries. Here is what I should have
told you in the beginning:

I have a cell that says "Today" that needs to be moved everyday exactly 30
cells down in the same column. For example if "Today" is in cell A1, on the
following day I need to delete it from A1 and move it to A31 and the next day
it moves from A31 to A61 etc. I'm guessing that the macro would have to know
how to reference what cell "Today" is in everyday in order to have a point
from which to move it down 30 cells.

Next, where do I put this macro so that it fires by itself? I leave the file
open all the time.

I will be more specific next time. Hope this helps you help me and thank you
again.

-David P.
 
Top