Double Click on cell to goto - Help needed please

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Les Stout - 07 Dec 2007 06:26 GMT

Hello all, i got a reply on my last post but it is not doing what i
require. What i need to do is the following: if i click on a specific
cell(named range "Hood") and if it is more than zero then i want to go
to another sheet and show the applicable parts.

I would appreciate any help on this please and i thank you in advance
for any help given.

Best regards,

Les Stout

Reply to this Message

Gary Keramidas - 07 Dec 2007 06:56 GMT

i'll take a stab, just change the sheet references.

paste it on the relevant worksheet code page

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ws As Worksheet
Dim rng As Range
Set ws = Worksheets("Sheet1")

If Not Intersect(Target, Range("hood")) Is Nothing Then
If ws.Range("hood") > 0 Then
Application.Goto (Worksheets("Sheet2").Range("G1")),
scroll:=True
End If
End If
End Sub

Signature

Gary Keramidas

> Hello all, i got a reply on my last post but it is not doing what i
> require. What i need to do is the following: if i click on a specific
[quoted text clipped - 9 lines]
>
> *** Sent via Developersdex http://www.developersdex.com ***

Reply to this Message

Les Stout - 07 Dec 2007 07:31 GMT

Thanks so much Gary, i can work with that.

Best regards,

Les Stout

Reply to this Message

Gary Keramidas - 07 Dec 2007 07:40 GMT

you don't need the dim rng statement, i typed that by habit and never used
it.

Signature

Gary Keramidas

> Thanks so much Gary, i can work with that.
>
[quoted text clipped - 3 lines]
>
> *** Sent via Developersdex http://www.developersdex.com ***

Reply to this Message