Worksheet_Change

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

zimfrancis@hotmail.com - 13 Sep 2007 17:32 GMT

Hi Guys,

I have tried to use the code:

Private Sub Worksheet_Change(ByVal Target As Range)

Rows("6:18").EntireRow.Hidden = False
Rows("20:37").EntireRow.Hidden = False

If Range("c5") = "1" Then
Rows("13:18").EntireRow.Hidden = True
ElseIf Range("c5") = "2" Then
Rows("20:37").EntireRow.Hidden = True
End If

End Sub

The code works ok with one change event. I would like to use it 3-4
times in a worksheet, but get an ambiguous message.

Any ideas

Reply to this Message

FSt1 - 13 Sep 2007 17:58 GMT

hi.
what is the ambiguous message?

regards
FSt1

> Hi Guys,
>
[quoted text clipped - 17 lines]
>
> Any ideas

Reply to this Message

p45cal - 13 Sep 2007 18:06 GMT

it'll be:
Compile error. Ambiguous name detected:Worksheet_Change

Signature

p45cal

> hi.
> what is the ambiguous message?
[quoted text clipped - 23 lines]
> >
> > Any ideas

Reply to this Message

p45cal - 13 Sep 2007 18:02 GMT

I think you can only have 1 Sub Worksheet_Change per sheet, however, you can
use Target (the cells which triggered the change) to decide on a course of
action within that sub.

eg (pseudocode)
if target.column = 3 then do something
if target.column = 2 then do something else

you can check if Target is within a specified range (real code):

If Not Intersect(Target, Range("A3:C6")) Is Nothing Then
MsgBox "It's a hit!"
Else
'do something else
End If

or you can use the Select Case facility.

Signature

p45cal

> Hi Guys,
>
[quoted text clipped - 17 lines]
>
> Any ideas

Reply to this Message