• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

exel saat ayarı

Katılım
26 Mart 2019
Mesajlar
51
Excel Vers. ve Dili
2016
exelde hücre biçimlendir saat formatını gün-ay-yıl-saat yapınca saatler 00:00 çıkıyor..ben bilgisayarın saati ile aynı olmasını istiyorum
 
Foruma hoş geldiniz.Hücreye aşağıdaki formülü yazdığınızda tarih ve saati verir,ançak sürekli yenilenmez,o anki saati gösterir.İşlem yaptığınız da yeniler.
Kod:
=ŞİMDİ()
 
bunu denedim...bu kodu verince 26-03-2019 yaptığım tüm işlerim o an koyduğum kodun saatini alıyor..
yani 1 saat önce 26-03-2019 18:06 idi 1 saat sonraki kodu yazınca 18:06 19:06 oluyor...ben öyle istemiyorum..eskisi etkilenmesin
 
İstediğiniz işlemi ançak makro ile veya saati klavyen ctrl ve shift basılı iken : (iki nokta üst üste tuşu) tuşuna basarak yapabilirsiniz diye biliyorum.
 
http://s7.dosya.tc/server14/2jlksd/Tarih-Saat.rar.html

Ek te bir örnek verilmiştir. Bu örnekte A2:A251 hücre aralığı Ad Tanımlamasıyla alan olarak isimlendirildi.
alan aralığında herhangi bir değişiklik yapıldığında (veri girme ya da silme) hemen yanındaki hücreye (B kolonundaki hücre)
gg.aa.yyyy ss:dd formatında değişikliğin yapıldığı Tarih ve Saati yazar.

Örnekten hareketle kendi dosyanıza uyarlama yaparsınız...

Sayfanın Kod Bölümündeki kodlar :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [alan]) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Format(Now, "dd.mm.yyyy hh:mm")
End Sub
 
http://s7.dosya.tc/server14/2jlksd/Tarih-Saat.rar.html

Ek te bir örnek verilmiştir. Bu örnekte A2:A251 hücre aralığı Ad Tanımlamasıyla alan olarak isimlendirildi.
alan aralığında herhangi bir değişiklik yapıldığında (veri girme ya da silme) hemen yanındaki hücreye (B kolonundaki hücre)
gg.aa.yyyy ss:dd formatında değişikliğin yapıldığı Tarih ve Saati yazar.

Örnekten hareketle kendi dosyanıza uyarlama yaparsınız...

Sayfanın Kod Bölümündeki kodlar :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [alan]) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Format(Now, "dd.mm.yyyy hh:mm")
End Sub
sizin dediklerinizi yaptım hata verdi...bende benim exeli kopyaladım sizin verdiğiniz exele yapıştırdım böyle oldu..acaba bir hata veririmi böyle
 
sizin dediklerinizi yaptım hata verdi...bende benim exeli kopyaladım sizin verdiğiniz exele yapıştırdım böyle oldu..acaba bir hata veririmi böyle
Uyarlamada probleminiz varsa , dokumanınızın örneğini ekleyin.
uygulamaya yönelik açıklamalarınızı yapın, uyarlamayı yapalım..
 
Geri
Üst