Help with "Doubleclick event"

[Les]

Hi all, as a dabbler and not a programmer i have been experimenting with
trying to double click on a cell which is a named range and have it take me
to another worksheet but only if the cell value is more than 0.
It must take me to another sub were i will have a filter code to show the
parts relevant to that field.

Any help would be greatly appreciated.

 

[sebastienm]

Hi,
In the code module of the sheet, use the sub BeforeDoubleClick to capture
that event; something like:
'----------------------------------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Range, Cancel As Boolean)
Dim oldEnableEvents as boolean

'''prevent other event to fire while processing
oldEnableEvents= application.enabledEvents
application.enabledEvents=false

'''' YOU CODE OR CALL HERE

'''reset EnableEvents
application.enabledEvents=oldEnableEvents

''' prevent user-edit of the cell
Cancel = True
End Sub
'----------------------------------------------------------------------------

 

[sebastienm]

and by the way, the section of your code would test the cell for values
greater than 0:
'''' YOU CODE OR CALL HERE
If Val(Target.cells(1))>0 then
''' <code>
end if