Sayfaya tarih doldurma

[soneris]

Bütün sayfaların aynı hücresine tarih saydırabilirmiyiz.
örneğin;

sayfa 1 a1 : 01.01.2017
sayfa 2 a1 : 02.01.2017
.
.
.
Sayfa 365 a1 : 31.12.2017

gibi

 

[Korhan Ayhan]

Aşağıdaki kodu boş bir modüle uygulayıp çalıştırın.

Sub SAYFALARA_TARİH_YAZ()
    Tarih = CDate("01.01.2017")
    For Each Sayfa In ThisWorkbook.Worksheets
        Sayfa.Range("A1").NumberFormat = "dd.mm.yyyy"
        Sayfa.Range("A1") = CDate(Tarih)
        Tarih = CDate(Tarih) + 1
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[soneris]

ilk sayfa ile son sayfayı belirtebilirmiyiz.
teşekkürler.

 

[Korhan Ayhan]

Sayfaların index sırasına göre kod çalışmaktadır. Dahil edilmeyecek sayfaları belirtirseniz koda ekleyebilirim.

 

[soneris]

Ilk iki sayfa eklenmesin mesela

 

[Korhan Ayhan]

Deneyin.

Sub SAYFALARA_TARİH_YAZ()
    Tarih = CDate("01.01.2017")
    For X = 3 To ThisWorkbook.Worksheets.Count
        Sheets(X).Range("A1").NumberFormat = "dd.mm.yyyy"
        Sheets(X).Range("A1") = CDate(Tarih)
        Tarih = CDate(Tarih) + 1
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub