Bir sonraki tarihler artarak hücrelere yazılsın..

[ersoyalan]

Hocalarım merhaba,

D1 HÜCRESİNE TARİH YAZINCA DİĞER SAYFALARDA 02/01/2008 - 03-01/2008 OLARAK TARİHİN ATMASINI İSTİYORUM..

YARDIMCI OLURSANIZ SEVİNİRİM.

SAYGILAR

E.ALAN

Şu şekilde kod kullandım fakat olmadı hata veriyor..

Private Sub Worksheet_Change(ByVal Target As Range)
For i = 2 To Sheets.Count
Sheets(i).Range("b2") = Sheets("Sayfa1").Range("b2") + (i - 1)
Next i
End Sub

 

[Ayhan Ercan]

Merhaba

Aslında doğru mantıkta ilerlemişsiniz ancak hücre ve sayfa isimlerinde hata yapmışsınız...

"1" isimli sayfanın kod penceresine aşağıdaki kodu yazıp deneyiniz...

Private Sub Worksheet_Change(ByVal Target As Range)
For i = 4 To Sheets.Count
Sheets(i).Range("d1") = Sheets("1").Range("d1") + (i - 3)
Next i
End Sub

 

[ersoyalan]

Hocam çok teşekkürederim.Tam istediğim gibi oldu..Paydos ettiğim için geç cevap yazdım kusura bakmayın..
Syg,
E.ALAN