Hücrede Çift tıklama ile Bugün

[DeliBalta58]

Y28 hücresinde ama sadece Y28 hücresinde mause ile çift tıkladığımızda
bugünün tarihini yazdırabilirmiyiz.

 

[Ali]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [Y28]) Is Nothing Then Exit Sub
Target.Value = Date
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kodları sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [Y28]) Is Nothing Then Exit Sub
[Y28] = Date
End Sub

 

[DeliBalta58]

Her iki uzmanım. Teşekkürler.