ScreenUpdating

[steelinadje]

Hallo Forum,

Ik zou graag bij het openen van een werkmap een opstartsheet willen hebben.
Dit heb ik al via code in vba.
Nu moet er gesorteerd worden m.b.v een macro.
Nu verdwijnt elke keer mijn opstartsheet.
Ik weet het commando hier voor dacht ik (Application.Screenupdating= false)
Hoe kan ik er voor zorgen dat excel de code uitvoert, zonder dat je hier iets van ziet.
Ik heb bovenstaand commando gebruikt maar nog geen resultaat.
Graag hulp.

 

[steelinadje]

Een voorbeeld erbij.

Ik zou willen dat de sheet "start" in beeld blijft.
Er wordt een formulier opgestart bij het openen van de werkmap.
Hier worden macro's aangeroepen voor de desbetreffende doeleinden.
De code moet aangeroepen worden in vba dus niet met een button in een sheet.
Want die zijn straks niet zichtbaar.

Graag hulp.

 

[Superzeeuw]

Hallo Steelinadje,

Apllication.sreenupdating = false,
verliest de functie wanneer je een ander werkbblad of document actief maakt zoals hieronder een kopie uit jouw macro.

Sub alttab_entfernen()
'Application.ScreenUpdating = False
Sheets("Loting").Activate

Je kunt nu opnieuw de sheet start actief maken en daar de pop-up window laten verschijnen.

Ik heb de volgende aanpassing gemaakt en misschien is dat iets.
Nu blijft de sheet start als actieve sheet staan en jouw pop-up verschijnt waar jij hem hebben wilt geloof ik.

In userform frmloting de volgende aanpassing maken, regel sheet("start").activate

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Call teams
Sheets("start").Activate
Application.ScreenUpdating = True
End Sub

 

[LucB]

Steelinadje,

Je sheet "start" is geen Excel-werkblad.
Als je in de VBEditor Projectverkenner kijkt,
zie je geen blad "start".

Waarschijnlijk een Excel4 macroblad of een Dialoogblad??
Dus verwijderen denk ik dan.

Om de inhoud van Blad "Loting" onzichtbaar te houden
zou je de achtergrond zwart kunnen kleuren.
Doe dat ook op Blad "Berekeningen".

Vraag:
Wat moet er in de UserForm weergegeven worden?

 

[steelinadje]

LucB,

De sheet start is een internationaal macrosheet,deze heb ik zomaar gemaakt om het uit te proberen.
Ik werk in het programma alleen met userforms, en wil de gebruikers geen sheets laten zien.
Alleen een sheet voor de achtergrond.
In de userform wil ik een progressbar plaatsen,zodat de gebruiker kan zien hoe de poules geloot worden.
Maar hier ben ik nog niet uit,als je me op weg kunt helpen dan graag.
Ik weet niet hoe ik dit moet toe passen met de code in de macro.

 

[LucB]

Zo maar een idee.

 

[steelinadje]

LucB,

Werkt perfect voor mij.
Hij voert wel eerst de code uit en dan de progressbar,maar dit is voorlopig genoeg voor mij.
Heb de listbox onzichtbaar gemaakt en zichtbaar bij het bereiken van het max.
Dus voor de gebruiker komt dit echt over dacht ik.
Mijn dank hiervoor LucB

Het probleem met de screenupdating is nog niet wat ik zocht,maar als het niet anders kan.
Want als ik Sheets("start").Activate gebruik sorteert hij niet.
Dit na application.screenupdating = false.
Ik zet hem toch op opgelost,want ik wil graag verder om het af te werken.
Dus nogmaals bedankt.