VBA da tarih yazdırma

[ozelhasan]

basit bir makrom var boşluk olan bölüme tarih yazdırmak istiyorum.
-----------------------------------------------------------------------------------
Sub veriyenile4()
'
' veriyenile4 Makro

Range("Q10").Select
Sheets("Döviz").Select
ActiveWorkbook.RefreshAll
Sheets("DURUM").Select
Range("K3").Select
<------------------------------+
Range("K4").Select
Sheets("Ana sayfa").Select
Range("e1").Select
MsgBox (" Veriler yenilenmiştir...")

End Sub

 

[Orion1]

Buyurun.

ActiveCell.Value = Date

 

[ozelhasan]

Selection.Value = Format(Date, "dd.mm.yyyy")
olarak düzenledim. teşekkür ederim

 

[Orion1]

Formatta olsun istersen.
Aşağıdaki gibi yapın.
Doğrusu!

ActiveCell.NumberFormat = "dd.mm.yyyy"
ActiveCell.Value = Date