hücreye t yazınca o günün tarihini atsın

[atraks]

merhabalar,
arkadaşlar bir hücreye Tarihin T sini girdiğimde o günün tarihini ve saatini o hücreye girsin istiyorum.

nasıl bir formül olmalı?

 

[Necdet]

Merhaba,

Tarihi yazacağınız hücreye mi "T" harfini girmek istiyorsunuz?

 

[atraks]

evet..............

 

[Necdet]

Merhaba,

Aşağıdaki kodu ilgili sayfanın kod bölümüne kopyalayınız. A1 hücresi için çalışır, siz bunu kendinize göre uyarlayınız.

Public EskiDeger As Date
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target.Value = "t" Or Target.Value = "T" Then
        Target.Value = Now
    Else
        Target.Value = EskiDeger
    End If
        Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    EskiDeger = Target.Value
End Sub

 

[Necdet]

Merhaba,

4 nolu mesaj yenilenmiştir.

"T" harfi dışında yazılacak herhangi bir harf sonucu eski değerini korumak istedim.

 

[atraks]

ben kodu d sütununnn tamamında çalıştırmak istiyorum. A1 ifadesini silip D yazdım. ancak makroyu çalıştıramadım. makroyu çalıştır dediğimde listede bu makronun adı bile gözükmüyor?
sayfayı makro etkin sayfa şekilnde farklı kaydet de yaptım??

 

[Necdet]

Merhaba,

Public EskiDeger As Date

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target.Value = "t" Or Target.Value = "T" Then
        Target.Value = Now
    Else
        Target.Value = EskiDeger
    End If
        Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    EskiDeger = Target.Value
End Sub

 

[atraks]

1-saati göstermiyor, sadece formül yazma çubuğunda saat detayı gözüküypr
2- D sütununa T harfini girince tarih ataıyor evet ama manuel olarak başka bir tarih giremiyorum şu an..bunu da yapabilmem lazım.

 

[Necdet]

Merhaba,

Hoş siz merhaba demeden konuya dalıyorsunuz ya, biz böyle davranmayalım.

1. Saati göstermesi için D sütununu Özel Hücre Biçiminden gg.aa.yyyy ss:dd:nn olarak biçimlendirmelisiniz.
2. Siz sadece t harfi için sormuştunuz oysa kendim de tarih yazabilmeliyim diyorsunuz. Kodlar düzeltildi.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
    If Target.Value = "t" Or Target.Value = "T" Then
        Application.EnableEvents = False
        Target.Value = Now
        Application.EnableEvents = True
    End If
End Sub

 

[atraks]

teşekkür ederim,
(ilk mesajda merhabalar demiştim zaten, konu beşer 10 ar dakika aralarla cevapla yürüdüğü için her defasında merhaba merhaba demek istemedim...)

 

[atraks]

Sn Necdet Yeşertener,

yukarıda eklediğiniz dosyada şu eklemeyi de yapmanız mümkün mü..

F sütununda karşıdaki kişinin sizi arayacağı zamanı giriyoruz. ama buraya sadece gün bazlı tarih atayabiliyoruz. orayı daha da hassaslaştırıp, saat ed girebilir miyiz.. zira gün içinde arayacaklar da buradan uyarı versin istiyorum.

 

[Necdet]

Sn Necdet Yeşertener,

yukarıda eklediğiniz dosyada şu eklemeyi de yapmanız mümkün mü..

F sütununda karşıdaki kişinin sizi arayacağı zamanı giriyoruz. ama buraya sadece gün bazlı tarih atayabiliyoruz. orayı daha da hassaslaştırıp, saat ed girebilir miyiz.. zira gün içinde arayacaklar da buradan uyarı versin istiyorum.

Merhaba,

Doğru mu anladım bilemiyorum. D sütunundaki biçimi F sütununa uygulayınız. Tarih ve Saati aynı anda yazabilirsiniz.