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

Actieve cel in beeld brengen

Status
Niet open voor verdere reacties.
Plotinus

Plotinus

Gebruiker
Lid geworden
25 mrt 2007
Berichten
649
Via makro's voer ik snelle en bepaalde filteringen uit op bepaalde kolommen over vele rijen (in Excel dus). Ik loop nu tegen de onhebbelijkhied aan dat als ik de filters weer uitzet (alle waarden mogen weer getoond worden) de actieve cel niet terug in beeld komt. Hij blijft wel geselecteerd, maar door scrollen moet ik hem weer in beeld krijgen.
Is hier code voor beschikbaar? Vast wel, maar internet heeft mij nog niet de oplossing ontsluierd.
 
Kijk eens naar Application.Goto wellicht brengt dit soelaas.
 
Ctrl+Backspace
Shift+Backspace
 
Laatst bewerkt:
backspace alleen of 1x op een pijltjes toets duwen is ook voldoende
 
Hartelijk dank voor de reacties. Aanvankelijk de volgende oplossing toegepast:
Code: 
Application.Goto Reference:=Worksheets("XXXXXX").Range(ActiveCell.Address)

Maar Shift backspace werkt eigenlijk beter en is in code korter:
Code: 
ActiveCell.Activate
 
in code korter ???

Code: 
Application.Goto ActiveCell
Code: 
Application.Goto selection

en kijk dan ook eens naar

Code: 
Application.Goto ActiveCell,-1
Code: 
Application.Goto selection,-1
 
Laatst bewerkt:
snb,

Ik bedoelde dat de code

Code: 
ActiveCell.Activate

korter is dan
Code: 
Application.Goto Reference:=Worksheets("XXXXXX").Range(ActiveCell.Address)

en daarnaast aantrekkelijker, omdat daarmee de actieve cel in het middel van het scherm wordt geplaatst. Maar jouw 4 oplossingen werken ook (even getest). Maar ook dan blijft

Code: 
ActiveCell.Activate

korter, toch(?)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan