5 dk.arayla çalışan makro

[hayri tekin]

Merhaba arkadaşlar,
Elimde bir makro var ve ben bunun 5 dk.arayla otomatik olarak çalışmasını istiyorum.Bunun için nasıl bir kod gerekiyor acaba?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz. 10 saniye olarak ayarlıdır. Kendinize göre değiştirebilirsiniz.

Option Explicit
 
Sub AUTO_OPEN()
    DoEvents
    Application.OnTime Now + TimeValue("00:00:10"), "SÜRELİ_MAKRO"
End Sub
 
Sub SÜRELİ_MAKRO()
    DoEvents
    Range("A1") = Time
    AUTO_OPEN
End Sub

 

[hayri tekin]

Sn.Korhan Ayhan üstadım,
Her zamanki gibi yine sorumu yanıtsız bırakmadınız.Çok teşekkürler.
Saygılarımı sunuyorum.

 

[hayri tekin]

Merhaba,
Bu makronun çalışmasında bir sorun yaşıyorum.Şöyle ki, makro çalışırken ben başka bir çalışma sayfasında yada kitabında iken bulunduğum sayfada "A1" hücresine de saati yazıyor.Ben bu makronun sadece "ANAVERİ" isimli sayfada çalışmasını istiyorum.Bunu için ne yapmam gerekir acaba?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Sub SÜRELİ_MAKRO()
    DoEvents
    [COLOR=red]Sheets("ANAVERİ").[/COLOR]Range("A1") = Time
    AUTO_OPEN
End Sub

 

[hayri tekin]

Çok teşekkür ederim üstadım.

 

[hayri tekin]

Üstadım,
Sizin yazdığınız makroda sorun yok.Ama bu defa da benzer sorun bendeki makroda oluşuyor.Birşeyler yapmaya çalıştım ama olmadı maalesef.Makrom başka sayfa yada kitaptayken hata veriyor.Ama "ANAVERİ" sayfasındaysam sorun olmuyor.Bir eksiğim var ama,anlayamadım..Küçük bir örnek dosya ekledim.

 

[Korhan Ayhan]

Selamlar,

Keşke daha ilk mesajınızda sorunuzu sorarken kopyalama yapmak istediğinizi belirtseydiniz. Yazacağımız kodu ona göre düzenlerdik.

Hatayı "Select" komutunu kullandığınız için alıyorsunuz.

Aşağıdaki kod yapısını kullanabilirsiniz. Kitap-Sayfa ve Makro isimlerini kendinize göre değiştirmeyi unutmayın.

Makro kodu yazmaya başlayan arkadaşlarımıza ve size tavsiyem; mümkünse kod yazarken "Select" komutunu kullanmamayı tercih edin. Bu komutu kullanmadan da çoğu işlemi yaptırabilirsiniz.

Sub AUTO_OPEN()
    DoEvents
    Application.OnTime Now + TimeValue("00:00:10"), "TEST"
End Sub
 
Sub TEST()
    Workbooks("ÖRNEK.xls").Sheets("ANAVERİ").Range("B4:B8").Value = Workbooks("ÖRNEK.xls").Sheets("ANAVERİ").Range("A4:A8").Value
    DoEvents
    Workbooks("ÖRNEK").Sheets("ANAVERİ").Range("A1") = Time
    AUTO_OPEN
End Sub

 

[hayri tekin]

Doğrudur üstadım,ne yapmak gerek acaba ?

 

[hayri tekin]

pardon,mesajınızı yeni gördüm

 

[hayri tekin]

Sizi yordum üstad.Herşey için teşekkürler.
Saygılar

 

[can1789]

hay Allah razı olsun yaa öyle işime yaradı ki Korhan Bey çok teşekkürler.DoEvents ve outo open arasına alınca makro tıkır tıkır çalışmaya başladı.

 

[ark123]

Korhan Hocam yazdığınız kodları denedim
"SÜRELİ_MAKRO" makrosu çalıştırılamıyor. Makro bu çalışma kitabında olmayabilir veya tüm makrolar devre dışı bırakılmış olabilir" hata mesajı veriyor.

 

[ark123]

merhaba;
userform üzerinde label1 de sayı var, userform u tıkladığımda 10 sn sonra label1 deki sayı 1 artırılsın ve her 10 saniyede 1 artırılarak devam etsin. yardımlarınız için şimdiden teşekkürler.

 

[feridici_genc]

bir defalığına çalışıyor ve aşağıdaki hatayı alıyorum??
"SÜRELİ MAKRO" makrosu çalıştırılamıyor. Makro bu çalışma kitabında olmayabilir ve tüm makrolar devre dışı bırakılmış olabilir. diye bir hata mesajı alıyorum.

 

[Korhan Ayhan]

Eğer 2 nolu mesajdaki dosyadan bahsediyorsanız çalışması gerekir.

Sonraki mesajlardaki örneklerde ise kodların içinde kitap adı ve sayfa adı bulunuyor. Bunları kendi dosyanıza göre düzenlemeniz gerekiyor. Düzenleme yaptıktan sonra çalışması gerekir.