Yazılan Satır Sonuna Otomaik Saat Ekleme

[starmetin]

Merhaba Arkadaşlar,
excel'de herhangi bir satıra değer girdiğimde otomatik olarak girdiğim değerin sonuna pazantez için o anki saati otomatik olarak yazdırabilirmiyim.Ben değeri yazıp enter tuşuna basınca ilgili yazdığım satırın sonuna o anki saat durumu otomatik olarak yazdırılacak... böyle bir şey mümkün mü ..?

örnek olarak A1 satırına bilgisayar yazdığım zaman

Bilgisayar (16:17)
gibi..

teşekkürler arkadaşlar...

 

[DeliBalta58]

Sub Düğme1_Tıklat()
[a1] = [a1] & Format(Now, "hh:mm:ss") & "   " & Date
End Sub

 

[starmetin]

Sub Düğme1_Tıklat()
[a1] = [a1] & Format(Now, "hh:mm:ss") & "   " & Date
End Sub

selam,
ilginiz için çok sağolun.
yalnız şöyle bir durum var bunu ilgili sayfadaki tüm satırlara nasıl uygulatabilirim birde bunu otomatik hale nasıl getirebiliriz yani değer girip enter tuşuna bastığım zaman saati otomatik koysun, diğer satırlarda bir değişiklik yapmamışsam onlarda bu olay gerçekleşmesin ,sadece değer girdiğim satırda bu işlem gerçekleşsin..çok şeymi istiyorum .
umarım ne yapmak istediğimi anlatabilmişimdir
teşekkürker...

 

[arifcell]

Tarih Saat

Sevgili Kardesim Istedigin Dosya Ekte.
Kolay Gelsin

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayıp denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target <> "" Then Target = Target & " (" & Time & ")"
    Application.EnableEvents = True
End Sub

 

[starmetin]

Sayın:Arifcell ve Cost_control ilginiz ve yardımlarınız için çok teşekkürler...
Cost_controll kardeş tam istediğim gibi olmuş tekrar teşekkürler....