VBA Olarak Eklediğim Saat Hücreye Yazı Yazarken Aktif Çalışmasını Durduruyor

[FENERIUM1907]

Slm arkadaslar asağıda vermiş oldugum kod ile calıştırdığım aktif yani devamlı butona basınca çalısıyor yanlız hücrelere her hangi bir değer girisi yapınca calısmasını durduruyor tekrar butona basılması gerekiyor bunu nasıl düzeltebiliriz .

sub saat ()
Do
Range("a2") = Format(Now(), "hh:mm:ss")
DoEvents
Loop
End Sub

 

[Orion1]

Ekli dosyayı inceleyiniz.
ilk satır formun declaration (GENERAL) bölümüne yazılacak.

Dim durdur As Boolean
Sub auto_open()
durdur = True
Call saat
End Sub
Sub saat()
DoEvents
Range("A2").Value = Now
If durdur = False Then Exit Sub
Call a
End Sub
Sub a()
Application.OnTime Now + TimeValue("00:00:01"), "saat"
End Sub
Sub dur()
durdur = False
End Sub
Sub basla()
durdur = True
Call saat
End Sub
Sub auto_close()
Call dur
End Sub

 

[FENERIUM1907]

vermiş olduğunuz kod tam istediğim gibi yanlız aynı sayfada bulunan iki saat arasındaki farkı gösteren ve geri sayım yapan fonksiyon

=METNEÇEVİR(B38-F7;"ss")&" Saat"&" "&METNEÇEVİR(B38-F7;"dd")&" Dakika"&" "&METNEÇEVİR(B38-F7;"nn")&" Saniye"

calışmasını durduruyor deger yazısı cıkıyor yada biraz uğrastım bu seferde geri sayım yapacagına ileri sayıyor bu na nasıl bi çözüm bulabiliriz teşekkürler..

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[FENERIUM1907]

Ek teki dosyayı senin uyguladığın gibi uyguladım.Saatin calışması ile diğer hücremdeki geri sayım saati çalıştı fakat bir sorunum daha var ustam, geri sayan saatim 00:00:00 olduktan sonra istiyorum ki 23:59:59 olarak tekrar başlasın ama baslamıyor ve #DEĞER! hatası vermektedir bu sorunu nasıl halledebiliriz .Yardımlarınız için şimdiden tşk.

 

[Orion1]

Tam olarak ne yapmak istediğinizi anlamadım.
Baştan saat istemiştiniz.
Şimdi sayaç diyorsunuz.
Eğer sayaç istiyorsanız,nasıl sayaç istediğinizi açıklamalısnız.
Saat 24ten gerimi gelecek
dosya açıldığından sonra 1 saat gerimi gelecek.Yoksa
1 eksilecekmi sayaç,yoksa 1 artacakmı?
ne bileyim yani bunun gibi şeyler.

 

[Orion1]

Dosya açıldıktan sonra 1 saat geri sayıyor.Süreden 1er saniye düşüyor.
1 saat sonra süre yine yeniden başlıyor.Dosyanız ektedir.

 

[kemalist]

DOSYA TAŞINMIŞTIR
http://www.excel.web.tr/showthread.php?p=476961#post476961

 

[Orion1]

sayın evren merhaba benim sorum ortalama formülü ile hesapladığım satıra sütun eklendiğinde sağ baştaki yılbaşına göre ayarlanmış sütun sabit kalmak üzere formülle veya makro ile hesaplamak hesaplamak.ilginiz için şimdiden teşekkür ederim.ilgili dosya ektedir.

Sorunuzu uygun bölümde uygun başlık açarak sorunuz.Burada bu konu ile ilgisi olmayan başka bir soru çözülüyor.
2nciside ben satır ve sütun ekleme ,böyle bir kaç konu daha var(mesela döngüye girip sayfa ekleme),konularına bakmıyorum.Kolay gelsin.

 

[FENERIUM1907]

sayın üstadlar şu konuya bir daha el atsak..yukarıda vermiş oldugum iki saat arasındaki geri sayım yapan formülün, saat 00:00:00 olduğu zaman tekrar kalan zamanı 23:59:59 olarak geri saydırmak istiyorum.şu anki çalışmasında saat bitime ulaştığında 00:00:00 olduktan sonra #değer! hatası vermektedir.evren hocam zamanın da yard.olmaya çalıştı ama galiba ben anlatamadım.umarım bu sefer anlatabilmişimdir.yardımcı olacaklara şimdiden teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[FENERIUM1907]

Korhan bey yapmak istediğim değer yazan yerlerin,bitimden sonra tekrarr 23:59:59 olarak geri sayım yapmasıdır.resimdeki tabloda

 

[baydeniro]

Sayın Korhan Ayhan. Örnek harika ama galiba biraz daha revizyon istiyor. Örneğin, saati her sayfada çalışyırıyor. Bir de dosyayı kapatamadım. Kendiliğinden sürekli açılıyor.

 

[janveljan]

Konu detaylı işlendiğinden derinlemesine konuya dalamadım ancak şöyle bir çözümde önerebilirim; zamanların farkını alırken normalde küçük olan sayı büyük hale gelince hata oluşuyor, şu şekilde olursa belki aşılabilir.

=EĞER(A7-A2>0;A7-A2;A7-A2+1)

 

[FENERIUM1907]

janveljan çoook tşk ederim tam istediğim buydu.son bir ricam daha olacak bu formülü biraz daha geliştirebilir misin yani 22 saat 14 dakika 15 saniye yazarak geri sayıma devam edebilirmi??

 

[janveljan]

Bunu deneyin.
=SAAT(EĞER(A7-A2>0;A7-A2;A7-A2+1)
)&" Saat "&DAKİKA(EĞER(A7-A2>0;A7-A2;A7-A2+1)
)&" Dakika "&SANİYE(EĞER(A7-A2>0;A7-A2;A7-A2+1)
)&" Saniye "