I am trying to get this macro to run but am having trouble:

Public nTime

Sub xx()

nTime = Now + Time(0, 0, 5) ' 5 secs
Application.OnTime nTime, "temp"

End Sub


Sub temp()
Dim iLastRow As Long

Range(Range("C2"), Range("C2").End(xlDown)).Copy
Range("F2").End(xlDown).Offset(1, 0).PasteSpecial _
Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False

nTime = Now + Time(0, 0, 5) ' 5 secs
Application.OnTime nTime, "temp"
End Sub

I place it in a standard module but it does not engage.

Thank you in advance.

Try TimeSerial, not Time

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"carl" wrote in message
...
I am trying to get this macro to run but am having trouble:

Public nTime

Sub xx()

nTime = Now + Time(0, 0, 5) ' 5 secs
Application.OnTime nTime, "temp"

End Sub


Sub temp()
Dim iLastRow As Long

Range(Range("C2"), Range("C2").End(xlDown)).Copy
Range("F2").End(xlDown).Offset(1, 0).PasteSpecial _
Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False

nTime = Now + Time(0, 0, 5) ' 5 secs
Application.OnTime nTime, "temp"
End Sub

I place it in a standard module but it does not engage.

Thank you in advance.

Thank you Bob.

When you suggest trying "TimeSerial", not sure what you mean.

Regards.

"Bob Phillips" wrote:

Try TimeSerial, not Time

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"carl" wrote in message
...
I am trying to get this macro to run but am having trouble:

Public nTime

Sub xx()

nTime = Now + Time(0, 0, 5) ' 5 secs
Application.OnTime nTime, "temp"

End Sub


Sub temp()
Dim iLastRow As Long

Range(Range("C2"), Range("C2").End(xlDown)).Copy
Range("F2").End(xlDown).Offset(1, 0).PasteSpecial _
Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False

nTime = Now + Time(0, 0, 5) ' 5 secs
Application.OnTime nTime, "temp"
End Sub

I place it in a standard module but it does not engage.

Thank you in advance.

He mean changing the line
nTime = Now + Time(0, 0, 5) ' 5 secs
to
nTime = Now + TimeSerial(0, 0, 5) ' 5 secs


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"carl" wrote in message
...
Thank you Bob.

When you suggest trying "TimeSerial", not sure what you mean.

Regards.

"Bob Phillips" wrote:

Try TimeSerial, not Time

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"carl" wrote in message
...
I am trying to get this macro to run but am having trouble:

Public nTime

Sub xx()

nTime = Now + Time(0, 0, 5) ' 5 secs
Application.OnTime nTime, "temp"

End Sub


Sub temp()
Dim iLastRow As Long

Range(Range("C2"), Range("C2").End(xlDown)).Copy
Range("F2").End(xlDown).Offset(1, 0).PasteSpecial _
Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False

nTime = Now + Time(0, 0, 5) ' 5 secs
Application.OnTime nTime, "temp"
End Sub

I place it in a standard module but it does not engage.

Thank you in advance.

nTime = Now + TimeSerial(0, 0, 5) ' 5 secs

carl wrote:

Thank you Bob.

When you suggest trying "TimeSerial", not sure what you mean.

Regards.

"Bob Phillips" wrote:

Try TimeSerial, not Time

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"carl" wrote in message
...
I am trying to get this macro to run but am having trouble:

Public nTime

Sub xx()

nTime = Now + Time(0, 0, 5) ' 5 secs
Application.OnTime nTime, "temp"

End Sub


Sub temp()
Dim iLastRow As Long

Range(Range("C2"), Range("C2").End(xlDown)).Copy
Range("F2").End(xlDown).Offset(1, 0).PasteSpecial _
Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False

nTime = Now + Time(0, 0, 5) ' 5 secs
Application.OnTime nTime, "temp"
End Sub

I place it in a standard module but it does not engage.

Thank you in advance.




--

Dave Peterson

Thanks All. It works not but it wont stop. Bob suggested I use this:

Application.OnTime nTime, "temp",,False

How do I add this to my workbook ?

"Dave Peterson" wrote:

nTime = Now + TimeSerial(0, 0, 5) ' 5 secs

carl wrote:

Thank you Bob.

When you suggest trying "TimeSerial", not sure what you mean.

Regards.

"Bob Phillips" wrote:

Try TimeSerial, not Time

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"carl" wrote in message
...
I am trying to get this macro to run but am having trouble:

Public nTime

Sub xx()

nTime = Now + Time(0, 0, 5) ' 5 secs
Application.OnTime nTime, "temp"

End Sub


Sub temp()
Dim iLastRow As Long

Range(Range("C2"), Range("C2").End(xlDown)).Copy
Range("F2").End(xlDown).Offset(1, 0).PasteSpecial _
Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False

nTime = Now + Time(0, 0, 5) ' 5 secs
Application.OnTime nTime, "temp"
End Sub

I place it in a standard module but it does not engage.

Thank you in advance.




--

Dave Peterson

Start he

Chip Pearson has lots of instructions at:
http://www.cpearson.com/excel/ontime.htm

carl wrote:

Thanks All. It works not but it wont stop. Bob suggested I use this:

Application.OnTime nTime, "temp",,False

How do I add this to my workbook ?

"Dave Peterson" wrote:

nTime = Now + TimeSerial(0, 0, 5) ' 5 secs

carl wrote:

Thank you Bob.

When you suggest trying "TimeSerial", not sure what you mean.

Regards.

"Bob Phillips" wrote:

Try TimeSerial, not Time

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"carl" wrote in message
...
I am trying to get this macro to run but am having trouble:

Public nTime

Sub xx()

nTime = Now + Time(0, 0, 5) ' 5 secs
Application.OnTime nTime, "temp"

End Sub


Sub temp()
Dim iLastRow As Long

Range(Range("C2"), Range("C2").End(xlDown)).Copy
Range("F2").End(xlDown).Offset(1, 0).PasteSpecial _
Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False

nTime = Now + Time(0, 0, 5) ' 5 secs
Application.OnTime nTime, "temp"
End Sub

I place it in a standard module but it does not engage.

Thank you in advance.




--

Dave Peterson


--

Dave Peterson