Dubbel klik op cell

[weusty]

Dag allemaal,

ik heb de volgende code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

   If Target.Column = 2 Then Sheets("A").Select
   If Target.Column = 3 Then Sheets("B").Select
   If Target.Column = 4 Then Sheets("C").Select

End Sub

Bij dubbel-klik op bijvoorbeeld kolom 3 ga ik naar blad B.
Eigelijk wil ik deze code niet voor een complete kolom maar voor één bepaalde cell.
Ik ben wat aan het prutsen geweest maar kom er niet uit.

Hier onder het NIET WERKENDE voorbeeld:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Target.Range = ("C2") Then Sheets("A").Select
    If Target.Range = ("C3") Then Sheets("B").Select
    If Target.Range = ("C4") Then Sheets("C").Select

End Sub

Wie o wie help mij aan de juiste code?

Prettig weekend!

 

[Hunac]

Hallo weusty,

Deze code plaatste je:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

   If Target.Column = 2 Then Sheets("A").Select
   If Target.Column = 3 Then Sheets("B").Select
   If Target.Column = 4 Then Sheets("C").Select

End Sub

Kort door de bocht wilde ik de volgende vraag stellen:
Heb je iets geprobeerd in de volgende richting?

   If and(Target.Column = 2, Target.Row = 1) Then Sheets("A").Select

Groet,
Hunac

 

[weusty]

Nope,

maar het is waarschijnlijk wel wat ik bedoel.

Ik was nooit zo van de Columns en de rows, ik zocht altijd alles in range.

Maar ik ga dit morgen zeker eens proberen.

Ga nu eerst slapen!


Bedankt voor je snelle antwoord!!:thumb:

 

[Warme bakkertje]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Application.Goto Sheets(Chr(63 + Target.Row)).[A1]
End Sub