Regels

[xbox360]

Hoi,

Klein vraagje

ik gebruik om van twee tabbladen te switch deze code

Sub Start()
Application.OnTime Now + TimeValue("00:03:00"), "Wisselen"
End Sub
Sub Wisselen()

Dim iShIndex As Integer
iShIndex = ActiveSheet.Index
If iShIndex = 1 Then iShIndex = 2 Else iShIndex = 1
Worksheets(iShIndex).Activate
Start
End Sub

mijn vraag is kan Excel misschien ook regels laten lopen?

1 tot 60

en dan terug laten lopen van 60 naar 1

Alvast bedankt

 

[AccessGuru]

Om te beginnen: gebruik de CODE tags voor je code. Die optie zat er in 2008, toen je lid werd, ook al in . Daarnaast snap ik niet echt wat je wilt met 'regels laten lopen'. Heb je het dan over een tekst die je wilt laten scrollen als een banner?

 

[xbox360]

AccessGuru

Ja klopt:thumb:

 

[AccessGuru]

Wat voor tekst? Want dat vertel je dan weer niet.

 

[xbox360]

@AccessGuru

Het is eigenlijk een soort export excel van 60 regels met namen

heb al gezocht of je miscchien die rechter scroll balk automatisch kon laten bewegen met een soort vba maar helaas niks over kunnen vinden
het gaat om cel A,B,C en dan 60 regels

 

[snb]

Ja hoor, dat kan.

 

[xbox360]

@snb

nou als u mijn misschien een vba code kan geven of weet hoe het moet ben ik super blij:thumb:

 

[emields]

Hij, of iemand anders, zal ze met alle plezier in uw voorbeeld plaatsen.

 

[xbox360]

@emields

dit is de layout,

heb de namen even vervangen met cijfers

 

[Danny038]

heb al gezocht of je miscchien die rechter scroll balk automatisch kon laten bewegen met een soort vba maar helaas niks over kunnen vinden

Application.ActiveWindow.ScrollRow = Application.ActiveWindow.ScrollRow + 1

 

[xbox360]

@danny038

Werkt wel

Sub Start()
Application.ActiveWindow.ScrollRow = Application.ActiveWindow.ScrollRow + 60
End Sub

alleen is het super snel dus niet langzaam
en het moet ook nog van 60 terug naar 1

Alvast bedankt

 

[snb]

@XBox

Zet svp VBA code tussen Code tags !!

En gebruik

Application.goTo

 

[Danny038]

While Application.ActiveWindow.ScrollRow <= 10
Application.Wait Now + TimeValue("00:00:01")
Application.ActiveWindow.ScrollRow = Application.ActiveWindow.ScrollRow + 1
Wend

While Application.ActiveWindow.ScrollRow > 1
Application.Wait Now + TimeValue("00:00:01")
Application.ActiveWindow.ScrollRow = Application.ActiveWindow.ScrollRow - 1
Wend

 

[xbox360]

@danny038 & snb

precies wat ik zocht

maar nog 1 klein vraagje, kan ik de marco ook eindig doorlaten lopen tot ik het zelf stop

nu doet die het maar 1 keer en moet dan de marco weer gebruiken

Alvast super bedankt:thumb:

 

[Danny038]

Sure, een macro stopzetten kan met de knoppencombinatie CRTL + Break.
Speel er wat mee om te bereiken wat je wil.

Dim min, max, kant
min = 1
max = 60
kant = 1
Application.ActiveWindow.ScrollRow = min
While Application.ActiveWindow.ScrollRow <= max
    Application.Wait Now + TimeValue("00:00:01")
        If Application.ActiveWindow.ScrollRow = min Then kant = 1
        If Application.ActiveWindow.ScrollRow = max Then kant = -1
    Application.ActiveWindow.ScrollRow = Application.ActiveWindow.ScrollRow + kant
Wend

 

[xbox360]

@Danny038

Werkt perfect

Super bedankt:thumb::thumb::thumb:

 

[xbox360]

@Danny038

De macro werkt perfect

toch nog een klein vraagje, kan je ook de snelheid van het scrollen versnellen?

Reeds gevonden en opgelost SORRY