Boş Hücrelere Tarih Yaz

[baydeniro]

MErhaba Arkadaşlar. F1 hücresinde bulunan bugünün tarihini C sütunundaki sadece boş hücrelere yazılması mümkün mü ? Örnek dosya ekte.

 

[leumruk]

Merhaba,
Kodu bir butona bağlayın:

Sub tarih()
For x = 2 To [a65536].End(3).Row
If Cells(x, "c") = "" Then Cells(x, "c") = Date
Next
End Sub

NOT: Bugünün tarihini istediğiniz için hücre bağımlılığı olmaması için Date kullandım. Eğer hücreden tarihi almasını istiyorsanız Date yerine hücre adresini yazınız.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modülle ilişkilendiriniz.

Sub TarihYaz()
    Range("C1:C" & [c65536].End(3).Row).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R1C6"
End Sub

 

[baydeniro]

Sayın leumruk ve Sayın Necdet Yeşertener ilginiz ve yardımlarınız için teşekkür ederim. Sağlıcakla kalın.