Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro not running when a change occurs
I am having trouble getting a macro to "fire" when a cell change is made.
The cell is a formula, and the formula is based on a cell that "refreshes" every 30 minutes from a web query. When the cell hits a certain value it should send an email to several workers, but this does not occur. Any thoughts/suggestions? here is the code: Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range If Target.Cells.Count 1 Then Exit Sub On Error GoTo EndMacro If Not Target.HasFormula Then Set rng = Target.Dependents If Not Intersect(Range("C11"), rng) Is Nothing Then If Range("C11").Value < 0 Then MYMACRO End If End If EndMacro: End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro not running when a change occurs
From what I'm finding, the dependents are the cells that reference the target
cell. Is that what you want? No matter, I think I'd change it as follows Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range If Target.Cells.Count 1 Then Exit Sub 'On Error GoTo EndMacro If Not Target.HasFormula Then On Error Resume Next Set rng = Target.Dependents On Error GoTo 0 If Not rng Is Nothing Then If Not Intersect(Range("C11"), rng) Is Nothing Then If Range("C11").Value < 0 Then MYMACRO End If End If Else Debug.Print "There are no dependents to cell " & Target.Address End If EndMacro: End Sub HTH, Barb Reinhardt "Macro not running as intended" wrote: I am having trouble getting a macro to "fire" when a cell change is made. The cell is a formula, and the formula is based on a cell that "refreshes" every 30 minutes from a web query. When the cell hits a certain value it should send an email to several workers, but this does not occur. Any thoughts/suggestions? here is the code: Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range If Target.Cells.Count 1 Then Exit Sub On Error GoTo EndMacro If Not Target.HasFormula Then Set rng = Target.Dependents If Not Intersect(Range("C11"), rng) Is Nothing Then If Range("C11").Value < 0 Then MYMACRO End If End If EndMacro: End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro not running when a change occurs
Worksheet_Change event is not triggered by a calculated value change.
Use Worksheet_Calculate event Gord Dibben MS Excel MVP On Thu, 16 Oct 2008 09:52:01 -0700, Macro not running as intended <Macro not running as wrote: I am having trouble getting a macro to "fire" when a cell change is made. The cell is a formula, and the formula is based on a cell that "refreshes" every 30 minutes from a web query. When the cell hits a certain value it should send an email to several workers, but this does not occur. Any thoughts/suggestions? here is the code: Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range If Target.Cells.Count 1 Then Exit Sub On Error GoTo EndMacro If Not Target.HasFormula Then Set rng = Target.Dependents If Not Intersect(Range("C11"), rng) Is Nothing Then If Range("C11").Value < 0 Then MYMACRO End If End If EndMacro: End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Need to determine where a change in table occurs | Excel Discussion (Misc queries) | |||
How to change process bar % when macro is running | Excel Programming | |||
Running a macro on cell value change | Excel Discussion (Misc queries) | |||
Change event occurs | Excel Programming | |||
How to change a macro while running others? | Excel Programming |