Scrol functie

[Gerard2348]

Beste forumleden,

Bijgevoegd bestand is een overzicht met een achttal blokken waar informatie in komt te staan. De blokken kunnen groter worden doordat er regels ingevoegd worden. dus de ene keer bevat een blok 10 regels de andere keer 17.
Ik heb met hangen en wurgen voor elkaar gekregen dat er via VBA naar toe gescrold kan worden. Maar als ik het bekijk dat vraag ik mij af of dit netter kan.

Met vriendelijke groet

Geer

Bekijk bijlage Ganaar.xlsm

 

[E v R]

Je zou middels application.caller iedere button naar dezelfde macro kunnen laten verwijzen:

sub enkeldeze()
  Application.Goto Reference:=ActiveSheet.Shapes(Application.Caller).TextFrame2.TextRange.Text, Scroll:=True
end sub

 

[Haije]

om Blok02 te selecteren zou dit volstaan:

[blok02].Offset(-1, -1).Select
ActiveCell.Offset(1, 1).Select

 

[Gerard2348]

Ha Haije,

Ik heb jouw methode geprobeerd. Het werkt maar niet zo als ik het wil. In de macro die ik heb gemaakt dat komt het blok die ik oproep boven aan te staan. Dat is bij de door jou aangedragen oplossing niet zo.


Eric,

Hoe ga ik dit doen?

 

[Haije]

door deze regel tussen te voegen werkt het wel bij mij:

Application.Goto ActiveCell.EntireRow, True

 

[E v R]

Eric,

Hoe ga ik dit doen?

zo:?

 

[Gerard2348]

Top!!!
Hartstikke bedankt.
Had vergeten om in origineel de juiste benaming te geven........

 

[Gerard2348]

Ha Eric,

Nogmaals hartelijk dank. Heb een kleine wijziging in jouw formule gemaakt.
dit is het geworden;

 Sub enkeldeze()
  Application.ScreenUpdating = False
  Application.Goto Reference:=ActiveSheet.Shapes(Application.Caller).TextFrame2.TextRange.Text, Scroll:=True
  ActiveWindow.SmallScroll Down:=-1
  ActiveWindow.ScrollColumn = 1
  Application.ScreenUpdating = True
End Sub

Groet Geer :thumb: