Disabling events

[confusion123]

This event starts when a cell is changed:

Private Sub Worksheet_Change(ByVal Target As range)

This event starts when a cell is selected:

Private Sub Worksheet_SelectionChange(ByVal Target As range)

Is there any way I can have the first to run but not the second?

Adding

Application.EnableEvents = False

to the end of the first sub routine didn't help.

Thanks

 

[RoryA]

What are you actually doing to trigger the events?

Setting EnableEvents to False should typically not be done at the end of a routine since no further events will be fired unless you manually run code to reset events, or restart Excel.

 

[confusion123]

I am trying to work out if cells on a particular row has changed value.

So if any of cells A1 to E1 has changed value, then clicking on cell F1 triggers an event, otherwise don't trigger the event.

 

[RoryA]

Do you only need to monitor 1 row or multiple? If it's multiple, do you need to run the selection change code in succession for each row you select that has had a cell changed?

I think a bit more detail would help us to provide a better solution.

 

[confusion123]

The way the spreadsheet works is as follows:

The user makes some changes to row 1, cells A1 to E1. If a change has been made, clicking on G1 will trigger an event.

The next time the user clicks on G1, nothing should happen unless some cell A1 to E1 changes.

 

[Jaafar Tribak]

If I may jump in on this, you could easily achieve this by setting a flag each time a cell is changed in the A1:E1 Range

Something like this :

Private bFlag As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a1:e1")) Is Nothing Then
        bFlag = True
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = Range("g1").Address And bFlag Then
        'run your event code here ..
        bFlag = False
    End If
End Sub

 

[confusion123]

Thanks