Aşağıdaki kod ile F sütunundaki hücrelere çift tıklayarak günün tarihini yazdırıyorum.
Şunu yapamadım. F sütununda en üstteki hücreye çift tıkladığımda dolu olan tüm satırların F sütununa
tek seferde günün tarihini yazdırmak. Yardımınızı rica ediyorum.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [F:F]) Is Nothing Then Exit Sub
Target = Date
Target.Offset(1).Select
End Sub
Şunu yapamadım. F sütununda en üstteki hücreye çift tıkladığımda dolu olan tüm satırların F sütununa
tek seferde günün tarihini yazdırmak. Yardımınızı rica ediyorum.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [F:F]) Is Nothing Then Exit Sub
Target = Date
Target.Offset(1).Select
End Sub