Çift Tıkladığım Hücreye Saati Otomatik Yazdırmak

[anemis]

Merhaba;

Belirli bir aralıktaki (Örneğin D14:G44 aralığındaki) Hangi hücreye tıklarsam tıklayayım (çift tıklama) o anki bilgisayar saatini otomatik olarak hücreye 08:15 (17:47 şeklinde 24 saatlik olarak) formatlı olarak yazdırmak istiyorum.

Nasıl yapılabilir acaba?

 

[muygun]

Merhaba;

Sayfanın kod bölümüne;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D14:G44")) Is Nothing Then
Target = Format(Time, "hh:mm")
End If
End Sub

Kodlarını yerleştirerek deneyin.
İyi çalışmalar.

 

[anemis]

Hocam çok teşekkür ederim. Tam istediğim gibi oldu. Elinize sağlık.

 

[Seyit Tiken]

Bunu da kodların üstüne ekleyiniz.

Cancel = True