DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
emeğine sağlık, işlerimin yoğunluğundan yeni gördüm.ektedeki dosyayı indirdim baktım yalnız ekran kararıyor excel kapanıp tekrar açılıyor. onu çözerimde yalnız dediğim gibi oraya saat yerleştirmeyi nasıl yapıyorsunuz yani sutunda saatın devamlı çalışmasını nasıl sağlıyorsun. onu öğrenmek istiyordum. acemiyim diyorsun ama gördüğün gibi ben daha acemiyim. tekrar teşekkür ediyorum.örnek dosyaya ekledim.Bende acemiyim bu işlerde ama.Ustalarım beni mazur görsünler.Onlardan öğrendiklerimle modüle kodu ekledim.İncelersen faydası olur.saygılar
Dim stopit As Boolean 'on top of module!
Sub startclock() 'assign start button
stopit = False
clock
End Sub
Sub clock()
If stopit = True Then Exit Sub
ActiveWorkbook.Worksheets(1).Cells(1, 1).Value = _
Format(Now, "hh:mm:ss")
Application.OnTime (Now + TimeSerial(0, 0, 1)), "clock"
End Sub
Sub stopclock() 'assign stop button
stopit = True
End Sub
Buyurun dosya.Tahmin ettiğim kadarıyla bu kodlarda saati başlatan ve durduran düğmeler var.
Rica etsem dosya haline gietrebilir misiniz. Ben uğraştım yapamadım.
Olsun zamanla öğrenirseniz.Değerli arkadaşım Evren Gizlen elinize sağlık çok hoş olmuş. Siz "bir şey yapmadım , sadece kodları modüle koydum" diyorsunuz ama ben o kadarını da yapamadım
Nasıl açılıyor?evren bey kodu calıstırdıgımda herseferinde dosyayı tekrar acıyor neden aceba
Buyurun dosya ektetdir.Sn. Evren Bey bunu StatusBar a nasıl ekleyebiliriz.
Dim stopit As Boolean 'on top of module!
Sub startclock() 'assign start button
stopit = False
clock
End Sub
Sub clock()
If stopit = True Then Exit Sub
Application.StatusBar = _
Format(Now, "hh:mm:ss")
Application.OnTime (Now + TimeSerial(0, 0, 1)), "clock"
End Sub
Sub stopclock() 'assign stop button
stopit = True
End Sub
Bilemiyecem.makroyu calıstırıyorum birazdan duruyor tekrar makroyu calıstır diyor onaylıyorum bakıyorum ikinci dosya acılıyor birdaha denedimmi bir tanedaha acılıyor meseleyi cozemedim ne olabilir sizce
Gayet güzel işe yarıyor. auto_open() ile açar açmaz çalışmasını sağlıyorum. Lakin bir hücreyi değiştirmeye çalıştığımda Excel hata verip kapanıyor. Excel 2007.eğer aktif istersen şu makroyu dene arkadaşım
sub clock ( )
do
doevents
[a1] = format(now,"hh:mm:ss")
loop
end sub
Sub SaatAta()
Do
DoEvents
[K7] = Format(Now, "hh:mm")
Loop
End Sub
Sub auto_open()
Module2.SaatAta
End Sub