userform simultaan uitvoering macro

[sis123]

Dag,

Ik heb een redelijk lange macro, als die wordt uitgevoerd krijgen de gebruikers het heen en weer flitsen van schermen te zien, verwarrend.

Simultaan zou ik een aangemaakt userform "even geduld aub" willen laten lopen gedurende de uitvoering van de macro

 

[Hoornvan]

sis123,

Gebruik de bovenste code regel boven aan je code.
De andere zet je onderaan de code

Application.ScreenUpdating = False
Application.ScreenUpdating = True

 

[Warme bakkertje]

Sis123, op volgende link enkele voortgangmeters. Het nadeel is wel dat ze de code nog verder gaan vertragen.

http://www.andypope.info/vba/pmeter.htm

In bijlage enkele andere mogelijkheden

Mvg

Rudi

 

[sis123]

sis123,

Gebruik de bovenste code regel boven aan je code.
De andere zet je onderaan de code

Application.ScreenUpdating = False
Application.ScreenUpdating = True

ok, hierbij is het flikkeren van het scherm weg,
maar kan ik ook gelijktijdig een schermpje met "even wachten aub" tonen ?

 

[Warme bakkertje]

Sis123, zie Post #3

Mvg

Rudi

 

[sis123]

Sis123, zie Post #3

Mvg

Rudi

Krijg het bestandje spijtig genoeg niet open

 

[Warme bakkertje]

Nieuwe poging

Mvg

Rudi

 

[sis123]

Nieuwe poging

Mvg

Rudi

Hoe kom je aan schermpje, tekst ?

 

[Wigi]

Voer deze oneliner eens uit, dan zie je het.

Sub tonen()

Blad1.Shapes("Rectangle 1").Visible = True

End Sub

Wigi

 

[sis123]

Voer deze oneliner eens uit, dan zie je het.

Sub tonen()

Blad1.Shapes("Rectangle 1").Visible = True

End Sub

Wigi

ok, maar hoe krijg je dat tekstvlak op blad1 ?

 

[Wigi]

Dat is een rechthoek van de werkbalk Tekenen.

 

[sis123]

Dat is een rechthoek van de werkbalk Tekenen.

Dat weet ik, Wigi, maar hoe bepaal ik de inhoudtekst, en hoe maak ik die zichtbaar ?

Anders, ik wil in het vb bastandje de tekst van schermpje wijzigen, hoe geraak ik eraan ?

 

[Wigi]

Dat weet ik, Wigi, maar hoe bepaal ik de inhoudtekst, en hoe maak ik die zichtbaar ?

Anders, ik wil in het vb bastandje de tekst van schermpje wijzigen, hoe geraak ik eraan ?

Graag ook even lezen wat ik typ aub.

Post # 9 bevatte reeds de code om het zichtbaar te maken.

 

[sis123]

Graag ook even lezen wat ik typ aub.

Post # 9 bevatte reeds de code om het zichtbaar te maken.

Heb hem, sorry misverstandje bedankt

 

[Wigi]

No problem :thumb:

 

[sis123]

Toch nog een kleinigheid ...

Hoe bepaal de de naam van het tekstvlak, bij invoegen naam of ... ?

 

[Wigi]

Klik erop en dan aanpassen in het naamvak, links van de formulebalk.

 

[Ginger]

sis123, Ik wil dit zelf nog wel 'ns oplossen met een Userform waarbij het ShowModal op False gezet wordt. De code loopt dan gewoon door, terwijl er toch een schermpje getoond wordt. Ik heb er maar ff een voorbeeld van gemaakt (zie bijlage)

Groet, Leo

 

[sis123]

sis123, Ik wil dit zelf nog wel 'ns oplossen met een Userform waarbij het ShowModal op False gezet wordt. De code loopt dan gewoon door, terwijl er toch een schermpje getoond wordt. Ik heb er maar ff een voorbeeld van gemaakt (zie bijlage)

Groet, Leo

TOF Bedankt :thumb: