Makro Yardımı

[Mehmet Sait]

Merhaba,

365 sayfadan oluşan bir tablom var. Her sayfanın A1 hücresine; 01.01.2017 den başlayıp, 1 arttırarak tarih yazdırmak için makro mümkün mü ?

Teşekkürler,

 

[TEGCreative]

Merhaba sayın Dunya_ ; aşağıdaki kodu dener misiniz ?

Sub TEGTarihAt()
Dim sayfa As Worksheet
Dim i As Date
 
i = "01.01.2017"
 
For Each sayfa In ActiveWorkbook.Worksheets
 
sayfa.Range("A1").Value = i
 
i = i + 1  'i değerini her bir sayfada 1 arttır.
 
Next sayfa
End Sub

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod'u boş bir MODÜL'e yapıştırıp çalıştırın.
.

Sub SAYFALARA_TARİH()
tarih = CDate("31.12.2016")
For Each Worksheet In ThisWorkbook.Worksheets
tarih = tarih + 1: Worksheet.[A1] = tarih: Next
End Sub

 

[Mehmet Sait]

Merhaba.

Aşağıdaki kod'u boş bir MODÜL'e yapıştırıp çalıştırın.
.

Sub SAYFALARA_TARİH()
tarih = CDate("31.12.2016")
For Each Worksheet In ThisWorkbook.Worksheets
tarih = tarih + 1: Worksheet.[A1] = tarih: Next
End Sub

Verdiğiniz kodu çalıştırdım. Tüm sayfalara yazdı ama hücrelerde şu formülü kullandığımdan; " =DOLAYLI("'" & $A$1 & "'!" & C27) " makro ile yazılan tarihlerde formül çalışmıyor. Tarih başına ' eklediğimde formül düzeliyor. Makroda yazdırırken başına ' eklemek mümkün mü?

Teşekkür ederim.