Naar ander tabblad gaan

[don42]

beste helpers
ben goed geholpen met deze code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then
    If Not Intersect(Range("A2:A" & Sheets("namen").Range("B" & Rows.Count).End(xlUp).Row), Target) Is Nothing Then
        If Target.Value = "" Then UserForm2.Show
    End If
    End If
    Columns("A").AutoFit

Hier mee zet ik dus namen in kolom A

En tegelijk wordt er een tabblad gemaakt met de zelfde naam
de mogelijkheid om een naam toe te voegen is alleen mogelijk bij een lege cel in kolom A
Als een cel met waarde in kolom A geselecteerd word gebeurd er niks....

nu komt mijn vraag:
is het mogelijk als een cel met waarde geselecteerd word er gelinkt wordt naar dat tabblad
bv Cel A6 = Jan Jans
dat bij selectie van deze cel A6(gelijk of via msgbox) tabblad Jan Jans geopend wordt


Is dit mogelijk
Don

 

[edmoor]

Zonder dat je een voorbeeld document plaatst kan ik er alleen dit van maken:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then
        If Not Intersect(Range("A2:A" & Sheets("namen").Range("B" & Rows.Count).End(xlUp).Row), Target) Is Nothing Then
            If Target.Value = "" Then
                UserForm2.Show
            Else
                Sheets(Target.Value).Activate
            End If
        End If
    End If
    Columns("A").AutoFit
End Sub

 

[cow18]

iets analoogs

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then
        If Not Intersect(Range("A2:A" & Sheets("namen").Range("B" & Rows.Count).End(xlUp).Row), Target) Is Nothing Then
            If Target.Value = "" Then
                UserForm2.Show
            Else
                If Target.Column = 1 Then
                    On Error Resume Next
                    Application.Goto Sheets(Target.Value).Range("B10")
                    On Error GoTo 0
                End If
            End If
        End If
    End If
    Columns("A").AutoFit

 

[don42]

Beide opties werken perfect
ik kan weer verder
bedankt beide voor de fijne hulp
Don