Hücreye eklenmiş tarih ve saat

[ASLAN7410]

Merhaba hayırlı akşamlar.

Ekte gönderdiğim excel dosyamın J1 hücresinde tarih ve saat var, giriş sekmesinden metni kaydır'ı işaretlediğim halde saat kısmı alt tarafa geçmiyor.
Alt+enter ile saati alta alıyorum, butona bastığımda bu saat yine tek satır haline geliyor.

Yardımcı olur musunuz?

 

[ÖmerBey]

Merhaba,
Aşağıdaki gibi deneyebilirsiniz.

With Sheets(1).Range("J1")
    .Formula = "=now()"
    .Value = Replace(.Value, " ", vbLf)
End With

With Sheets(1).Range("J1")
    .Value = Date & vbLf & Time
End With

 

[ASLAN7410]

Sayın Ömer Bey, ellerinize sağlık, çok teşekkür ediyorum, her iki kodda güzel çalışıyor.
Hayırlı geceler diliyorum.

 

[ÖmerBey]

Rica ederim, iyi dilekleriniz için teşekkürler.
İyi çalışmalar diliyorum...

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sub SaatAt()
[j1] = Format(Now, "dd/mm/yyyy hh:mm")
End Sub

 

[ASLAN7410]

Sayın Seyit Bey, size de çok teşekkür ediyorum.
Hayırlı geceler diliyorum.