View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.misc
never never is offline
external usenet poster
 
Posts: 11
Default auto date changing on worksheets

Thanks, but I am techie challenged. I don't know what any of that means or
how/where to input that info. I do know how to run a macros but I'm not
familiar with Dim & iCtr and so forth. Can you help me a little more, please?
Thanks!

"Gord Dibben" wrote:

Run this macro whenever you want to change the incremented dates across
sheets.

Sub Date_Increment()
Dim myDate As Date
Dim iCtr As Long
myDate = InputBox("Enter a date")
For iCtr = 1 To Worksheets.Count
With Worksheets(iCtr).Range("A1")
.Value = myDate - 1 + iCtr
.NumberFormat = "mm-dd-yyyy"
End With
Next iCtr
End Sub


Gord Dibben MS Excel MVP

On Tue, 29 Jul 2008 07:48:12 -0700, never
wrote:

Thanks, but the dates are on different worksheets, not the same one. Monday's
date on worksheet tab 1, Tues on worksheet tab 2, Wed on tab 3 etc... I would
like to have them self date without having to put date on each sheet
manually. For instance you can add a person's name by grouping the sheets, so
you only have to type it in once for the whole week. Right now I am typing in
dates manually, if I use a TODAY() function then it changes each time I open
the worksheet and the worksheets will be opened multiple times on any given
date in the future so this is not a useful function for what I would like to
use. Thanks again for any other ideas.

"Roger Govier" wrote:

Hi

In cell A1 enter your starting date
in A2
=A1+1
Copy down as far as required.

Changing the value in A1, will change all subsequent values

--
Regards
Roger Govier

"never" wrote in message
...
I have worksheets for the week days in the same workbook that I have to
date
everyday. example: 7/28/08, 7/29/08 etc. the format does not matter but I
would like it to auto date instead of entering dates manually each day.
Maybe
if I enter the first date and then it auto adds the other dates for the
remainder of the sheets?
Any help is appreciated. Thanks.