• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

actief beeld afhankelijk van inhoud cel

Status
Niet open voor verdere reacties.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    If Not Intersect(Target, Range("B1")) Is Nothing Then
        If Target.Value = "test" Then Blad9.Activate
    End If
End If
End Sub

Met vriendelijke groet,


Roncancio
 
Dit is de bedoeling

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 2 And Target.Column = 2 And Target.Value = "test" Then
        Application.Goto Reference:="test"
    End If
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan