aktiv hücreye o anki zamanı yazmak

[tuarek]

Merhaba arkadaşlar. Makro kullanarak aktiv olan hücreye o anki zamanı ss:dd cinsinde ve birdaha değişmeyecek şekildie nasıl yazarız. Yani hep sabit kalacak.
ctrl+shift+: bu işi yapıyor ama istediğim klavye ye dokunmadan olabilmesi.
Yardımcı olmayı düşünen herkese şimdiden teşekkürler.

 

[a_self_lion]

ÞÃ?YLE BİR MANTIK GÜDEBİLİRSİN YANINDAKİ VEYA BAÞKA KULLANYACAÐINIZ BİR HÜÇREYE TARİHİ YAZDIRARAK AKTİF OLAN HÜÇREYE Ã?ZEL YAPIÞTIRDAN SADECE DEÐERİ KOPYALATABİLİR VE YAZDIRILAN HÜÇREYİ SİLDİREBİLİRSİNİZ.

SADECE BİR FİKİR....

 

[a_self_lion]

Sub Düğme1_Tıklat()

ActiveCell.Offset(0, 1).Formula = "=today()"
ActiveCell.Offset(0, 1).Copy
ActiveCell.PasteSpecial Paste:=xlValues
ActiveCell.PasteSpecial Paste:=xlFormats
ActiveCell.Offset(0, 1) = ""
Application.CutCopyMode = False

End Sub

Boş bir excel sayfası açarak bir düğme ekleyin ve bu kodları o düğmeye ekeleyin
hangi hüçre aktifse önce bir yanına günün tarihini yazıyor ve aktif olan hüçreye o değeri atıyor yazdığı hüçreyide siliyor
umarım işinizi görür

 

[zimamdar]

alternatif olarak

If activecell.value = "" then
activecell.numberformat = "ss:dd"
activecell.value = saat
saat = activecell.value
Else
msgbox "saat zaten yazılı"
exit sub
end if

 

[a_self_lion]

buda güzel oldu sayın zimamdar ...

 

[tuarek]

a_self_lion ve zimamdar teşekkürler.

a_self_lion yazdığın kodlarda "today" ifadesini "now" olarak değiştirdiğimde istdiğim gibi çalıştı. Fikirlerin için teşekkürler.

 

[a_self_lion]

Rica ederim Yardımımız dokunduysa bu siteyi yapanlara ve emeği geçenlere teşekkür etmek gerekiyor asıl.... :mutlu: