Hi all again !!!
i got this error opening my page..

=============
run time error 1004
method 'ontime' of object '_application' failed
=============

on this line ...
Application.OnTime nTime, "RunTimer", , False


.....if i dont set "error resume next"
....how can avoid it ??
This is all the macro.. tx for help !!






Option Explicit

Public nTime As Double

================================================== =

Public Sub StartTimer()

Dim aWB As Workbook
Dim aWS As Worksheet
Set aWB = ThisWorkbook
Set aWS = aWB.Worksheets("Sheet1")

On Error Resume Next
Application.OnTime nTime, "RunTimer", , False '<<<<<<<<<<<<<<
'On Error GoTo 0

aWS.Range("O8").Value = 0
aWS.Range("G10").Calculate

RunTimer
End Sub

What does NTIME equal?

Public Sub StartTimer()

Dim aWB As Workbook
Dim aWS As Worksheet
Set aWB = ThisWorkbook
Set aWS = aWB.Worksheets("Sheet1")

On Error Resume Next
Application.OnTime _
EarliestTime:=nTime, _
Procedu="RunTimer", _
Schedule:=False

'On Error GoTo 0

aWS.Range("O8").Value = 0
aWS.Range("G10").Calculate

RunTimer
End Sub


"pls123" wrote:

Hi all again !!!
i got this error opening my page..

=============
run time error 1004
method 'ontime' of object '_application' failed
=============

on this line ...
Application.OnTime nTime, "RunTimer", , False


....if i dont set "error resume next"
...how can avoid it ??
This is all the macro.. tx for help !!






Option Explicit

Public nTime As Double

================================================== =

Public Sub StartTimer()

Dim aWB As Workbook
Dim aWS As Worksheet
Set aWB = ThisWorkbook
Set aWS = aWB.Worksheets("Sheet1")

On Error Resume Next
Application.OnTime nTime, "RunTimer", , False '<<<<<<<<<<<<<<
'On Error GoTo 0

aWS.Range("O8").Value = 0
aWS.Range("G10").Calculate

RunTimer
End Sub

hi joel, this part of my project have been given to me , but i don't know
exactly what evrything means and do...

what should i do ?!?!?!
what should ntime be ??
does it mean the time for next processing ??

i left this sub unknow because it is called only at the opening of the page,
and with
error go next it doesn't give problems...


"Joel" wrote:

What does NTIME equal?

Public Sub StartTimer()

Dim aWB As Workbook
Dim aWS As Worksheet
Set aWB = ThisWorkbook
Set aWS = aWB.Worksheets("Sheet1")

On Error Resume Next
Application.OnTime _
EarliestTime:=nTime, _
Procedu="RunTimer", _
Schedule:=False

'On Error GoTo 0

aWS.Range("O8").Value = 0
aWS.Range("G10").Calculate

RunTimer
End Sub


"pls123" wrote:

Hi all again !!!
i got this error opening my page..

=============
run time error 1004
method 'ontime' of object '_application' failed
=============

on this line ...
Application.OnTime nTime, "RunTimer", , False


....if i dont set "error resume next"
...how can avoid it ??
This is all the macro.. tx for help !!






Option Explicit

Public nTime As Double

================================================== =

Public Sub StartTimer()

Dim aWB As Workbook
Dim aWS As Worksheet
Set aWB = ThisWorkbook
Set aWS = aWB.Worksheets("Sheet1")

On Error Resume Next
Application.OnTime nTime, "RunTimer", , False '<<<<<<<<<<<<<<
'On Error GoTo 0

aWS.Range("O8").Value = 0
aWS.Range("G10").Calculate

RunTimer
End Sub

hi joel , SORRY AGAIN !

my question is .. may i disable that row definitely ??

tx !!



"Joel" wrote:

What does NTIME equal?

Public Sub StartTimer()

Dim aWB As Workbook
Dim aWS As Worksheet
Set aWB = ThisWorkbook
Set aWS = aWB.Worksheets("Sheet1")

On Error Resume Next
Application.OnTime _
EarliestTime:=nTime, _
Procedu="RunTimer", _
Schedule:=False

'On Error GoTo 0

aWS.Range("O8").Value = 0
aWS.Range("G10").Calculate

RunTimer
End Sub


"pls123" wrote:

Hi all again !!!
i got this error opening my page..

=============
run time error 1004
method 'ontime' of object '_application' failed
=============

on this line ...
Application.OnTime nTime, "RunTimer", , False


....if i dont set "error resume next"
...how can avoid it ??
This is all the macro.. tx for help !!






Option Explicit

Public nTime As Double

================================================== =

Public Sub StartTimer()

Dim aWB As Workbook
Dim aWS As Worksheet
Set aWB = ThisWorkbook
Set aWS = aWB.Worksheets("Sheet1")

On Error Resume Next
Application.OnTime nTime, "RunTimer", , False '<<<<<<<<<<<<<<
'On Error GoTo 0

aWS.Range("O8").Value = 0
aWS.Range("G10").Calculate

RunTimer
End Sub

You are right. The Ontime function isn't doing anything. If the macro(s)
still work then simply eliminate the ONTime statement. I suspect the real
code is in the routine RUNTIMER. It looks like the person who wrote the code
didn't realize the OnError statment masked a problem. Not sure what
changges you made the caused the error to show up.

You have reached the frustration stage of programming in VBA. Everybody
goes through it at the beginning. The POOR documentation and bad examples
that microsoft provides gets everybody inot this state of mind.

"pls123" wrote:

hi joel , SORRY AGAIN !

my question is .. may i disable that row definitely ??

tx !!



"Joel" wrote:

What does NTIME equal?

Public Sub StartTimer()

Dim aWB As Workbook
Dim aWS As Worksheet
Set aWB = ThisWorkbook
Set aWS = aWB.Worksheets("Sheet1")

On Error Resume Next
Application.OnTime _
EarliestTime:=nTime, _
Procedu="RunTimer", _
Schedule:=False

'On Error GoTo 0

aWS.Range("O8").Value = 0
aWS.Range("G10").Calculate

RunTimer
End Sub


"pls123" wrote:

Hi all again !!!
i got this error opening my page..

=============
run time error 1004
method 'ontime' of object '_application' failed
=============

on this line ...
Application.OnTime nTime, "RunTimer", , False


....if i dont set "error resume next"
...how can avoid it ??
This is all the macro.. tx for help !!






Option Explicit

Public nTime As Double

================================================== =

Public Sub StartTimer()

Dim aWB As Workbook
Dim aWS As Worksheet
Set aWB = ThisWorkbook
Set aWS = aWB.Worksheets("Sheet1")

On Error Resume Next
Application.OnTime nTime, "RunTimer", , False '<<<<<<<<<<<<<<
'On Error GoTo 0

aWS.Range("O8").Value = 0
aWS.Range("G10").Calculate

RunTimer
End Sub

PS
it was me that added the
resume next..
...because it had error..
but didnt make any other change !!!
probably that was added , intending to reset any ontime eventually not
closed proprerly (if that is possible)
tx !!



"Joel" wrote:

You are right. The Ontime function isn't doing anything. If the macro(s)
still work then simply eliminate the ONTime statement. I suspect the real
code is in the routine RUNTIMER. It looks like the person who wrote the code
didn't realize the OnError statment masked a problem. Not sure what
changges you made the caused the error to show up.

You have reached the frustration stage of programming in VBA. Everybody
goes through it at the beginning. The POOR documentation and bad examples
that microsoft provides gets everybody inot this state of mind.

"pls123" wrote:

hi joel , SORRY AGAIN !

my question is .. may i disable that row definitely ??

tx !!



"Joel" wrote:

What does NTIME equal?

Public Sub StartTimer()

Dim aWB As Workbook
Dim aWS As Worksheet
Set aWB = ThisWorkbook
Set aWS = aWB.Worksheets("Sheet1")

On Error Resume Next
Application.OnTime _
EarliestTime:=nTime, _
Procedu="RunTimer", _
Schedule:=False

'On Error GoTo 0

aWS.Range("O8").Value = 0
aWS.Range("G10").Calculate

RunTimer
End Sub


"pls123" wrote:

Hi all again !!!
i got this error opening my page..

=============
run time error 1004
method 'ontime' of object '_application' failed
=============

on this line ...
Application.OnTime nTime, "RunTimer", , False


....if i dont set "error resume next"
...how can avoid it ??
This is all the macro.. tx for help !!






Option Explicit

Public nTime As Double

================================================== =

Public Sub StartTimer()

Dim aWB As Workbook
Dim aWS As Worksheet
Set aWB = ThisWorkbook
Set aWS = aWB.Worksheets("Sheet1")

On Error Resume Next
Application.OnTime nTime, "RunTimer", , False '<<<<<<<<<<<<<<
'On Error GoTo 0

aWS.Range("O8").Value = 0
aWS.Range("G10").Calculate

RunTimer
End Sub

hehe you welcome p !!!

i have developed a little theory during the night..

that row is a check that stops the ontime , while opening the page,
for the case it was not closed properly last time,
but it returns error if its all ok, and no ntime was to end...!!




"Joel" wrote:

You are right. The Ontime function isn't doing anything. If the macro(s)
still work then simply eliminate the ONTime statement. I suspect the real
code is in the routine RUNTIMER. It looks like the person who wrote the code
didn't realize the OnError statment masked a problem. Not sure what
changges you made the caused the error to show up.

You have reached the frustration stage of programming in VBA. Everybody
goes through it at the beginning. The POOR documentation and bad examples
that microsoft provides gets everybody inot this state of mind.

"pls123" wrote:

hi joel , SORRY AGAIN !

my question is .. may i disable that row definitely ??

tx !!



"Joel" wrote:

What does NTIME equal?

Public Sub StartTimer()

Dim aWB As Workbook
Dim aWS As Worksheet
Set aWB = ThisWorkbook
Set aWS = aWB.Worksheets("Sheet1")

On Error Resume Next
Application.OnTime _
EarliestTime:=nTime, _
Procedu="RunTimer", _
Schedule:=False

'On Error GoTo 0

aWS.Range("O8").Value = 0
aWS.Range("G10").Calculate

RunTimer
End Sub


"pls123" wrote:

Hi all again !!!
i got this error opening my page..

=============
run time error 1004
method 'ontime' of object '_application' failed
=============

on this line ...
Application.OnTime nTime, "RunTimer", , False


....if i dont set "error resume next"
...how can avoid it ??
This is all the macro.. tx for help !!






Option Explicit

Public nTime As Double

================================================== =

Public Sub StartTimer()

Dim aWB As Workbook
Dim aWS As Worksheet
Set aWB = ThisWorkbook
Set aWS = aWB.Worksheets("Sheet1")

On Error Resume Next
Application.OnTime nTime, "RunTimer", , False '<<<<<<<<<<<<<<
'On Error GoTo 0

aWS.Range("O8").Value = 0
aWS.Range("G10").Calculate

RunTimer
End Sub