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

Macro voor cursorverplaatsing

Status
Niet open voor verdere reacties.

JackB

Gebruiker
Lid geworden
20 dec 2002
Berichten
17
Hoe krijg ik het middels een macro voor elkaar, dat de cursor naar de eerste LEGE cel springt van een bepaalde kolom.
Ongeacht de huidige plaats van de cusor in het werkblad.
 
Een deel van je vraag kan ik beantwoorden.

Selecteer een niet lege cel in een bepaalde kolom.
En voer onderstaande macro uit.

Sub EersteCelNaarBeneden()
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
End Sub


Ik ben zeer benieuwd wie de cursor op dat plekje krijgt.
 
zo misschien?

Sub GaNaarEersteLegeCel()
Cells(1, Selection.Column).End(xlDown).Offset(1, 0).Select
End Sub


LUC
 
Vraag opgelost

De tip van LucB heb ik enigszins aangepast en toegepast zodat tevens het gehele venster iets naar links schuift. Het werkt tantastisch!!!!!

Al de benodigde functie staan in de tip, zo hoefde ik slechts een beetje te experimenteren met de parameters.

Enorm bedankt

Groetjes Jack:D
 
Hoi Jack,

Dit is een mooi voorbeeld van 'trage' programmacode.

Selecteer het gebied: A1:A15000
Typ iets, en sluit af met Ctrl Enter.

Hierdoor krijgt gans dit gebied een waarde.
Selecteer daarna cel A1, en voer de macro van LucB uit.
En vergeet niet de tijd op te nemen.

Neem vervolgens de proef met mijn macro. Tip: Kijk op voorhand naar je uurwerk, want tijdens het uitvoeren van die macro zal je er de tijd niet meer voor hebben.

Luc
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan