• 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.

Cursor verplaatsen via VB script na ENTER

Status
Niet open voor verdere reacties.
C

Cartucci

Gebruiker
Lid geworden
18 aug 2018
Berichten
64
In een scoreformulier wil ik graag een VB script toepassen welke er voor zorgt dat na ENTER, de cursor naar het bovenste invoerveld springt in de volgende kolom, nadat in de huidige kolom de laatste waarde is ingevoerd in de onderste cel van de reeks.

Het aantal deelnemers kan maximaal 7 bedragen maar soms ook een lager aantal, bijvoorbeeld 5. In dat geval is de reeks korter en moet de cursor eerder naar de volgende kolom springen.
Hoe kan ik dat bewerkstelligen via een VB script? Of heeft iemand een andere oplossing?

Zie bijlage ter verduidelijking. Het aantal kolommen voor invoer kan 20 bedragen.
 

Bijlagen

  • voorbeeld scoreformulier.xlsx
    11 KB · Weergaven: 24
Dat kan met iets als dit achter Blad1:
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Column
        Case 2, 3: kol = 1
        Case 7, 8: kol = 6
        Case Else
            Exit Sub
    End Select
    
    i = 2
    While Cells(i, kol) <> ""
       i = i + 1
    Wend
    
    Select Case Target.Address(0, 0)
        Case "B" & i:  doel = "C1"
        Case "C" & i:  doel = "D1"
        Case "G" & i:  doel = "H1"
        Case "H" & i:  doel = "I1"
    End Select
    If doel <> "" Then Application.Goto Range(doel)
End Sub

Uiteraard wel je document opslaan als document met macro's (.xlsm)
 
Laatst bewerkt:
Dank Edmoor. Ik denk dat ik het hier wel mee voor elkaar krijg! Top!

Update: Het werkt perfect. Mijn scoreformulier was langer dan het voorbeeld maar met wat logisch denkwerk is het gelukt. Ik begrijp alleen niet helemaal wat de i nu precies doet in het script.
 
Laatst bewerkt:
Die bepaalt het aantal deelnemers.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan