Wat doet Application.Goto reference:="abcd"

Status
Niet open voor verdere reacties.

tkint

Gebruiker
Lid geworden
5 dec 2011
Berichten
754
Beste,

Ik vond onderstaande code als oplossing van een vraag maar krijg graag wat verduidelijking over de instructie Application.Goto reference:="spec1".
Spring je daarmee naar een tabblad, naar een bereik of ..................... ?
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$2" Then
        Select Case Target.Value
            Case "202005549": Application.Goto reference:="spec1"
            Case "300076263": Application.Goto reference:="spec2"
            Case "300087928", "300071064", "300100178": Application.Goto reference:="spec3"
            Case "300153893", "300153894", "300153895": Application.Goto reference:="spec5"
            Case "300156593": Application.Goto reference:="spec6"
            Case Else
                If Val(Cells(2, 7)) = 1 Then
                    MsgBox "Gegevens in blad invoer invoeren.", vbExclamation
                End If
        End Select
    End If
End Sub
 
Ik heb de vraag even verplaatst naar VBA aangezien hij daar beter tot zijn recht komt.

Veel succes met de vraag :thumb:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan