20 Snyede bir çalışan makronun başka bir butonla durdurulması

[u.L.a.s]

Merhabalar

Excel üzerinden ip lere ping çeken bir düzen kurdum.

ve bu düzenekte bir butonada 20 snyede bir ping çekmesi için aşağıdaki kodu ekledim

Application.OnTime Now + TimeValue("00:00:20"), "ping"

Bu kodla 20 saniyede bir ip lere ping çekip durumlarını kontrol ediyor.

çalışan görünce ben bir butonla bu makroyu durdurayım istiyorum. Yani 20 snyede bir ping atma işi dursun.

Öyle bir makro buton oluşturulması hususunda bilgi ve yardımlarınızı rica ederim

Teşekkürler

NOT: Konuyu baya araştırdım hatta bu forum üstündede 1-2 tane konu buldum ama o konular yarım kalmış. tam cevabı verilmemiş. o yüzden kendim ayrı bir konu açmak istedim.

 

[halit3]

aşağıdaki linkleri irdeleyiniz.

http://www.excel.web.tr/f48/10sn-bekleme-yaparken-ba-ka-dosya-kullanamyyorum-t134046/post726613.html

http://www.excel.web.tr/f48/application-ontime-nowu-syfyrlatmak-t138027.html

http://www.excel.web.tr/f48/10-saniyede-bir-artan-sayy-t143226.html

 

[Muzaffer Ali]

Yeni bir module açın

Modulün en üst satırına

public Durdurulsunmu as boolean

yazın

Application.OnTime Now + TimeValue("00:00:20"), "ping"

satırının bir üstüne

if Durdurulsunmu then exit sub

yazın

yani şöyle olacak

if Durdurulsunmu then exit sub
Application.OnTime Now + TimeValue("00:00:20"), "ping"

Durdur butonuna

Durdurulsunmu = true

yazın

herhangi bir yerde

Durdurulsunmu = false

kodunu çalıştırmadan artık ping atılan satır hiçbir şekilde çalışmayacaktır

 

[u.L.a.s]

Modüle 2 oluşturdum ve içerisine şu kod düzeneğini yazdım ama olmuyor hatalar alıyorum

Public Durdurulsunmu As Boolean

If Durdurulsunmu Then Exit Sub
Application.OnTime Now + TimeValue("00:00:20"), "time_ping"


Sub Stop_Ping()
Durdurulsunmu = True
End Sub

Durdurulsunmu = False

 

[Muzaffer Ali]

Sayın Halit3'ün verdiği örnekleri inceleyin.

 

[u.L.a.s]

Onlarıda inceledim. bir sürü örnek inceledim ekledim çalıştırdım bir türlü olmadı.

 

[u.L.a.s]

Merhabalar

Aşağıdaki kod düzenini bir butona atadım. o butonla 20 saniyede bir çalıştırdığım makroyu durdurmuş oldum.

Bilgileriniz için teşekkür ederim.

Sub ping_stop()

Application.OnTime Now + TimeValue("00:00:20"), "time_ping", , False

End Sub

 

[u.L.a.s]

Fakat yukarıdaki kod ile il basışta durduruyorum. sonra bir daha başlatıp durdurmak istersem hata veriyordu.

aşağıdaki şekilde revize ettim sorun düzeldi.

Sub ping_stop()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:05"), "time_ping", , False


End Sub