Güven Bey ChatGPT sorarak kısmen sorunlarımı çözmeye çalışıyorum. Size de ChatGPT bu metni verdi:
Excel'de klavye kısayolları ile günün tarihini ve saatinin otomatik olarak hücreye eklenmesini sağlayabiliriz. Ancak sadece tarih veya saat olan hücrelere otomatik olarak bu kısayolları uygulamak biraz daha karmaşık olabilir. Bu durumda VBA (Visual Basic for Applications) kullanarak bir makro oluşturabiliriz.
Aşağıda, tarih veya saat içeren hücrelerde çalışacak basit bir VBA makrosu örneği verilmiştir:
- Öncelikle, Excel dosyanızı açın.
- Klavye kısayolu ALT + F11 ile VBA Editor'ü açın.
- Sol taraftaki Project Explorer'da, dosyanızın altında bulunan "Microsoft Excel Objects"e çift tıklayın.
- Bu klasör altında, "Sheet1 (Sayfa1)" veya "Sheet2 (Sayfa2)" gibi çalışmak istediğiniz sayfanın adını bulun ve çift tıklayın.
- Sağ üst tarafta, "Worksheet" ve "SelectionChange" olayını içeren iki açılır menü bulunur.
- "SelectionChange" olayını seçin ve aşağıdaki VBA kodunu girin:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = 1 Then
If Target.Value = "" Then
If Not Intersect(Target, Range("A:Z")) Is Nothing Then
If Application.CutCopyMode = False Then
If Not IsNumeric(Target.Value) Then
If IsDate(Target.Value) Then
Target.Value = Format(Date, "dd.mm.yyyy")
Else
Target.Value = Format(Now, "hh:mm:ss")
End If
End If
End If
End If
End If
End If
End Sub
7. VBA Editor'ü kapatın.
Bu makro, herhangi bir hücre seçildiğinde çalışacak ve eğer hücre boşsa ve sadece harf içeriyorsa (yani tarih veya saat olarak kullanılmaya uygunsa) klavye kısayolları olan CTRL + Shift + ; (tarih) ve CTRL + Shift + : (saat) kullanılarak tarihi veya saati otomatik olarak ekleyecektir.
Artık tarih veya saat içeren hücreleri seçtiğinizde, klavye kısayolları otomatik olarak işe yarayacaktır. Lütfen unutmayın ki bu işlem sadece sayfa düzeyindeki VBA kodu olduğundan, diğer Excel dosyalarında aynı davranışı göstermeyecektir. İstenirse, diğer sayfalara da aynı makroyu eklemek gerekebilir.
