na keuze in drop down, gelijknamig tabblad openen..

[waarom]

Bekijk bijlage Soc-IB Bestand.xlsxBeste,

zit met de volgende uitdaging..
Heb op mijn eerste werkblad, een drop down gemaakt..
Vervolgens zou ik graag willen, dat als men daarin een keuze maakt, het bijbehorende tabblad wordt geopend.

Bijgevoegd het bestand.

* Uiteraard benieuwd naar de oplossing maar zeker ook naar de werkwijze om dit te maken..

DANK!

 

[spaarie]

De oplossing en werkwijze

Private Sub Worksheet_Change(ByVal target As Range)
  With Sheets(1)
    If Not Intersect(target, .Range("D2:D" & .Range("D" & Rows.Count).End(xlUp).Row)) Is Nothing Then
    'als een cel in het dynamische bereik van D wijzigt
        If target <> "" Then Application.Goto Sheets(target.Value).Cells(1)
        'als de waarde van gewijzigde cel groter is dan niks, ga dan naar het tabblad met de waarde van de cel
    End If
  End With
End Sub

 

[waarom]

Dag Spaarie...

Geweldig van je..waarschijnlijk een appeltje, eitje maar precies zoals ik het voor ogen had..
Nogmaals dank.

 

[spaarie]

Gelukkig...
Inderdaad is het niet heel ingewikkeld, mits je een beetje bedreven bent ermee.
Ieder heeft zijn kwaliteiten zullen we maar zeggen

Hij kan ook nog wel wat korter (zonder uitleg), volgens mij volstaat dit ook al;

Private Sub Worksheet_Change(ByVal target As Range)
  If Not Intersect(target, Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row)) Is Nothing Then Application.Goto Sheets(target.Value).Cells(1)
End Sub

Maar goed, de vraag was eigenlijk of je de topic als opgelost kon markeren