application.wait hakkında

[serdenm]

merhaba aşağıdaki kod ile istediğim programı belirli bir süre sonra çalıştırabiliyorum.
Sub SER()
Dim i As String
i = Range("b1").Value
Application.Wait Now + i
Shell "C:\WINDOWS\system32\calc.exe "
End Sub

ancak ornegin b1 hucresini 30 dakikaya ayarladigimda, bu süre zarfında cpu %100 oranında kullanılıyor. bunu nasil engelleyebiliriz? 30 dakika dolduktan sonra program çalışsın fakat o süre içerisinde sistem kaynaklarını engellemesin...
teşekkürler.

 

[gene_ben]

bir örnek ekler misiniz

 

[Levent Menteşoğlu]

application.ontime metodunu tercih edin.

 

[serdenm]

sayin leventm,

Application.OnTime Now + i

dedigimde hata veriyor. nasil duzeltebilirim?

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?p=90826#90826

 

[serdenm]

sayin leventm,
problem cozuldu.
tesekkur ederim. :hey: