Makkelijker navigeren tussen scheets?

[bgoo]

In mijn Kassabonnen bestand heb ik heel veel kassabonnen, is er een manier om het navigeren tussen bonnen makkelijker te maken?

Is er bijvoorbeeld een macro om het "Meer bladen" scherm op te roepen (hieronder).
Of dit of een ander keuze menu vast in het scherm te hebben staan?



Alvast bedankt.

 

[Warme bakkertje]

Bekijk de bijlage eens.

 

[bgoo]

Ziet er super uit!
Alleen zo een "box" in het scherm past niet echt bij mijn stijl van document.
Zou het mogelijk kunnen zijn dat er een ingebakken lijst (per sheet, aangezien er de hele tijd een sheet wordt gekopieerd in mijn systeem.)

(En dan een update macro, voor als ik een nieuwe bon erbij maak)

Zoiets (rechtsonderin, onder print bon) :

Wat ook kan is een knop om die navigatie die jij gemaakt hebt op te roepen, en als je hebt genavigeerd dat hij dan weg gaat.
Misschien is dit nog wel een slimmer idee?

 

[Warme bakkertje]

Open VB-Editor en sleep het formulier naar jouw bestand. Plaats onderstaande code in een standaardmodule en maak dan een sneltoetscombinatie aan waarmee je het formulier op eender welk werkblad kan oproepen.

Sub Openen()
    FrmNavigate.Show vbModeless
End Sub

 

[bgoo]

Maar ik wil dan wel als je op navigeer drukt, dat hij dan weer verdwijnt..
Dat je dus af en toe een bon kan zoeken, maar niet de hele tijd dat scherm in het beeld staat .

Alvast bedankt!

 

[Warme bakkertje]

Private Sub CmdNavigate_Click()
    Application.Goto Sheets(CStr(Navigation)).Range("A1")
    [COLOR="red"]Unload Me[/COLOR]
End Sub

 

[bgoo]

Kan je mischien ook een paar sheets uitsluiten van de navigatie lijst?
En als je niks selecteert geeft hij een error, kan dit verholpen worden?

bedankt!

 

[zapatr]

Is er bijvoorbeeld een macro om het "Meer bladen" scherm op te roepen.

Dat kan ook zonder macro.
Klik met de rechtermuisknop op 1 van de navigatiepijltjes links-onderaan (de pijltjes die vóór de bladen staan) en je ziet de namen van alle bladen verschijnen.

 

[bgoo]

Ja dat weet ik, alleen het ging hier om een makkelijkere manier om te navigeren

Ik zit nog met 2 problemen:
- Ik wil een bepaalde sheet niet in mijn lijst hebben.

Dim sh As Worksheet
With Navigation
    .Clear
    
    For Each sh In Worksheets
        .AddItem sh.Name
    Next

      
End With

End Sub

- Als je niks selecteerd, wil ik dat het lijstje gewoon weggaat.

Application.Goto Sheets(CStr(Navigation)).Range("A1")
    Unload Me
End Sub

 

[Warme bakkertje]

Dim sh As Worksheet
With Navigation
    .Clear
    
    For Each sh In Worksheets
       If Not sh.Name = "Naam van je blad" Then .AddItem sh.Name
    Next

      
End With

End Sub

Op je 2de vraag 2 opmerkingen
1.Als je niks wil selecteren, waarom het schermdan openen
2.Als je niks selecteerd moet je van de knop Navigeren naar afblijven

 

[bgoo]

Je hebt gelijk, en heel erg bedankt !