Ak to má byť pre každý list inkrement podľa poradového čísla listu,
potom by som navrhoval takéto makro:
Code:
Sub Date_to_A5_cells()
Dim i As Byte
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Range("A5").Value = _
CDate(i & "." & Month(Now) & "." & Year(Now))
ActiveWorkbook.Worksheets(i).Range("A5").NumberFormat = "dd/mm/yyyy"
Next i
End Sub
30-11-2016
Myslím, že na problém došiel Jano (
marjankaj), ktorý mi nechal v profile nasledovný odkaz: "
Pali, dal som tam lomítka namiesto bodky a funguje. Excel 2007."
To znamená, že je to vec regionálnych nastavení príslušného počítača.
Takže treba nahradiť:
CDate(i & "." & Month(Now) & "." & Year(Now))
za
CDate(Year(Now) & "/" & Month(Now) & "/" & i )
P.