DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error Resume Next
Target.Value = CDate(Date)
End Sub
Sağolasın arkadaşım. Peki hücreyi ben seçeyim. Command butona tıklayayım. O seçtiğim hücrelere atasın nasıl? macroyu biraz edileyim dedim. Onu yapamadım.A sütununda seçtiğiniz hücrelere bu günkü tarihi verir.
Ekli dosyayı inceleyiniz.
Kod:Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, [A:A]) Is Nothing Then Exit Sub On Error Resume Next Target.Value = CDate(Date) End Sub
Biliyordum.Bunu yinede çok sağolasın. Düşünmen yeterctrl+shift+; bu kombınasyonu dene bence daha kolay
arkadaş makroyu koymuş bende kısayolunu veriyim
Rica ederim.Orion Allah Razı Olsun Ne diyeyim. Sağolasın