Excel Time Function

[boycee]

I am using this code to call a macro every 60 seconds.

I have to manually start the macro first and it seems to do the job.

How can I get the macro to start when I open the workbook automatically?

Sub OnTimeMacro()
Application.OnTime Now + TimeValue("00:01:00"), "Macro2"
End Sub

Sub Macro2()
'
' Macro2 Macro
'

'
ActiveWorkbook.Worksheets("Sorter").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sorter").Sort.SortFields.Add Key:=Range("P1:P200") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sorter").Sort
.SetRange Range("A1:R200")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Call OnTimeMacro
End Sub

[GaryRussell]

In the ThisWorkbook module you can use the Workbook_Open event. Insert the following code into ThisWorkbook

Code: Select all

Private Sub Workbook_Open()
    Macro2
End Sub


[boycee]

In the ThisWorkbook module you can use the Workbook_Open event. Insert the following code into ThisWorkbook

Code: Select all

Private Sub Workbook_Open()
    Macro2
End Sub


Thanks Gary.

[mak]

In the ThisWorkbook module you can use the Workbook_Open event. Insert the following code into ThisWorkbook

Code: Select all

Private Sub Workbook_Open()
    Macro2
End Sub


Gary
something like this will it work if I add it in your AutoReloadQuickpickList example.

something like this:?

Option Explicit

Private Sub Workbook_Open()
Application.OnTime TimeValue("05:00:00"), "loadQuickPickList"
Macro2
End Sub

[alrodopial]

In the ThisWorkbook module you can use the Workbook_Open event. Insert the following code into ThisWorkbook

Code: Select all

Private Sub Workbook_Open()
    Macro2
End Sub


Gary
something like this will it work if I add it in your AutoReloadQuickpickList example.

something like this:?

Option Explicit

Private Sub Workbook_Open()
Application.OnTime TimeValue("05:00:00"), "loadQuickPickList"
Macro2
End Sub

It will run the macro 'loadQuickPickList' every 5 hours.

[mak]

[/quote] It will run the macro 'loadQuickPickList' every 5 hours.[/quote]

Eyxaristo

Will it work with something like this? (no I am afraid)

Option Explicit

Private Sub Workbook_Open()
Application.OnTime TimeValue("05:00:00"), "loadQuickPickList"
End Sub

Private Sub Workbook_Open()
Macro2
End Sub

[alrodopial]

No I don't think it will.
The first code you posted will run the macro2 at the opening and the loadQuickPickList every 5 hours, is this what you want? One macro at the opening and another every ...

[mak]

with this one the macro run every morning at 5:00 (it is working fine)
Option Explicit

Private Sub Workbook_Open()
Application.OnTime TimeValue("05:00:00"), "loadQuickPickList"
End Sub

i have also a macro lets say macro2 which run every 1 hour for example
in order to work i have to manual press run macro2 & then it is working fine

so IF possible i would like macro2 to start automatically too.

I need to know more for "theoretical" reasons for the time being...

[alrodopial]

A very useful site for excel:
http://www.cpearson.com/excel/topic.aspx

and a very good excel forum:
http://www.mrexcel.com/forum/index.php