çift tıklama ile hücreye tarih atanması

[siar]

Herkese Merhabalr,

Ben "P" sütunundaki hücrelere, müşterileri aradığım tarih ve saati manuel olarak yazıyorum. Acaba bunu hücreye çift tıklama ile yapabilme imkanım olur mu?

Şimdiden teşekkür ederim.

Saygılarımla,

 

[uzmanamele]

merhaba
bu kod işinizi görür mü?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("p:p")) Is Nothing Then Exit Sub
Target.Cells = Now
End Sub

 

[siar]

çok teşekkür ederim, gayet kullanışlı oldu, elinize sağlık