Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: akngndz - 29 Kasım 2015, 18:45:13

Başlık: Excelde otomatik tarih verme
Gönderen: akngndz - 29 Kasım 2015, 18:45:13

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.

Başlık: Ynt: Excelde otomatik tarih verme
Gönderen: lüte - 07 Aralık 2015, 12:35:13

 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