Hello to Mike, Chip and Gabor,
Many thanks for your interest in my problem.
I changed Mikes code from 'Now' to 'Now()' and added Chips code.
All is now running smoothly from a pair of buttons. Nice to know there are
generous people like yourselves out there.
Many ,many thanks.
Kindest regards,
Geejay.
"Chip Pearson" wrote:
20 seconds until you stop it with CTRL+Break
Nope. CTRL Break won't cancel an OnTime event. It might break in the
called procedure if it happens to be running when you hit Break, but
that has nothing to do with OnTime.
The code runs very well but, i am unable to stop it.
Sub StopIt()
Application.OnTime RunWhen, "ProcName", , False
End Sub
Cordially,
Chip Pearson
Microsoft Most Valuable Professional,
Excel, 1998 - 2010
Pearson Software Consulting, LLC
www.cpearson.com
On Mon, 15 Mar 2010 11:44:01 -0700, Geejay
wrote:
Hi,
The code runs very well but, i am unable to stop it.
Ctrl + Break has no effect.
Any ideas please?
If I know how to stop it I can try putting it on a toggle button, maybe!
kindest regards
Geejay.
"Mike H" wrote:
Hi,
It sounds line you need application.ontime
Once you start it running the code below will call itself recursively every
20 seconds until you stop it with CTRL+Break. There are programmatic ways of
stopping it if you want to develop this
Public RunTime As Date
Sub MyCode()
RunTime = Now + TimeValue("00:00:20")
Application.OnTime RunTime, "MyCode"
'YOUR CODE
End Sub
--
Mike
When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.
"Geejay" wrote:
I have a macro that records, 5 cells of data from an internet source and then
drops it down a line ready for the next time I push the button.
I would like to automate this procedure, recording every 20 seconds for
about 20 mins. I have created a timer that returns a '1' every 20 seconds and
a zero otherwise. The '1' is visible for one second.
I need help in marrying the timer,sourced from a formula, to the macro.
Can anyone help, bearing in mind that I am new to this.
.