W
wla6h
I'm using Excel 2003. I have the following code associated with my
worksheet:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
On Error GoTo ws_exit
boolMinimumInfoCompleted = False
boolErrorsFound = True
boolAutomatedWorksheetChange = False
If Not Application.Intersect(Target,
ThisWorkbook.Names("InterestOnlyPeriod").RefersToRange) Is Nothing Then
InterestOnlyPeriod_OnEntry
End If
If Not boolAutomatedWorksheetChange Then
ValidateCostAnalysis
Application.Calculate
End If
ws_exit:
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub
Here's the problem. "InterestOnlyPeriod" is the name of a cell that
contains a data validation drop-down list. I've established that the
Worksheet_Change event fires if I type a selection in the
"InterestOnlyPeriod" cell or if I make a selection from the drop-down
list. However, the first If..Then statement above only evaluates as
"True" if I physically type a selection in the "InterestOnlyPeriod"
cell. If I make a selection from the drop-down list, Worksheet_Change
fires, but this If..Then statement evaluates as false.
Any ideas? Does "Target" have a different value if a selection is made
from the drop-down list?
worksheet:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
On Error GoTo ws_exit
boolMinimumInfoCompleted = False
boolErrorsFound = True
boolAutomatedWorksheetChange = False
If Not Application.Intersect(Target,
ThisWorkbook.Names("InterestOnlyPeriod").RefersToRange) Is Nothing Then
InterestOnlyPeriod_OnEntry
End If
If Not boolAutomatedWorksheetChange Then
ValidateCostAnalysis
Application.Calculate
End If
ws_exit:
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub
Here's the problem. "InterestOnlyPeriod" is the name of a cell that
contains a data validation drop-down list. I've established that the
Worksheet_Change event fires if I type a selection in the
"InterestOnlyPeriod" cell or if I make a selection from the drop-down
list. However, the first If..Then statement above only evaluates as
"True" if I physically type a selection in the "InterestOnlyPeriod"
cell. If I make a selection from the drop-down list, Worksheet_Change
fires, but this If..Then statement evaluates as false.
Any ideas? Does "Target" have a different value if a selection is made
from the drop-down list?