Heybetullah
Altın Üye
- Katılım
- 14 Ocak 2020
- Mesajlar
- 57
- Excel Vers. ve Dili
- Türkçe
- Altın Üyelik Bitiş Tarihi
- 14-04-2025
OTOMATİK TARİH ÇIKMASI ÇİFT TIKLAMA
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
açma tarihi ve kapama isimlerin altında 40 kadar olan kutucuklara
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B1:B80")) Is Nothing Then
Cancel = True
Target.Formula = Date
End If
If Not Intersect(Target, Range("G1:G80")) Is Nothing Then
Cancel = True
Target.Formula = Date
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B10:B49, G10:G49]) Is Nothing Then Exit Sub
If Target = "" Then
Target = Date
Else
Target = ""
End If
End Sub
açma tarihi ve kapama isimlerin altında 40 kadar olan kutucuklara