Makro sonucu cıkan tarıhlerı formullerde kullanmak

[ADEMES]

MERHABA ,

ASAGIDA KI MAKROYU KULLANARAK TARIH YAZDIRIYORUM. AMA SONUC OLARAK CIKAN TARIHLERI FORMULLERDE KULLANMAK ISTEDIGIMDE OLMUYOR. NASIL BIR YOL IZLEMELIYIM.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [d2:d2000]) Is Nothing Then
Cells(Target.Row, "I") = Format(Now, "dd.mm.yyyy - hh:mm")
End If
End Sub

 

[Ömer]

Merhaba,

İlgili satırı aşağıdakiyle değiştirin.

Cells(Target.Row, "I") = CDate(Format(Now, "dd.mm.yyyy hh:mm"))

.

 

[ADEMES]

teşekkürler sabah beri uğraştım cdate olayını yapamamıştım.

saygılar
adem