Belirli Zaman Aralığında Makro Otomatik Çalışsın Her 10 Saniyede Bir

[Hantor]

İyi günler;

Sizlerden isteğim bir makro formulüdür. Yardımlarınızı beklemekteyim. Her 10 Saniyede bir çalışan bir makro olması mümkünmüdür. B Hücresinde isimler C hücresinde yüzdeler mevcuttur. Büyükten küçüğe doğru sıralamak mümkünmüdür. Bu makro her 10 saniyede otomatik olarak çalışmasını istiyorum. Bir yere tıklamadan otomatik 10 saniye de 1 devreye girsin çalışsın. Örnek dosya Ek' tedir.

 

[Haluk]

Kripto paraları sorguladığınız sunucu 10 saniyede bir güncelleme yapmanıza izin veriyor mu, onu kontrol edin. Birçok sunucu, sık gönderilen isteklere ait IP adresini bloke eder.

.

 

[Hantor]

Kripto paraları sorguladığınız sunucu 10 saniyede bir güncelleme yapmanıza izin veriyor mu, onu kontrol edin. Birçok sunucu, sık gönderilen isteklere ait IP adresini bloke eder.

.

Sorun olacağını sanmıyorum sadece örnekte bulunan dosyayın 10 saniyede bir yenileme yapılabilir mi?

 

[Haluk]

"Application.OnTime" metodunun kullanımını araştırın bence.....

.

 

[Hantor]

"Application.OnTime" metodunun kullanımını araştırın bence.....

.

Hocam iyi diyorsunu güzel diyorsunuzda yeniyim öyle bir makro yokmu diyorsunuz yani?

 

[Hantor]

Konuya hakim olan bir arkadaş yokmudur.

 

[xadm103]

dosya olarak değil de Kod olarak yazabilir misiniz. Ben de aynı durumdaydım ve saniye olayını çözdüm.

 

[Korhan Ayhan]

Forumda örnekler var. Arama yapmalısınız.

5 dk.arayla çalışan makro

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?

www.excel.web.tr

 

[Hantor]

Forumda örnekler var. Arama yapmalısınız.

5 dk.arayla çalışan makro

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?

www.excel.web.tr

Hocam yanıt vermişsiniz ama benim bahsettiğim ile alakası yok malesef eğer uyarlaya biliyorsanız çok sevinirim.

 

[Hantor]

dosya olarak değil de Kod olarak yazabilir misiniz. Ben de aynı durumdaydım ve saniye olayını çözdüm.

Nasıl çözdünüz hocam elinizde kod varsa paylaşırmısınız.

 

[Korhan Ayhan]

Dosyanıza boş bir modüle ekleyip aşağıdaki kodları uygulayınız.

Sonrasında dosyanızı "Makro İçerebilen Excel Dosyası" formatında kayıt ediniz.

Dosyanızı yeniden başlattığınızda makroları etkinleştirip kullanabilirsiniz.

Option Explicit

Sub Auto_Open()
    Application.OnTime Now + TimeSerial(0, 0, 10), "Sirala"
End Sub

Sub Sirala()
    Range("B3:C" & Rows.Count).Sort Range("C3"), xlDescending
    Call Auto_Open
End Sub

 

[Hantor]

.

 

[Hantor]

Dosyanıza boş bir modüle ekleyip aşağıdaki kodları uygulayınız.

Sonrasında dosyanızı "Makro İçerebilen Excel Dosyası" formatında kayıt ediniz.

Dosyanızı yeniden başlattığınızda makroları etkinleştirip kullanabilirsiniz.

Option Explicit

Sub Auto_Open()
    Application.OnTime Now + TimeSerial(0, 0, 10), "Sirala"
End Sub

Sub Sirala()
    Range("B3:C" & Rows.Count).Sort Range("C3"), xlDescending
    Call Auto_Open
End Sub

Hocam kayı edilemiyor dosyayı kapatınca siliniyor formüller sizlere zahmet olmaz ise ekledğim dosyaya uyarlamanız mümkün müdür?

Ekli dosyalar

• https://www.excel.web.tr/attachments/oernek-dosyadir-xlsx.227587/

 

[Hantor]

Dosyanıza boş bir modüle ekleyip aşağıdaki kodları uygulayınız.

Sonrasında dosyanızı "Makro İçerebilen Excel Dosyası" formatında kayıt ediniz.

Dosyanızı yeniden başlattığınızda makroları etkinleştirip kullanabilirsiniz.

Option Explicit

Sub Auto_Open()
    Application.OnTime Now + TimeSerial(0, 0, 10), "Sirala"
End Sub

Sub Sirala()
    Range("B3:C" & Rows.Count).Sort Range("C3"), xlDescending
    Call Auto_Open
End Sub

Hocam çok teşekkür ederim şimdi oldu harikasınız. Sayenizde çok şeyler öğreniyoruz. Şimdiden hayırlı Bayramlar dilerim.

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

 

[Hantor]

Bu şekilde deneyebilirsiniz.

Teşekkür ederim hocam. Ama sıralama yapmıyor sizin paylaşımınız.

 

[Seyit Tiken]

Excel sürümüyle ilgili olabilir, deneyerek dosyayı yükledim.