Ecxel

[edpo]

Is het mogelijk om ergens een routine te maken zodat bij het invoeren in rooster na ingave horizontaal na de 5de ingave en Enter er naar de 1ste postie van de 2de lijn wordt gesprongen?

alvast bedankt

Eddy

1 2 3 4 5

6

[kweezie wabbit]

Ik heb een voorbeeldje gemaakt.

Het is blanco maar je kan het uitproberen door de cellen in te vullen.

Laat maar weten wat je er van vindt.

testje.xls

[edpo]

Ik versta de bedoeling niet... ik krijg een leeg werkblad ???

[stegisoft]

Gewoon de eerst cel een getal in vullen dan de volgende enz. (van links naar rechts)

Dan zal je wel zien wat er gebeurd.

[Gast Delusion]

Kijk, edpo, als je daar op enter drukt, gaat hij naar de 1ste cel op de volgende rij...

[edpo]

Sorry voor het late reageren, maar ik was een hele tijd in het buitenland...

inderdaat dat werkt, dat is de bedoeling van mijn vraag... maar waar moet ik dat nu instellen ?

Eddy

[Kevin2]

Ik versta de bedoeling niet... ik krijg een leeg werkblad ???

Vul maar iets in in de eerste 5 cellen en druk daarna naar rechts dan springt de focus naar de volgende rij

Dit effect wordt bereikt door een stukje code namelijk:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If ActiveCell.Column = 6 Then
       Cells(ActiveCell.Row + 1, 1).Select
   End If
End Sub

Hier staat gewoon dat als een cel in kolom 6 geselecteerd wordt dan krijgt de eerste cel op de volgende rij de focus

---------- Post toegevoegd om 11:07 ---------- Vorige post was om 11:02 ----------

Klik op de Microsoft Office Button (linksboven), en klik dan op Excel Options.

Klik op Popular, en selecteer daarna 'Show Developer tab'.

Er is dan een ribbon bijgekomen waar je op visual basic kan klikken

Hier zie je de code en kan je ze eventueel aanpassen

[kweezie wabbit]

Je opent jouw bestand waarin je dit wil toepassen.

Open ook het bestand "testje" uit mijn vorige bericht.

Gebruik dan de toetsencombinatie alt+F11 om de VB editor te openen.

Nu zie je aan de linkerkant een kader met 2 projecten: jouw bestand en mijn "testje".

Indien je dit niet ziet, doe dan ctrl+R om dit kader zichtbaar te maken.

Klap de structuur van beide projecten helemaal open en dubbelklik dan in het project "testje op het blad "testje".

Selecteer alles (ctrl+A) en kopieer het (ctrl+C)

Dubbelklik dan in jouw project op het werkblad waarin je deze procedure wil toepassen.

Selecteer alles en plak dan de tekst uit "testje" (ctrl+V)

Ga nu naar jouw bestand in excell en probeer het uit.

Plak het in elk werkblad waarin je dit wil toepassen

Als het goed werkt, mag je jouw bestand opslaan en de VB editor sluiten.

Als het niet lukt op deze manier hoor (of lees) ik het wel.

[edpo]

Bedankt aan al die mij geholpen hebben.... het werkt perfect.