More then 1 worksheet_change event
- From: "John" <johnd@xxxxxxxxxxx>
- Date: Fri, 2 Oct 2009 09:00:40 -0400
Hi
I'm just starting to work with VBA and below are my codes.
I would need several routine like this one on the same worksheet but VBE won't
let me ( Can't have more than 1 worksheet_change ).
Can anyone help me ?
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("B1")) Is Nothing Then
If Range("B1") = "on" Then Me.Shapes("Autoshape 5").Visible = True
If Range("B1") = "off" Then Me.Shapes("Autoshape 5").Visible = False
End If
If Range("B1") = "on" Then
Range("A12").Value = "Please go to the next Question"
End If
If Range("B1") = "off" Then
Range("A12").Value = ""
Range("B1").Value = ""
End If
Range("B1").Select
Application.EnableEvents = True
End Sub
Best regards
John
.
- Follow-Ups:
- Re: More then 1 worksheet_change event
- From: Otto Moehrbach
- RE: More then 1 worksheet_change event
- From: john
- Re: More then 1 worksheet_change event
- From: John
- RE: More then 1 worksheet_change event
- From: Jeff
- RE: More then 1 worksheet_change event
- From: Mike H
- RE: More then 1 worksheet_change event
- From: John Bundy
- Re: More then 1 worksheet_change event
- Prev by Date: RE: Variables
- Next by Date: Re: SpecialCells(xlCellTypeBlanks) = error 1004 No cells found
- Previous by thread: Variables
- Next by thread: RE: More then 1 worksheet_change event
- Index(es):
Relevant Pages
|
