Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

Positioneren Excel - VBA

Anoniem
Sephiroth
7 antwoorden
  • Ik weet niet of het mogelijk is maar ik wil middels VBA naar een bepaalde cel springen in een excel sheet (wat lukt) en die cel moet vervolgens links bovenin het scherm worden geplaatst.

    En dat laatste is de vraag of dit mogelijk is.
  • Eh, de inhoud van die cel bedoel je?
  • Nee niet de inhoud.

    Ik heb bijvoorbeeld in Rij 88 het een en ander staan.
    mbv [b:0d9258d01e]ActiveSheet.Cells(88, 1).Select[/b:0d9258d01e] spring je dus naar die positie.
    Maar er blijven altijd wat regels boven regel 88 staan.

    Wat ik nu wil is dat regel 88 ook daadwerkelijk als "eerste" regel wordt weergegeven en dat deze niet ergens halverwege het scherm terug komt.

    Net als met schrijven en lezen begin je altijd links bovenaan ;)
  • spring eerst naar de laatste cel IV65536 en dan terug naar rij 88

    bvb cel c88 in de linkerbovenhoek =

    [code:1:879eb51360]
    Application.Goto Reference:="R65536C256"
    Application.Goto Reference:="R88C3"
    [/code:1:879eb51360]
  • Misschien een optie om voorliggende rijen en kolommen te hiden. Zou mooi zijn als bij unhiden dezelfde positie wordt aangehouden, maar helaas:
    [code:1:d8accd8114]
    rij = 88
    kolom = 5

    If rij > 1 Then Rows("1:" & rij - 1).Hidden = True
    If kolom > 1 Then
    For i = 1 To kolom - 1
    Columns(i).Hidden = True
    Next i
    End If
    ActiveSheet.Cells(rij, kolom).Select
    [/code:1:d8accd8114]
  • Dan werkt die van Doof beter, niks gezegd :-)
  • Misschien kan het nog eenvoudiger:

    [code:1:240aa757a3]
    ActiveSheet.Cells(88, 1).Select
    ActiveWindow.ScrollRow = 87
    [/code:1:240aa757a3]

    Fred

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.