Excel opdrachtknop + VBA

[Georgyboy]

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 :

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

___________________________________________________________________

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

______________________________________________________________________-

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,

 

[snb]

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

kun je vervangen door

Sub Knop33_BijKlikken()
  Sheets("Bakkenwas").Range("A1:C2").select
End Sub

De rest is overbodig ( en hoef je dus je hoofd niet over te breken).

dit geldt ook voor

Sub Knop20_BijKlikken()
  Sheets("Bindmachine").Range("A1:C2").Select
End Sub

en

Sub Knop35_BijKlikken()
  Sheets("Seal machine").Range("A1:C2").Select
End Sub

Tenslotte doe je er verstandiger aan in plaats van van 100 of meer knoppen, gebruik te maken van een combobox.
Dan is vervolgens maar 1 regel nodig om naar de juiste plek te gaan:

Sub Combobox1_Bijklikken()
  sheets(combobox1.listindex +1).range("A1:C2").select
End Sub

 

[huijb]

@Georgyboy een volgende keer graag je code tussen codetags s.v.p.

 

[Georgyboy]

Sorry Hujib,

wat is "code tussen codetags" ?

Groetjes,
Georgyboy

 

[huijb]

Lees dit maar even, daar wordt e.e.a. uitgelegd. http://www.helpmij.nl/forum/showthread.php?t=321171

 

[Georgyboy]

Bedankt voor je opmerking Hujib,

t´is mijn sterkste vak niet, maar ik zal er op letten

alvast bedankt !

ook voor andere leden die me dikwijls helpen,
jullie zijn fantastisch !

groetjes,
Georgyboy

 

[Wigi]

En is het probleem nu opgelost?

 

[Georgyboy]

Dag Wigi,
Hoe is het met je?

Wel probleem is niet opgelost, ik heb geen ervaring met combobox.

graag had ik een voorbeeld toegestuurd via enkele voorbeelden via print screen.
met de foto´s te verkleinen tot 96 dpi is het nog te groot 300 Kb, zippen 298 kb
dus > dan 100 kb.

Kan je de grote van het klembord aanpassen ?, nu kan ik maar 1 foto tegelijk opslaan.

is een combobox een Userform ?

Hoe per blad de knop Home aanpassen?

Wat ben ik toch een kluns hé,
Groeten Georgyboy,

 

[Georgyboy]

Voorbeeld van voorblad Home

 

[Georgyboy]

Werkblad met opdrachtknop naar home

+ Werkbladen

Hoe kan ik dit via een combobox ?

Groetjes Georgyboy,

 

[Georgyboy]

Ingevoegd Combobox (Keuzelijst met invoervak)

Code:
Private Sub ListBox1_Click()
Worksheets(ComboBox1.Value).Activate

End Sub



Private Sub WorkSheet_Activate()

'
ComboBox1.Clear
ComboBox2.Clear

' Manier 1
Dim n As Integer
With ActiveWorkbook
For n = 1 To .Sheets.Count
ComboBox1.AddItem .Sheets(n).Name
Next n
End With


End Sub

Maar het invoervak blijft leeg !

Groetjes, Georgyboy

 

[Wigi]

Met afbeeldingen kunnen we niets, doe eens een voorbeeldbestand in Excel.

 

[Georgyboy]

Sorry Wigi,

Het bestand is > 100 Kb, vandaar die afbeeldingen

In het bijgevoegd bestand zijn de macro´s verwijderd van home
en per werkblad naar home. Dit bestand is > 2 MB

Ik heb een aantal werkbladen verwijderd om het kleiner te maken

Hopelijk versta je de bedoeling van de vele links naar de werkbladen en terug

Groetjes, Georgyboy