İstenilen Hücre Canlı Saat,Dakika,Saniye ekleme

[gkhn2]

Merhabalar arkadaşlar

Ekte excelim mevcut. Bu excel SQL'den veri çekerek pivot tablolarla düzenleniyor.

Bu anlık bir tablo.

İstediğim şu;

Tüm çalışma kitaplarındaki istediğim hücreye zaman sayacı koymak. gün ay yıl saat dakika saniye olarak.

Sitede bazı konularda var fakat buton koymak gerekiyor ve dosya açılışında otomatik çalışmıyor. Ayrıca sayfayı kilitliyor bir hücreye bir şey yazınca hata veriyor.

http://dosya.co/9y1cpxqwlclf/GÜNLÜK_VE_GENEL_SATIŞ_TOPLAMLARI.rar.html


teşekkür ederim

 

[Asri]

Örnek dosya, Kontrol ediniz.

http://www.dosyaupload.com/Lgj

Bu kodu "BuÇalışmaKitabı" bölüne kopyalayın.

Anlık olarak değişimi görmek istiyorsanız Hücre biçimlendirmeden saniyeyi de biçimlendirmeye dahil edin.

Private Sub Workbook_Open()
   Call RunTimer
End Sub

bu kodu modul1 e kopyalayın

Sub RunTimer()
    On Error Resume Next
    nTime = Now + TimeSerial(0, 0, 1)
    Sheets("GÜNLÜK LİNYİT").Range("D3").Value = nTime
    Sheets("GÜNLÜK KOK-TOZ").Range("D3").Value = nTime
    Sheets("AYLIK LİNYİT").Range("D3").Value = nTime
    Sheets("AYLIK KOK-TOZ").Range("D3").Value = nTime
    Sheets("TÜMÜ").Range("D3").Value = nTime
    Application.OnTime nTime, "RunTimer"
End Sub

 

[gkhn2]

teşekkür ederim olmuş fakat sizin gönderdiğiniz dosyayı denediğimde dosyayı açınca makro otomatik çalışmadı. makrolardan çalıştırınca aktif oldu. bunu dosya açılınca otomatik aktif etme yolu var mıdır?

 

[Asri]

teşekkür ederim olmuş fakat sizin gönderdiğiniz dosyayı denediğimde dosyayı açınca makro otomatik çalışmadı. makrolardan çalıştırınca aktif oldu. bunu dosya açılınca otomatik aktif etme yolu var mıdır?

Bende dosya açıldığı gibi makro da aktif oluyor.
Bu kodu module1 e ekleyip deneyin.

Private Sub Workbook_Open()
   Call RunTimer
End Sub

 

[gkhn2]

Bende dosya açıldığı gibi makro da aktif oluyor.
Bu kodu module1 e ekleyip deneyin.

Private Sub Workbook_Open()
   Call RunTimer
End Sub

tamamdır çok teşekkürler elinize sağlık