macro voor telkens 1 tabblad verder

[grema]

Beste ,

zoek een macro om in een bestand met 1 knop telkens 1 pag verder
en 1 knop om terug te keren.

De macro met vermelding naar het vorig blad lukt me.

Bestaat er echter geen MACRO die je telkens kan over nemen zonder het desbetreffend tabblad te moeten nummeren.

VB van men macro :

Sub verder_BijKlikken()
'
' verder_BijKlikken Macro
' De macro is opgenomen op 23/06/2007 door Mark.
'

'
    Sheets("").Select
End Sub
Sub vorigblad_BijKlikken()
'
' vorigblad_BijKlikken Macro
' De macro is opgenomen op 23/06/2007 door Mark.
'

'
    Sheets("Begrotingsform" + 1).Select
End Sub

alvast dank

grema

 

[Wigi]

Ctrl-Pagedown, toch?

 

[Wigi]

In macro vorm:

Sub verder_BijKlikken()
    On Error Resume Next
    Sheets(ActiveSheet.Index + 1).Select
    On Error GoTo 0
End Sub

Sub vorigblad_BijKlikken()
    On Error Resume Next
    Sheets(ActiveSheet.Index - 1).Select
    On Error GoTo 0
End Sub

De On Errors is voor als je op het laatste blad bent en verder gaat, of als je op het eerste blad bent en terug gaat.

Wigi

 

[grema]

wigi,

dit gaat ; maar kan het met een knop .( weer bijgeleerd )

Andere moeten dit ook kunnen , dus dacht aan een macro .

Kan dit ??
grema

 

[Wigi]

Code gezien?

 

[grema]

wigi

bedankt voor de hulp .:thumb:

Had inderdaad de code niet gezien. Waarvoor m'n verontschuldigingen.

Dit stuk werk weer, nu hetvolgende probleempje aanpakken.
Tot zeer binnenkort

Grema

 

[Wigi]

Heb net ontdekt dat dit ook werkt, en is eigenlijk iets beter:

Sub verder_BijKlikken()
    On Error Resume Next
    ActiveSheet.[B]Next[/B].Select
    On Error GoTo 0
End Sub

Sub vorigblad_BijKlikken()
    On Error Resume Next
    ActiveSheet.[B]Previous[/B].Select
    On Error GoTo 0
End Sub

Wigi

 

[grema]

Thx.

grema;