Tabs instellen/stappen maken in blad

[del pierro]

Hallo,

Kan ik op een of andere manier met TAB of andere toets stappen maken door het
excelblad ?

b.v. van A2 direct naar B4 direct naar D7 en elke stap maken door slechts 1 keer
een TAB of enter in te drukken.

Bedankt voor de snelle reactie.

Groeten, Del Pierro

 

[vanveelen]

Ja, maar ik weet niet of dit de oplossing is die je wenst.

Je kunt het werkblad beveiligen en alleen die cellen waar je variabele gegevens ik wilt kunnen voeren onbeschermd laten.
Met de tab-toets spring je dan nog alleen naar de cellen, die niet beveiligd zijn.

Een variant is, dat je in een tweede werkblad - met omschrijving - een bereik aanmaakt waarin je de variabelen injast.
Een koppeling vanuit je oorspronkelijk cellen in het 'hoofd'-werkblad lost je probleem in één keer op.

 

[Warme bakkertje]

Test de bijlage eens uit

 

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$2" Then [B4].Select
  If Target.Address = "$B$4" Then [D7].Select
End Sub

of

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$2" Then Application.Goto [B4]
  If Target.Address = "$B$4" Then Application.GoTo [D7]
End Sub

 

[del pierro]

Nog niet duidelijk

Test de bijlage eens uit

Hallo Rudi,

Bedankt, ik ben niet slim en zeker ook niet dom, maar hoe doe ik dit in een leeg
sheet invoeren. I don't understand.

SVP enige uitleg

Thanks

Groeten, Del Pierro

 

[Warme bakkertje]

Open het voorbeeldbestand en een nieuw, leeg bestand. Druk ALT-F11 en links in het scherm zal je de verschillende bestandsnamen zien staan. Kopieër de code van het voorbeeldbestand( op Blad1 dubbelklikken) naar het gewenste blad van het lege bestand en wijzig bij onderstaande regel de volgorde die je wenst

Addresses_InOrder = Array("$A$1", "$F$5", "$B$12", "$A$6")

 

[snb]

Voortbordurend op Rudi's bijdrage:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Static x As Integer
  Application.EnableEvents = False
  Range("A1,F5,B12,A6").Areas(x + 1).Select
  x = (x + 1) Mod 4
  Application.EnableEvents = True
End Sub

 

[del pierro]

Zoals Bassie zegt

Open het voorbeeldbestand en een nieuw, leeg bestand. Druk ALT-F11 en links in het scherm zal je de verschillende bestandsnamen zien staan. Kopieër de code van het voorbeeldbestand( op Blad1 dubbelklikken) naar het gewenste blad van het lege bestand en wijzig bij onderstaande regel de volgorde die je wenst

Addresses_InOrder = Array("$A$1", "$F$5", "$B$12", "$A$6")

Zoals Bassie zegt: Ik ben wel dom maar niet slim ! :thumb:

Now it's clear, thanks

Del Pierro