Soru Makro ile Saat Düzenlemesi

[cedi007]

Merhaba,

Alttaki örnek excell sayfasında, makro =NOW() ile bugünün tarihini getirirken saat kısmı da beraberinde gelmekte. Saat kısmının gelmesini istemiyorum.
Örnek olarak kullandığım VBA kodu aşağıdaki gibidir. Nasıl bir düzenlemeyle saat kısmını engelleyebilirim? Desteklerinizi bekliyorum.

Sub Tarih_Getir()

Dim Son As Long, X As Long
Son = Cells(Rows.Count, "T").End(3).Row
For X = 2 To Son
    If Cells(X, 20) = 0 Then
    Cells(X, 21) = Now
    Cells(X, 21).NumberFormat = "dd.mmm"
    End If
Next
End Sub

Excell'deki biçim:

 

[Ömer]

Merhaba,

Now yerine Date kullanarak deneyiniz.

 

[cedi007]

Teşekkürler Syn. @Ömer

 

[Korhan Ayhan]

Alternatifler;

Aşağıdaki 4 satırda bahsettiğiniz işlemi yapar.

Cells(X, 21) = Date
Cells(X, 21) = CDate(Int(CDbl(Now)))
Cells(X, 21) = CDate(Format(Now, "dd.mm.yyyy"))
Cells(X, 21) = CDate(Left(Now, 10))

 

[cedi007]

Alternatifler;

Aşağıdaki 4 satırda bahsettiğiniz işlemi yapar.

Cells(X, 21) = Date
Cells(X, 21) = CDate(Int(CDbl(Now)))
Cells(X, 21) = CDate(Format(Now, "dd.mm.yyyy"))
Cells(X, 21) = CDate(Left(Now, 10))

Teşekkürler syn. @Korhan Ayhan , daha önceki farklı bir konuda paylaşmış olduğunuz kodu kullanıyorum. Alternatifler de çok iyi oldu.