Hücreye otomatik tarih ve saat eklemek

[turgayzeynep]

Hocam kolay gelsin iyi çalışmalar Excel'de C3 hücresine Mouse ile çift tıkladığında otomatikmen tarih ve saatin gelmesini Makro ile nasıl yapabilirim Yardımcı olabilir misiniz Teşekkür ederim

 

[alicimri]

İlgili sayfanın kod modülüne aşağıdaki kodu yapıştırın

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$3" Then Target.Value = Now
End Sub

 

[turgayzeynep]

İlgili sayfanın kod modülüne aşağıdaki kodu yapıştırın

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$3" Then Target.Value = Now
End Sub

Hocam N Hücretinin tamamına nasıl yapabilirim n4 olarak değil de tamamı için

 

[turgayzeynep]

Hocam N Hücretinin tamamına nasıl yapabilirim n4 olarak değil de tamamı için

Hocam sadece Saat ve dakika saniyesine gerek yok o şekilde yapabiliyor muyuz

 

[alicimri]

If Target.Address = "$C$3" Then Target.Value = Format(Now, "dd.mm.yyyy hh:mm")

Şeklinde değiştirin

 

[alicimri]

C sütununu mu kast ediyordunuz

If Target.Column = 3 Then Target.Value = Format(Now, "dd.mm.yyyy hh:mm")

 

[turgayzeynep]

Evet hocam C sütununu kastediyorum ve tarihin aynı hücre içerisinde tarihin üste saatinde alt kısımda olmasını istiyorum Yardımcı olursanız sevinirim Kusura bakmayın sizi yordum ama

 

[alicimri]

Bu hücre ile işlem yapamazsınız

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then
Target.Value = Date & Chr(10) & Format(Now, "hh:mm")
Target.HorizontalAlignment = xlCenter
End If
End Sub

 

[turgayzeynep]

O halde hocam N4 sutunu N1000 arası çift tıkladığımda otomatikman tarih ve saat saniye olmayacak şekilde yapalım

 

[alicimri]

Çift tıklamayı C sütununda yapmıyor muyuz "N4 sutunu N1000 arası" nın ne alakası var.

 

[turgayzeynep]

Hocam çok sağ olun Teşekkür ederim Allah razı olsun yaptım sizi de yordum Kusura bakmayın çok çok teşekkür ederim Hakkınızı helal edin

 

[mavi674]

Bu hücre ile işlem yapamazsınız

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then
Target.Value = Date & Chr(10) & Format(Now, "hh:mm")
Target.HorizontalAlignment = xlCenter
End If
End Sub

Hocam kod çok güzel olmuş elinize sağlık
Bu koda 2 ekleme yapabilir miyiz...
1-C sütununa tarih saat eklerken b sütununa da sıra no vermesi ve
2-D sütununa veri girince tarih saat eklemesi

Toparlarsak
D Sütununa veri girince B Sütununa sıra no verip C Sütununa da tarih saat ekleyecek

Teşekkürler....

 

[dEdE]

Merhaba,

D Sütununa veri girince B Sütununa sıra no verip C Sütununa da tarih saat ekleyecek

Sayfanızın ilk satırında üstbilgi olduğunu(Sıra No, Adı Soyadı, Tarih gibi) varsaydım.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D:D")) Is Nothing Then
        Target.Offset(0, -2) = Target.row - 1
        Target.Offset(0, -1) = Date & Chr(10) & Format(Now, "hh:mm")
        Target.Offset(0, -1).HorizontalAlignment = xlCenter
    End If
End Sub

 

[mavi674]

Merhaba dEdE,
çok teşekkürler tam istediğim gibi çalışıyor