Hallo,

Na het invullen van A1, B1, C1, D1, E1, F1,...... zou ik graag hebben dat na de enter van Fx de cel B1 actief wordt gezet.

Nu moet ik na enter: pijltje beneden, en 17 keer pijltje links klikken.

SoftAid

Hallo DWA,

ja, die home knop brengt mij al wat dichter bij het doel.

Ik schreef dat ik in B1 wilde terecht komen, maar in wekelijkheid is het B2 (na Ax, waarna de formule moet worden doorgetrokken naar alle x bereiken)

Ik spaar dus al een pak getokkel uit met "Home", maar ik zoek toch naar beter:  (B2) na Enter  

Bedankt,

SoftAid

Hoi SoftAid,

Ik weet niet hoe het komt, maar als ik eerst mijn getallen in A1, B1, C1, D1, .... H1 ingeef, en ik druk op Enter gaat ie bij mij terug A2.

Ik moet er wel bij verklappen dat ik mijn TAB toets gebruik om van kolom te wisselen. (Het heeft er wellicht niks mee te maken, maar je weet maar nooit.

Kijk ook eens bij Extra>opties>tabblad bewerken of het vinkje voor "Selectie verplaatsen na Enter" staat en de richting op "omlaag" staat.

groetjes

PS. Als dat niet werkt voor jou zul je in VBA iets in mekaar moeten steken dat je bvb na het ingeven van je waarde in je laatste kolom terug moet gaan en een regeltje zakken. (Dit is simpel uitgelegd , nu het nog in VBA krijgen. )

Hallo Buks,

bedankt om te helpen.
Maar ik kom niet veel verder met je uitleg.
TAB doet je cel naar rechts verspringen.
Enter kan je zelf beslissen door in Extra, Opties, Bewerken..
de richting te kiezen in het vak "Selectie verplaatsen na enter.

Ik moet telkens een reeks klantgegevens invullen in A1, B1, C1, en zo verder tot J1. Om de volgende klantgegevens in te vullen moet mijn cursor terug naar A2.
Ik zou dus graag hebben dat als de Cel J1 ingevuld is, en ik op enter druk, de cel A2 wordt geselecteerd.

SoftAid

Manier 1 : vul je gegevens in maar ga telkens met TAB naar de volgende cel. Als je J1 hebt ingevuld druk je ENTER i.pl.v. TAB en dan moet je normaal gezien in cel A2 komen. Ga zo verder met de TAB tot J2 en nu opnieuw enter. Nu zou je in A3 moeten komen

Hey buks,

Alweer is de eenvoud het mooist!
Deze manier werkt hier perfect.
Nu nog hopen dat 't bij SoftAid ook werkt

dwa

Hallo SoftAid,

Ik weet niet of je iets van VBA (Visual Basic for Application) kent anders kun je het ook nog op deze manier oplossen (ik zal proberen alles stap per stap uit te leggen) :

Start Excel op en daarna de applicatie VBA (draait onder Excel).  VBA kan je opstarten via Alt-F11.

Kies nu in het menu Beeld de Projectverkenner (of Ctrl-R), klik nu op het werkblad waarin je werkt.

In het nieuwe scherm heb je bovenaan twee invulvakken.  In het eerste vak staat (Algemeen), wijzig dit naar WorkSheet.  In het rechter vak verschijnt nu normaal "SelectionChange", indien dit niet zo is kan je dit zelf selecteren.
In het grote werkvak is er nu verschenen :
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

End Sub

We hebben nu een procedure gemaakt die bij iedere verandering van de selectie (op dit werkblad) de code uitvoert tussen "Sub" en "End Sub".

Nu nog de volgende code over typen tussen "Private Sub ..." en "End Sub". Helaas kan je dit niet kopiëren door de copyright   grapje selecteer maar (tot en met "End If"), kopiëren (Ctrl-C) ga naar VBA en plak dit net voor de End Sub :

'We maken een variabele aan Rij die we het gegevenstype Integer geven
Dim Rij As Integer
'Nu kijken we of de geactiveerde cel in kolom K (elfde kolom) staat
'Indien dit zo is wordt er aan de variabel Rij de waarde toegekend van de huidige rij + 1
'Dan wordt kolom A met de nieuwe rij (=variabel Rij) geselecteerd
If ActiveCell.Column = 11 Then
    Rij = ActiveCell.Row + 1
    Range("A" & Rij).Select
End If

Alle lijnen met ' ervoor betreffen commentaarregels, deze hebben geen invloedt op het "programma".

Als je nu in excel je gegevens invult en je komt op kolom K zal hij automatisch naar de volgende rij springen en naar de eerste kolom.

Indien je toevallig toch iets wenst in te geven in kolom K moet je in deze code alle regels als commentaar zetten door er een ' ervoor te plaatsen en nadien opnieuw weg te nemen.

Hopelijk is dit nog een nuttige aanvulling
groetjes

Beste SoftAid,

Je zou eventueel kunnen werken met <> 0 (of de functie Not IsEmpty() ). Dit heeft echter als nadeel als je dan eens niets moet invullen in de kolom J zal je terug naar kolom K gaan en niet zoals gewoonlijk naar een nieuwe rij, zoals meestal gewenst zal zijn.

Ik heb een nieuwe aanpassing gedaan. Ik heb een tweede if structuur toegevoegd die kijkt of de cel op dezelfde rij in kolom L leeg is (functie IsEmpty).  Indien deze cel leeg is voert ze de code verder uit en springt ze terug naar de volgende rij. Indien er iets is ingevuld kan je kolom K (op die rij) ook invullen. Na het invullen kan je L opnieuw leeg maken en dan terugkeren naar K waardoor hij opnieuw de code doorloopt en naar het begin van de volgende rij springt.

Hierna de aangepaste code (enkel de tweede if komt erbij met een End If) :

Dim Rij As Integer
If ActiveCell.Column = 11 Then
    If IsEmpty(Range("L" & ActiveCell.Row)) Then
        Rij = ActiveCell.Row + 1
        Range("A" & Rij).Select
    End If
End If

Er zullen wel nog andere manieren mogelijk zijn met VBA want dat is zo uitgebreid dat je meestal op verschillende manieren aan hetzelfde resultaat kunt komen.

Hopelijk is dat al iets beter (is natuurlijk eenvoudiger dan de code te moeten wijzigen naar commentaar en nadien terug te zetten).
groetjes