Eğer Tarih

[randzafer]

Merhaba aşağıdaki formül ile yapmak istediğim; Kod kısmına yaptığım her yeni iş için bir sayı veriyorum ve buna bağlı olarak TARİH sütununa o anki işin tarihini ve saatini yazdırmak, fakat "ŞİMDİ" formülünü kullandığım için yarın olunca bütün formülleri hep "ŞİMDİ" ye çeviriyor, dolayısıyla dün yaptığım işlerin tarihi ve saati dünde kalması gerekiyor. Aslında D3 formülü ile kurguyu yaptığımı düşünüyorum ama Tarih ve Saat biçimlerinden dolayı (biçimlendirme "gg.aa.yy ss:dd" olacak) formülü bir türlü uygulayamadım Tarih i hep bugünün tarihi olarak alıp güncelliyor. Yardımlarınızı rica ederim. Teşekkürler.

KOD TARİH
5.591 02.05.16 09:00
5.592 03.05.16 10:58 EĞER(A3<>0;SAAT(B2)+(ŞİMDİ()-SAAT(B2));"")

 

[randzafer]

Merhaba, konu biraz acil; değerli üstatlarımız yardımcı olursa sevinirim. Teşekkürler.

 

[asi_kral]

Merhaba
Formülle yaptığınız takdirde her formül çalıştığında otomatik hepsini günceller bunun için makro kullanmalısınız ?
Sayfanızın kod bölümüne

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, Range("A:A")) Is Nothing Then _
Application.EnableEvents = True: Exit Sub
Cells(Target.Row, "B") = Now
Application.EnableEvents = True
End Sub

Bu kodu kopyalayın ve A sütununda herhangi bir yere bilgi girişi yapın. sonuçları gözlemleyin.

Not : Dosyanızı kaydederken Makro içerebilen excel dosyası şeklinde kayıt yapmalısınız.

 

[randzafer]

asi_kral , yardımlarınız için teşekkürler, makro yazıp denemek istiyorum ama şöyle bir hata alıyorum; " System Error &H80070057 (-221470248). Parametre Hatalı " ...

 

[asi_kral]

Ekli dosyayı inceleyin lütfen.

 

[randzafer]

Teşekkürler, aldığım hata versiyon uyumsuzluğuyla ilgili başka bir hataymış galiba, internette forum sitelerinde yazmış ama diğer makrolarım çalışmıyor bununla ilgili bir şey yapmam gerekiyor fakat ne yapmam gerektiğini anlamadım, asi_kral emeğiniz ve desteğiniz için teşekkürler.