Actieve cel uiterst links plaatsen in een werkblad

[frankie111]

zou iemand mij kunnen helpen met een VBA script, nadat er een aantal acties uitgevoerd over verschillende bladen, de actieve cell uiterst links van je werkblad staat.

Nu staat mijn actieve cel steeds ongeveer in het midden van mijn scherm en dien ik manueel wat bij te scrollen, wat steeds verschillend. Indien het zo simpel was had ik een scroll opdracht in vba ingegeven maar dat is geen oplossing.

 

[E v R]

Allereerst heeft/hoeft uitvoering van jouw code niks te maken (te hebben) met waar de aktieve cel terechtkomt (select en activate zijn 99.99% overbodig)

maar zoiets?

Application.Goto Reference:=ActiveCell, Scroll:=True

 

[frankie111]

Dit werkt prima op 1 punt na. De cel is nu links bovenaan van mijn werkblad. Aangezien er ook nog verscheidene gegevens boven staan had ik de actieve cel graag links en in het midden van mijn werkblad gehouden.
Is dat ook mogelijk?

 

[gast0660]

Probeer deze eens

ActiveCell.EntireRow.Range("A1").Activate

 

[frankie111]

Ook niet helemaal het beoogde resultaat want nu zal hij steeds de cel vooraan selecteren en soms, naargelang welke bewerking, is de cel met de gegevens verder verwijderd (bv "H1") waardoor de informatie dan niet meer zichtbaar is vanaf die cel en verder.

 

[gast0660]

Wat bedoel je dan met

de actieve cell uiterst links

 

[E v R]

probeer dit eens:

Application.Goto reference:=ActiveCell, scroll:=True
ActiveWindow.SmallScroll Up:=ActiveWindow.VisibleRange.Rows.Count / 2

 

[frankie111]

probeer dit eens:

Application.Goto reference:=ActiveCell, scroll:=True
ActiveWindow.SmallScroll Up:=ActiveWindow.VisibleRange.Rows.Count / 2

Spijtig maar dit werk niet. Steeds uiterst links dat ik terecht kom.

 

[E v R]

, de actieve cell uiterst links van je werkblad staat..

Dat wilde je toch?

 

[frankie111]

Wat bedoel je dan met

Hier een tekening wat het resultaat zou moeten zijn.

Vanaf de actieve cel werden de gegevens ingebracht. Daarom pas zichtbaar vanaf daar en de gegevens daarboven aan de linkerzijde.

 

[VenA]

ipv plaatjes kan je net zo goed een exelbestand plaatsen.

 

[HSV]

ActiveWindow.ScrollColumn = target.column

 

[frankie111]

ActiveWindow.ScrollColumn = target.column

Is hetzelfde als wat ik eerst had (fig 1 van hierboven). De geselecteerde cel staat in het midden van mijn werkblad met daarvoor nog steeds lege cellen.

 

[gast0660]

Application.Goto ActiveCell, True

 

[frankie111]

Ik heb het gevonden met de code:
De geselecteerde cel staat nu links in met midden van mijn werkblad
Allen bedankt voor het zoeken naar de oplossing.

ActiveWindow.ScrollColumn = ActiveCell.Column

 

[HSV]

Zet het in de change-event, en je kunt met mijn code automatisch naar links.