Çözüldü Son dolu hücreye kadar güncel tarih verilmesi hakkında.

[yesimgurol]

Merhabalar,
B2 hücresinden itibaren değer var ise, O2 hücresinden itibaren (B2 deki son dolu hücreye kadar) güncel tarih verilmesini istiyordum. Konu ile ilgili aşağıdaki hücreyi buldum fakat isteğime uyarlayamadım maalesef:-(

Sub GununTarihiniYaz()
    Application.ScreenUpdating = False
    Range("O2:O200") = Date
    Application.ScreenUpdating = True
End Sub

 

[ÖmerBey]

Merhaba,
Deneyiniz...

s = Cells(Rows.Count, "B").End(3).Row 'B sütunu son dolu satır
Range("O2:O" & s) = Date

 

[yesimgurol]

Sayın Ömer bey,
Çok teşekkür ederim. Evet oldu şimdi tam istediğim gibi. Saygılarımla..