Cursor verplaatsen dmv entertoets

[Drieband]

Beste forumleden,
Ben op zoek om de cursor automatisch naar bepaalde cellen te laten verspringen.
Nl,in kolom B,
van b7 naar d7
d7 naar b8,zo tem d22 dan d22 naar h3 en dit voor de acht invulkolommen(B,D,H,J,N,P,T,V).
Inmiddels doe ik dit met behulp van de pijltjestoetsen maar voor de oudere mensen onder ons is dit zelfs te ingewikkeld blijkbaar.Het blad word beveiligd,enkel deze cellen niet.
Iemand een oplossing hieromtrent?
Bedankt bij voorbaat,
Bekijk bijlage Map1.xls

 

[HSV]

Drieband,

Vraagje; Waarom naar kolom C, als daar toch formules staan.
Je hoeft daar immers niets in te vullen.

 

[Drieband]

Harry,
correctie,de invulkolommen zijn:b,d,h,j,n,p,t,en v
Sorry,c moet inderdaad d zijn.
Tot genoegen
Jhonny

 

[HSV]

Test het eens met deze code.
Staat al in het bestand.

Private Sub Worksheet_Change(ByVal Target As Range)
 With Target
  Select Case Target.Address
 Case Is = "$D$22"
    Application.Goto Range("H3"): Exit Sub
 Case Is = "$J$22"
    Application.Goto Range("N3"): Exit Sub
 Case Is = "$Q$22"
    Application.Goto Range("T3"): Exit Sub
  End Select
 End With
 
 
 With Target
    Select Case Target.Column
 Case 2
    Application.Goto .Offset(, 2)
 Case 4
    Application.Goto .Offset(1, -2)
 Case 8
    Application.Goto .Offset(, 2)
 Case 10
    Application.Goto .Offset(1, -2)
 Case 14
    Application.Goto .Offset(, 2)
 Case 16
    Application.Goto .Offset(1, -2)
 Case 20
    Application.Goto .Offset(, 2)
 Case 22
    Application.Goto .Offset(1, -2)
    End Select
  End With
End Sub

 

[Drieband]

Harry,
Bijna perfect,doch bij cel P22 verwijst hij naar T22 ipv T3
Jhonny

 

[HSV]

Mijn excuses Jhonny.

Verander in de code:Case Is = "$Q$22" in
Case Is = "$P$22"

 

[Roncancio]

Iets korter:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 22 And Abs(Target.Column + 2) Mod 6 = 0 Then
    Application.Goto Cells(3, Target.Column + 4)
ElseIf Abs(Target.Column + 2) Mod 6 = 0 Then
     Application.Goto Cells(Target.Row + 1, Target.Column - 2)
Else
     Application.Goto Cells(Target.Row, Target.Column + 2)
End If
End Sub

Met vriendelijke groet,


Roncancio

Met vriendelijke groet,


Roncancio

 

[HSV]

Iets korter:

Iets korter??

Stukken beter dan dat gepruts van mij. :thumb:

 

[Drieband]

Aan beide heren,

Bedankt voor de codes,ze werken allebei perfekt.Hierbij zet ik mijn vraag als zijnde opgelost.

Nogmaals bedankt en tot wederhoren?
Jhonny