Formule om naar een cel te gaan.

[kabebanaan]

Hallo,

Welke formule moet ik invullen in mijn werkblad voor de volgende handeling?

Ik wil dat .waar ik ook sta in het werkblad, de positie wordt verplaatst naar de eerste kolom.

Dus sta ik op d6, dan wil ik naar a6
sta ik op d7, dan wil ik naar a7
sta ik op f6, dan wil ik naar a6

Ik had zelf gedacht om iets met de knop "Home" te gaan doen, maar ik zag dat dit niet werkte.
Je krijgt dan het volgende:

ActiveCell.Offset(0, -4).Range("A1").Select
Deze werkt alleen als de positie in de D-Kolom staat.

Iemand enig idee hoe dit moet ?

 

[Papajo]

Bij mij werkt dat wel. De 'home'knop brengt me naar de A-kolom.

 

[Withaar]

kabebanaan. je bedoeld waarschijnlijk een macro met de naam Home, dat is niet nodig, de home toets op je toetsenbord doet dit al zoals Papajo aangeeft.
N.b. we werking van Home kan je niet in een marco opnemen.

Wil je een eigen button gebruiken zou je deze macro kunnen nemen, niet echt mooi, maar werkt wel...

Sub Home()
'
' Home Macro
' De macro is opgenomen op 12-1-2003 door CW.
'

On Error GoTo 10
For x = 1 To 10000
ActiveCell.Offset(0, -1).Range("A1").Select
Next x
Exit Sub
10:
End Sub

 

[kabebanaan]

Geplaatst door Papajo
Bij mij werkt dat wel. De 'home'knop brengt me naar de A-kolom.

Ja bij mij in het werkblad ook. Maar als je dat gaat opnemen in een macro, dan krijg je dus dit soort codes:

ActiveCell.Offset(0, -4).Range("A1").Select

De cel schuift dan 4 posities naar links.

Dus sta je op D3, dan krijg je een foutmelding, omdat er geen 4 sprongen gemaakt kunnen worden.


Wie o wie ???

 

[kabebanaan]

Dankje Withaar ....dat was wat ik zocht.
Ik maak trouwens geen button aan, maar verwerk het volgende in de Userform van de huidige macro die ik gebruik.

On Error GoTo 10
For x = 1 To 10000
ActiveCell.Offset(0, -1).Range("A1").Select
Next x
Exit Sub
10:

Thnx !!

 

[Ingrid B]

Naar kolom A gaan in de actieve rij kan ook met één command:

Cells(ActiveCell.Row, 1).Select

 

[kabebanaan]

Dankje Ingrid.