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 ..................... ?
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