Dubbelclick macro die bladen selecteert obv cell values

[1965Peter]

Goedemorgen allen,

ik heb een voltooid dashboard waar ik graag wat dieper op in wil. Mijn wens is dat wanneer er op een gegeven wordt geklikt (dubbelklik), bijvoorbeeld 10x verkoop in april, dat de macro naar de betreffende sheet gaat en filtert op april om zo die verkopen weer te geven. Nu heb ik redelijk wat ervaring opgedaan met VBA, maar deze code vind ik complex. Ik heb een aantal codes gevonden en ben gaan knutselen. Tot nu toe heb ik het volgende (let op, niet compleet met filters)

Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean)
    'If the double click occurs on the header row or an empty cell, exit the macro.
    If target.Row < 11 Then Exit Sub
    If target.Row > ActiveSheet.UsedRange.Rows.Count Then Exit Sub
    If target.Column > ActiveSheet.UsedRange.Columns.Count Then Exit Sub
    
    'Override the default double-click behavior with this function.
    cancel = True
    
    'Declare your variables.
    Dim wks As Worksheet, xRow As Long
    
    'If an error occurs, use inline error handling.
    On Error Resume Next
    
    'Set the target worksheet as the worksheet whose name is listed in the second cell of the current row.
    Set wks = Worksheets(CStr(Cells(target.Row, 2).Value))
    'If there is an error, exit the macro.
    If Err > 0 Then
        Err.Clear
        Exit Sub
    End If
    wks.Select
End Sub

De macro werkt op dit moment niet. Hij activeert ook niet op een dubbelklik. Ik heb een voorbeeldbestandje toegevoegd waarin ik een korte weergave heb geplaatst van het bestand waar ik mee werk. De macro staat in het tabblad ("Voorblad"). De te selecteren bladen staan in het originele bestand ook in een kolom verborgen. Het bepalen van het te selecteren blad mag geen vaste range zijn, maar moet de row van de target zijn, zodat deze variabel blijft. Vooralsnog hoop ik dat iemand mij verder kan helpen met het selecteren van sheets na de dubbelklik. Het liefst ook zodat er bij een dubbelklik geen optie ontstaat waarmee de cel aangepast kan worden! Iedereen alvast bedankt voor de tijd en moeite!

Met vriendelijke groet,
Peter

 

[VenA]

Om naar het juiste blad te gaan.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Row > 10 And Target.Row < 14 Then
    Cancel = True
    c00 = Cells(Target.Row, 1)
    If Not IsError(Evaluate("'" & c00 & "'!A1")) Then Application.Goto Sheets(c00).Cells(1)
  End If
End Sub

 

[1965Peter]

Bedankt voor de reactie! Deze code werkt, maar niet op mijn computer. Bij een collega getest en daar functioneert de code, maar bij mij blijft hij de cell openen. Ik werk al een tijd met macros, dus deze staan niet uitgeschakeld. Enig idee hoe dit verholpen kan worden?

 

[VenA]

Draai deze code eens en probeer het nogmaals

Sub aan()
  Application.EnableEvents = True
End Sub

 

[1965Peter]

Kijk! Ik had mijn eigen events waarschijnlijk nog uitgeschakeld door het testen. Heel erg bedankt voor de reactie en de hulp!