otomatik tarih verilerini hergün için ayri bir hücreye ka

[metatak]

selam arkada_lar.
benim söyle bir formule ihtiyac1m var. "=bugün()" yazd1g1m zaman bu formülü, ay1n hergünü için ayr1 bir hücre, mesela bu hücreler "D5'ten" baslas1n ve otomatik olarak asag1 dogru s1ralans1n. ve ogünün tarihi yaz1l1nca o tarih orada kals1n. önceki günlerin tarihleri de kaybolmas1n, onlarda görünsün.
simdiden her sey için tesekkürler.

 

[xxrt]

Kodu Dosyanın Çıkıldığı zaman çalışacak Þekilde Auto_Close'ye yazdım..
Siz İstediğiniz Butona verebilirsiniz..

Sub Auto_Close()
Sheets("Sayfa1").Activate
Columns("D:D").Select
    Selection.NumberFormat = "dd/mm/yyyy"
    Cells(5, 4).Select '5.Satır D Sütununa yazdır.
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Value = [a1] 'A1 Tarihin Olduğu Satır
End Sub

 

[metatak]

say1n xxrt; öncelikle alakan1z ve ilginiz için çok tesekkür ederim.
galiba ben eksik anlatt1m. sizin yazd11n1z kodu bir butona yap1st1rd1m.
a1 hücresinede bugünün formülünü yazd1m. butona t1klay1nca, d5'e a1 deki tarihi yaz1yor. tekrar t1klarsam d6 ya ayn1 tarihi yaz1yor.
buton arac1l1g1 ile degilde otomatik olarak, sayfay1 2 gün açmam1s bile olsam, çal1sma kitab1m1 açt1g1m zaman mesela: bugün 1 1 2005 bu tarihi d5'e otomatik olarak yazd1. daha sonra 4 1 2005 te tekrar çal1_ma kitab1n1 aç1nca s1ras1yla;
d5 te 1 1 2005
d6 da 2 1 2005
d7 de 3 1 2005
d8 de 4 1 2005
seklinde görmek istiyorum. ve bu hücreler art1k bu sekilde kay1tl1 olarak kals1nlar. insallah eksik anlatmam1s1md1r. ilginiz için tekrar tesekkürler.

 

[veyselemre]

yardımcı olursa sevinirim...

 

[metatak]

çok tesekkürler veysel kardes. arad1g1m sey buydu. beni cok mutlu ettiniz.

 

[AREASA]

yardımcı olursa sevinirim...

Bu banada lazım yaf hocam tekrar koyabilir misiniz.