Tarih-saat atama

[thecarow]

Merhaba;
Tıkladığım hücreye güncel tarih ve saatin otomatik olarak atanmasını sağlarım.Örneğin,B sütununun tamamında hangi hücreye tıklarsam o anın tarih ve saatini atayacak.
Saygılarımla.

 

[thecarow]

Amacım;
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 5 Then
If Intersect(Target, Range("D5")) Is Nothing Then Exit Sub
Range("D5") = Now
End If
End Sub

Makrosundaki D5 değerini D5'den D sonsuza kadar olacak şekilde değiştirmek.

 

[numan şamil]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("d5:d65536")) Is Nothing Then Exit Sub
ActiveCell.FormulaR1C1 = "=NOW()"
End Sub
İşinizi görürmü?

 

[thecarow]

Hocam bugün hızır gibisiniz teşekkür ederim.

 

[numan şamil]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("d5:d65536")) Is Nothing Then Exit Sub
ActiveCell(1, 1) = Now

End Sub
Şeklinde denermisiniz

 

[thecarow]

Hocam bu son nokta olmuş

 

[numan şamil]

Hoca kim ben kim
Hocalarımızın yanında biz talebe bile olamayız
işinize yaradığına sevindim
iyi çalışmalar