Hello,

I would like to run a bit of code whenever the contents of either of two
cells is changed. For both of these cells, changes are done via a drop-list
(data validation)....

Any help getting started would be greatly appreciated!

this is standard event:

in the VBA editor
in the sheet's code
use the

Private Sub Worksheet_Change(ByVal Target As Range)
End Sub

'event

inside it, you can make a
if not ( intersect( Me.Range("A1:A2"),Target) is nothing) then
' ok my cells
end if


because Target is the changed cell
(something else as been entered inside it)

Hi Jeff,

You could use the Change event of the sheet where your cells are located.
Asuming that the cells are [A1] and [C1] try copying the below code into the
VBA module of the sheet in question:

Regards,
KL

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1,C1")) _
Is Nothing Then Exit Sub
MsgBox "Change detected!"
End Sub

Thanks for the response... Unfortunately, it doesn't fire. Here's what I used:


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D3,D5")) _
Is Nothing Then Exit Sub

Do something..............


End Sub


"KL" wrote:

Hi Jeff,

You could use the Change event of the sheet where your cells are located.
Asuming that the cells are [A1] and [C1] try copying the below code into the
VBA module of the sheet in question:

Regards,
KL

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1,C1")) _
Is Nothing Then Exit Sub
MsgBox "Change detected!"
End Sub

Hi Jeff,

Two things to check I guess:

1) Are you sure you put this code into the module of the worksheet where you
change the cells and not in the one of ThisWorkbook, other sheet , a normal
module (such as Module1), or even a module in another workbook?

2) Are the macros enabled?

3) Have you tried to change D3 or D5?

Regards,
KL


"JEFF" wrote in message
...
Thanks for the response... Unfortunately, it doesn't fire. Here's what I
used:


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D3,D5")) _
Is Nothing Then Exit Sub

Do something..............


End Sub


"KL" wrote:

Hi Jeff,

You could use the Change event of the sheet where your cells are located.
Asuming that the cells are [A1] and [C1] try copying the below code into
the
VBA module of the sheet in question:

Regards,
KL

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1,C1")) _
Is Nothing Then Exit Sub
MsgBox "Change detected!"
End Sub

Yes to all three

"KL" wrote:

Hi Jeff,

Two things to check I guess:

1) Are you sure you put this code into the module of the worksheet where you
change the cells and not in the one of ThisWorkbook, other sheet , a normal
module (such as Module1), or even a module in another workbook?

2) Are the macros enabled?

3) Have you tried to change D3 or D5?

Regards,
KL


"JEFF" wrote in message
...
Thanks for the response... Unfortunately, it doesn't fire. Here's what I
used:


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D3,D5")) _
Is Nothing Then Exit Sub

Do something..............


End Sub


"KL" wrote:

Hi Jeff,

You could use the Change event of the sheet where your cells are located.
Asuming that the cells are [A1] and [C1] try copying the below code into
the
VBA module of the sheet in question:

Regards,
KL

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1,C1")) _
Is Nothing Then Exit Sub
MsgBox "Change detected!"
End Sub

other possibility:
are the events enabled ?

Application.EnableEvents = true

you can check the event macro is called by adding a
beep
or a
msgbox "ok"
at the very beginning of the macro

What version of excel are you running?

If it's xl97, take a look at Debra Dalgleish's warning:
http://www.contextures.com/xlDataVal08.html#Change

JEFF wrote:

Thanks for the response... Unfortunately, it doesn't fire. Here's what I used:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D3,D5")) _
Is Nothing Then Exit Sub

Do something..............

End Sub

"KL" wrote:

Hi Jeff,

You could use the Change event of the sheet where your cells are located.
Asuming that the cells are [A1] and [C1] try copying the below code into the
VBA module of the sheet in question:

Regards,
KL

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1,C1")) _
Is Nothing Then Exit Sub
MsgBox "Change detected!"
End Sub




--

Dave Peterson

Hi Dave,

I'm using Excel 2003... I even tried pasting the below (found in Debra's
website) into a new workbook, but no luck.....



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$2" Then
ActiveWindow.Zoom = 120
Else
ActiveWindow.Zoom = 100
End If
End Sub




"Dave Peterson" wrote:

What version of excel are you running?

If it's xl97, take a look at Debra Dalgleish's warning:
http://www.contextures.com/xlDataVal08.html#Change

JEFF wrote:

Thanks for the response... Unfortunately, it doesn't fire. Here's what I used:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D3,D5")) _
Is Nothing Then Exit Sub

Do something..............

End Sub

"KL" wrote:

Hi Jeff,

You could use the Change event of the sheet where your cells are located.
Asuming that the cells are [A1] and [C1] try copying the below code into the
VBA module of the sheet in question:

Regards,
KL

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1,C1")) _
Is Nothing Then Exit Sub
MsgBox "Change detected!"
End Sub




--

Dave Peterson

that's weird :-)

Are you sure you don't have the macro security set to High (menu
ToolsMacroSecurity)?

KL


"JEFF" wrote in message
...
Hi Dave,

I'm using Excel 2003... I even tried pasting the below (found in Debra's
website) into a new workbook, but no luck.....



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$2" Then
ActiveWindow.Zoom = 120
Else
ActiveWindow.Zoom = 100
End If
End Sub




"Dave Peterson" wrote:

What version of excel are you running?

If it's xl97, take a look at Debra Dalgleish's warning:
http://www.contextures.com/xlDataVal08.html#Change

JEFF wrote:

Thanks for the response... Unfortunately, it doesn't fire. Here's what
I used:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D3,D5")) _
Is Nothing Then Exit Sub

Do something..............

End Sub

"KL" wrote:

Hi Jeff,

You could use the Change event of the sheet where your cells are
located.
Asuming that the cells are [A1] and [C1] try copying the below code
into the
VBA module of the sheet in question:

Regards,
KL

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1,C1")) _
Is Nothing Then Exit Sub
MsgBox "Change detected!"
End Sub




--

Dave Peterson