Help with dates Closed

Question

Hello,
What is the formula or how do I automaticall change the date from one sheet to another?
Ex. Sheet 1 A5(Date) needs to add one to sheet 2 A5 (Date) and so on and so on.
How do I get this to happen?

venkat1926 · Answer

try this modify to suit you

Sub test()
Dim ddate, j As Integer, k As Integer
With Worksheets("sheet1")
ddate = .Range("a1").Value
j = Worksheets.Count
For k = 2 To j
With Worksheets("sheet" & k)
ddate = ddate + 1
.Range("a1") = ddate
End With
Next k
End With
End Sub

Help with dates

1 response

Similar discussions

Subscribe To Our Newsletter!