tarih verme

[lüte]

 Sayfa1.Cells(1, 1) = "01.11.2015"
Sayfa2.Cells(1, 1).Value = CDate(Sayfa1.Cells(1, 1).Value) + 1
Sayfa3.Cells(1, 1).Value = CDate(Sayfa2.Cells(1, 1).Value) + 1
Sayfa4.Cells(1, 1).Value = CDate(Sayfa3.Cells(1, 1).Value) + 1
Sayfa5.Cells(1, 1).Value = CDate(Sayfa4.Cells(1, 1).Value) + 1
Sayfa6.Cells(1, 1).Value = CDate(Sayfa5.Cells(1, 1).Value) + 1

End Sub


sayfaları kısaltamadım