Home » Forums » Open Source Learning Center » Question and Answer

Newbie Date function

Submitted by Pcafe on 28 October, 2012 - 16:06

hi all, i have to fill out date at a cell on a worksheet with 30 sheets. the first sheet at a cell is filled with a date, the second sheet should be filled with the day after. I should have a macro to do that.
the first sheet at the cell A(1,1) with 01.11.2012
the second sheet at the cell A(1,1) with 02.11.2012
and so on
thanks for helping

‹ Need help creating a Master file that will update all slave files add code to a macro add row to paste into another sheet ›
»

The following code will

Submitted by The_Barman on 28 October, 2012 - 21:57.

The following code will simply do as you require.
But will error if you do not have 30 sheets :)

Sub date_sheets()

Dim StartDate As Date

StartDate = DateSerial(2012, 11, 1)

For x = 1 To 30

With Sheets(x).Cells(1, 1)
.Value = StartDate + x - 1
.NumberFormat = "dd.mm.yyyy"
End With

Next x

End Sub

»

thanks, it works fine.

Submitted by Pcafe on 29 October, 2012 - 10:23.

thanks, it works fine.

»