MarkReddell
Board Regular
- Joined
- Sep 1, 2011
- Messages
- 210
- Office Version
- 365
- Platform
- Windows
- Mobile
Is there a way to do any macro calls from a General position instead of the
Worksheet_Change Mode? For ex.: Private Sub Worksheet_Change(ByVal Target As Range)
CheckArea = "A1:G19" 'The area to be monitored PUT YOUR VALUE
If Application.Intersect(Target, Range(CheckArea)) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Address(False, False) = "A1" And Target.Value <> "" Then Call SORT_LIST
If Target.Address(False, False) = "A2" And Target.Value <> "" Then Call SORT_LIST
If Target.Address(False, False) = "A3" And Target.Value <> "" Then Call SORT_LIST
If Target.Address(False, False) = "A4" And Target.Value <> "" Then Call SORT_LIST
If Range("G4").Value = 1 Then Call ONE_SCENARIO
If Range("G4").Value = 2 Then Call SHOW_TWO_SCENARIOS
If Range("G4").Value = 3 Then Call SHOW_THREE_SCENARIOS
If Range("G4").Value = 4 Then Call SHOW_FOUR_SCENARIOS
If Range("A17").Value = "YES" Then Call SHOW_TERMS_ONLY
If Range("A17").Value = "NO" Then Call DONT_SHOW_TERMS_ONLY
If Target.Address = "$B$2" Then Application.Run Target.Value
Application.EnableEvents = True
End Sub
Worksheet_Change Mode? For ex.: Private Sub Worksheet_Change(ByVal Target As Range)
CheckArea = "A1:G19" 'The area to be monitored PUT YOUR VALUE
If Application.Intersect(Target, Range(CheckArea)) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Address(False, False) = "A1" And Target.Value <> "" Then Call SORT_LIST
If Target.Address(False, False) = "A2" And Target.Value <> "" Then Call SORT_LIST
If Target.Address(False, False) = "A3" And Target.Value <> "" Then Call SORT_LIST
If Target.Address(False, False) = "A4" And Target.Value <> "" Then Call SORT_LIST
If Range("G4").Value = 1 Then Call ONE_SCENARIO
If Range("G4").Value = 2 Then Call SHOW_TWO_SCENARIOS
If Range("G4").Value = 3 Then Call SHOW_THREE_SCENARIOS
If Range("G4").Value = 4 Then Call SHOW_FOUR_SCENARIOS
If Range("A17").Value = "YES" Then Call SHOW_TERMS_ONLY
If Range("A17").Value = "NO" Then Call DONT_SHOW_TERMS_ONLY
If Target.Address = "$B$2" Then Application.Run Target.Value
Application.EnableEvents = True
End Sub