Çift tıklama ile saat tarih ekleme

[power]

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
ActiveCell = Date & ", " & Time
End Sub

kodu arşiv proğramından aldım.fakat çalıştıramadım. yukarıdaki kodu copy yaptım alt+f11 ile kod bölümüne paste yaptım.bilmiyorum yapılacak başka bir şey varmı?

 

[kartalkartal]

Merhaba,

konuyu inceleyebilirisniz
http://www.excel.web.tr/f48/aktif-hucreye-gunun-tarihini-atmak-t97379.html

kolay gelsin

 

[Korhan Ayhan]

Uygulamak istediğiniz sayfa adı üzerinde sağ klik yapın. KOD GÖRÜNTÜLE komutunu çalıştırın.
Açılan pencereye kodu uygulayın. Son olarak excel sayfasına dönüp herhangi bir hücrede çift tıklayın.

 

[power]

başlığı inceledim ordaki kod çalıştı.gerçi orda sadece tarih var ama.yukarıdaki kod neden çalışmıyor acaba?
korhan ayhan hocam,
dediğiniz gibi yaptım ama çalışmadı.siz denedinizmi acaba?

 

[Korhan Ayhan]

Çok pardon...

Verdiğiniz kod çalışma kitabı olayıdır. Bu sebeple ALT+F11 tuşlarına basın. Açılan kod editöründe sol tarafta "ThisworkBook" ya da "BuÇalışmaKitabı" bölümü var oraya tıklayın.

Sağ tarafta açılan beyaz bölüme kodu uygulayın. Eminim çalışacaktır.

 

[power]

evet hocam çalıştı.çok teşekkür ederim.