Son boş satıra günün tarihini yazmak

[CenTay]

Herkese merhabalar B2 den B100 e kadar dolu tarihim var, B101 boş ben buraya b100 dolu ise günün tarihini yaz demek istiyorum,yani kod b sütunundaki son boş hücreye günün tarihini alsın mesela 24.03.2015 gibi
Yardımcı olacaklara teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kod ile B sütunundaki dolu olan son satırın altına tarihi yazdırabilirsiniz.

Cells(Range("[COLOR="Red"]B[/COLOR]65500").End(3).Row + 1, "[COLOR="red"]B[/COLOR]") = Date

 

[CenTay]

Merhaba,
Aşağıdaki kod ile B sütunundaki dolu olan son satırın altına tarihi yazdırabilirsiniz.

Cells(Range("[COLOR="Red"]B[/COLOR]65500").End(3).Row + 1, "[COLOR="red"]B[/COLOR]") = Date

Teşekkür ederim cevap için,

Bunu formül ile yapmak mümkün mü, eğer mümkünse gereken formülü rica ediyorum.

 

[u.L.a.s]

Son 5 satıra aşağıdaki formülü yaz

=TODAY()

 

[ÖmerBey]

Formül ile günün tarihini yazdırmak için

=BUGÜN()

formülünü kullanabilirsiniz. Ancak son dolu hücreyi bul altına yaz gibi bir durumu formülle yapamazsınız.

 

[Erdem Akdemir]

Aşağıdaki kod mantığına göre yapabilirsiniz?

Formül ile yaparsanız, tarih değişimlerinde veriler güncellenecektir.

Sub ds()
son = Cells(Rows.Count, "a").End(3).Row
For i = 1 To 5
Cells(son + i, "a").Formula = "=TODAY()"
Next i
End Sub

 

[CenTay]

Değerli arkadaşlar önerilerinize ve çözümlerinize teşekkür ederim.