van cel naar cel springen

[Atwist]

Beste forum leden,

Is er een methode om van cel a1 naar cel b5 en vervolgens naar cel a12 te springen.
Ik wil dit gaan gebruiken voor een invul formulier.

Ik hoor het graag

 

[IkEcht]

Je kunt natuurlijk vba achter je blad hangen dat zegt dat na een return gecheckt wordt in welke cel men staat en dan automatisch de volgende door jou gewenste cel activeert.

Ik vermoed dat er geen simpelere oplossing is, maar goed ben ook niet de expert die iedere functie binnen excel kent, dus wie weet vergis ik me wel grondig.

 

[Atwist]

IkEcht,

Dank voor je reactie

Ik ben zelf een grote kluns wat fomules betreft dus ik zoek overal naar een passende formule maar deze was ik nog niet tegen gekomen.

 

[Roncancio]

Het simpelste is volgens mij om de blokkering van die cellen te verwijderen en vervolgens het werkblad te beveiligen.
Je kan dan uitsluitend tussen die cellen springen.

Met vriendelijke groet,


Roncancio

 

[Warme bakkertje]

Atwist, plak volgende code achter het desbetreffende blad (rechtsklikken op Bladtab >> Programmacode weergeven >> Plakken).
Bij Array geef je dan de achtereenvolgende cellen op

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static lastCellIndex As Integer
    Dim Addresses_InOrder As Variant
    If Target.Count = 1 Then
        Addresses_InOrder = Array("$A$1", "$F$5", "$B$12", "$A$6")
        lastCellIndex = lastCellIndex + 1
        If lastCellIndex > UBound(Addresses_InOrder) Then _
        lastCellIndex = LBound(Addresses_InOrder)
        If lastCellIndex < LBound(Addresses_InOrder) Then _
        lastCellIndex = LBound(Addresses_InOrder)
        Application.EnableEvents = False
        Range(Addresses_InOrder(lastCellIndex)).Select
        Application.EnableEvents = True
    End If
End Sub

Mvg

Rudi

 

[Atwist]

Roncancio,

Ik heb het net geprobeerd maar dit gaat niet ik van een paar cellen de blokkering weg gehaald en blad beveiligd maar dan kan ik helemaal niets doen.

 

[Atwist]

Roncancio

Heb nu tekst vakken gemaakt en dan blad beveiligd dan werkt het wel.

Weer een uitdaging minder.

 

[Atwist]

Warm bakkertje

Ik had al iets gevonden maar ga deze formule ook even proberen

Mijn dank is groot

 

[Atwist]

Warm bakkertje,

Deze oplossing is perfect werkt super.
:thumb::thumb: