Run Macro on condition(cases) and Time Both

[Nilesh singh]

Hi,

I want to combine this two VBA. So that macro should be executed when conditions are met and on time allotted to it.

Private Sub Workbook_Open()
Application.OnTime TimeValue("00:08:00"), "Macro 1"
Application.OnTime TimeValue("00:08:02"), "Macro 2"
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$B$1" Then
Select Case Target.Value
Case Is < 5: Macro 1
Case Is > 5: Macro 2
End Select
End If
End Sub

 

[JLGWhiz]

I don't believe they would combine very well for your purposes. They rely on two completely separate events in two separate code modules to initiate them, both of which are logical for for the desired result. It appears that you want the OnTime event to run when the workbook is first opened in the AM and the other to initiate when if a change occurs in cell B1 of a worksheet. My advice would be to leave it as is.

 

[Nilesh singh]

Hi,

Thank you for your time and consideration.