Opgelost Standaard na Enter naar bepaalde cel

[B.J.]

Even in korte omschrijving: Als ik in cel A1 een enter geef , dan wil ik automatisch naar B3.
Maar ik heb 16 verschillende cellen , die stuk voor stuk naar een bepaalde cel moeten gaan ,na commando enter.
Bijv. A1 naar B3, C4 naar G5, F15 naar J21 enz.
Hoe moet ik dit oplossen?

 

[SjonR]

zo:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then [B3].Select
If Target.Address = "$C$4" Then [G5].Select
If Target.Address = "$F$15" Then [J21].Select

End Sub

Werkt niet alleen bij ENTER maar bij elke aanpassing van benoemde cellen.

 

[edmoor]

Of:

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address(0, 0)
        Case "A1":  [B3].Select
        Case "C4":  [G5].Select
        Case "F15": [J21].Select
    End Select
End Sub

 

[B.J.]

Snelle reactie.Bedankt, maar ik vergat even dat mijn bestand uit 2 werkbladen bestaat en dat mijn vraag betrekking heeft op maar 1 blad of maakt dat niets uit?

 

[SjonR]

Deze code ( ook die van Edmoor) zet je achter het blad waar het moet werken.

 

[edmoor]

Kijk eens naar de Sub in de Module.
Dan kan je zelf aangeven op welk blad dat moet werken.
Deze werkt via Application.Onkey in de Workbook_Open.
Werkt ook als je niets in een cel veranderd.

 

[B.J.]

Bedankt voor alle reacties