Sayfaya saat yerleştirme

[ahmett46]

slm arkadaşlar excel sayfasına saat yerleştirmek istiyorum. Ne yapmalıyım.:yardim:

 

[Fuat Şirin]

kodu eklersen saat çıkar

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

 

[ahmett46]

saat

teşekkürler parlemenn

 

[emrexcel123]

aktif saat

eğer aktif istersen şu makroyu dene arkadaşım
sub clock ( )
do
doevents
[a1] = format(now,"hh:mm:ss")
loop
end sub

 

[chevmet]

teşekkürler

 

[erkanmut]

arkadaşlar güzel emeğinize sağlıkta kodu eklermisin demişsiniz de nereye nasıl ekleme yapacağız yardımcı olabilir misiniz. şimdiden teşekkürler

 

[aspuzu21]

ö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

 

[erkanmut]

teşekkür ederim.

ö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

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.

 

[izcik]

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

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.

 

[Orion1]

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.

Buyurun dosya.
Ben bir şey yapmadım.Arkadaşın verdiği kodları modüle koydum sadece.

 

[izcik]

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

 

[Orion1]

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

Olsun zamanla öğrenirseniz.
Baştan bende kodları nereye yazacığımı bilmiyordum.

 

[parametre]

evren bey kodu calıstırdıgımda herseferinde dosyayı tekrar acıyor neden aceba

 

[Mx@Raid]

Sn. Evren Bey bunu StatusBar a nasıl ekleyebiliriz.

 

[Orion1]

evren bey kodu calıstırdıgımda herseferinde dosyayı tekrar acıyor neden aceba

Nasıl açılıyor?
Bende gayet normal çalışıyor.Öyle açılma maçılma olmuyor.

 

[parametre]

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

 

[Orion1]

Sn. Evren Bey bunu StatusBar a nasıl ekleyebiliriz.

Buyurun dosya ektetdir.

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

 

[Orion1]

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

Bilemiyecem.
Bir problem var ama ne olduğunu bilemiyecem.
Ayni dosyayımı açıyor.Yoksa yeni bir excel boş dosyamı açıyor?

 

[F1]

Beni yanlış anlamayın ama evet bu kodlarla excel e saat eklersiniz fakat bu kulağınızı tersten tutmak olur.
Excel illaki saat görmek isterseniz bununla ilgili ocx dosyaları var indirip dosyanıza ekleyebilirsiniz.

 

[pisisler]

eğer aktif istersen şu makroyu dene arkadaşım
sub clock ( )
do
doevents
[a1] = format(now,"hh:mm:ss")
loop
end sub

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.

Bir fikri olan var mı?

Kullandığım kod aynen şöyle:

Sub SaatAta()
    Do
    DoEvents
    [K7] = Format(Now, "hh:mm")
Loop
End Sub

Sub auto_open()
 Module2.SaatAta
End Sub