dubbelklik zoek actie vba

[tobo100]

hallo allemaal,
ik ben opzoek naar een code die door een dubbele klik een unieke waarde kan vinden op
een ander werkblad
heb zelf al wat opgenomen (macro) maar ik kom er toch niet uit
wie kan me helpen, vast bedankt

Bekijk bijlage dubbleklik zoek actie.xlsm

VrGr Tobo100

 

[HSV]

In moduleblad1.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Not Intersect(Target, Range("c2:c13")) Is Nothing Then
  Application.Goto Sheets("Blad2").Columns(1).Find(Target.Value)
 End If
End Sub

 

[tobo100]

super HSV werk perfect dankjewel:thumb: