Excelde otomatik tarih verme

[akngndz]

Değerli Arkadaşlarım,
excelde örneğin kasım ayına ait 30 adet sayfa var ve bu 3 sayfaya isim olarak 01.11.2015 - 30.11.2015 isim olarak verildi. benim sorunum 1. sayfanın her hangi bir hücresine 01.11.2015 yazıp diğer sayfalarında aynı hücresinin devam eden günün tarihini otomatik olarak eklemesi. bu konuda yardımlarınızı bekler. şimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

01.11.2015 sayfasında A1 hücresine tarihi yazın ve aşağıdaki kodları çalıştırın...

Sub kod()
On Error Resume Next
Sayfa="01.11.2015"
ActiveSheet.Next.Select
For i = 1 To [COLOR="DarkRed"]29[/COLOR]
    Range("A1").Formula = "=" & sayfa & "!A1+" & i
    ActiveSheet.Next.Select
Next i
End Sub

. . .