Georgyboy
Gebruiker
- Lid geworden
- 6 jan 2007
- Berichten
- 964
- Besturingssysteem
- Windows 11
- Office versie
- 365
Goeiedag iedereen,
Mijn collega heeft in excel een onderhoudsplan opgesteld met opdrachtknoppen.
Zelf weet ik weinig of niets van VBA en heb enkele vragen betreft deze module,
Op blad 1 zijn een 100 tal opdrachtknoppen die elk verwijzen naar het desbetreffende werkblad, om ieder werkblad is er een knop om terug te gaan naar home (1° werkblad)
Zelf heb ik op dezelde wijze 3 knoppen bijgemaakt + 3 werkbladen.
Graag had ik geweten wat de juiste mehode is om zoiets te maken,
er zijn in deze werkmap +/- 100 werkbladen met een 15 tal modules.
Voorbeeld van wat er in staat :
___________________________________________________________________
______________________________________________________________________-
_____________________________________________________________
Met vriendelijke groeten,
Georgyboy,
Mijn collega heeft in excel een onderhoudsplan opgesteld met opdrachtknoppen.
Zelf weet ik weinig of niets van VBA en heb enkele vragen betreft deze module,
Op blad 1 zijn een 100 tal opdrachtknoppen die elk verwijzen naar het desbetreffende werkblad, om ieder werkblad is er een knop om terug te gaan naar home (1° werkblad)
Zelf heb ik op dezelde wijze 3 knoppen bijgemaakt + 3 werkbladen.
Graag had ik geweten wat de juiste mehode is om zoiets te maken,
er zijn in deze werkmap +/- 100 werkbladen met een 15 tal modules.
Voorbeeld van wat er in staat :
Code:
Sub Knop33_BijKlikken()
'
ActiveWindow.ScrollWorkbookTabs Sheets:=1 (wat is de betekenis ervan)
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=11
ActiveWindow.ScrollWorkbookTabs Sheets:=6
ActiveWindow.ScrollWorkbookTabs Sheets:=7
ActiveWindow.ScrollWorkbookTabs Sheets:=3
ActiveWindow.ScrollWorkbookTabs Sheets:=-1 (waarom meermaals)
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Bakkenwas").Select
Range("A1:C2").Select
End Sub
___________________________________________________________________
Code:
Sub Knop20_BijKlikken()
'
' Knop20_BijKlikken Macro
' De macro is opgenomen op 12/09/2005 door Pannecoucke David.
'
'
Sheets("Bindmachine").Select
Range("A1:C2").Select
End Sub
Code:
Sub Knop35_BijKlikken()
'
'
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-6
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Seal machine").Select
Range("A1:C2").Select
End Sub
Met vriendelijke groeten,
Georgyboy,
Laatst bewerkt door een moderator: