UserForm1.Show
'jouw code
Unload UserForm1
--
Peter
"Rita" <ti10...@tiscali.be> schreef in bericht news:033e01c30e4f$42027b50$a001...@phx.gbl...
http://home.planet.nl/~schni000/Excel/excel.htm
--
Peter
"PeterS" <Pe...@S.nl> schreef in bericht news:%234aAIGl...@TK2MSFTNGP12.phx.gbl...
>.
>
Load userform1
Userform1.show
......Hier (overige) code vd macro
unload userform1
Het label wordt wel getoond, maar ondertussen loopt de
macro niet verder. Dat gebeurt pas als ik het label via
het kruisje rechtsboven laat verdwijnen. Maar het is juist
de bedoeling dat het label blijft staan tot de macro is
uitgevoerd. Wat doe ik fout? Moet er misschien bij de
eigenschappen van het userform nog iets worden ingesteld?
En vraag 2: Is het ook mogelijk om een label zonder
kruisje rechtsboven te maken?
>-----Oorspronkelijk bericht-----
>.
>
Laat het ons voorlopig al met dat kruisje doen. Dat is het eenvoudigste.
Uw macro moet er dan als volgt uitzien:
Sub EenMacro()
Userform1.Show
End Sub
Dat is dus het eerste deel... niet meer en niet minder.
Tweede deel:
Dubbelklik in de VBA-editor op het Userform, en plak daarin volgende code:
Private Sub UserForm_Activate()
DoEvents
' Uw Macro
Unload Me
End Sub
Op de plaats van Uw Macro moet dus ook uw macro komen. Uw macro staat dus
niet in een module, maar in het UserForm zelf.
Luc
"Rita" <ti10...@tiscali.be> schreef in bericht
news:050901c30e66$bca1a8b0$3001...@phx.gbl...
--
Peter
"Rita" <ti10...@tiscali.be> schreef in bericht ...
>-----Oorspronkelijk bericht-----
>Ik heb nu in een userform een label gemaakt en in mijn
>macro volgende code opgenomen:
>
>Load userform1
>Userform1.show
>.......Hier (overige) code vd macro
>.
>
Als je die op false zet kun je ook gewoon werken met een userform in beeld.
Dus wisselen tussen werkbladen, effe iets uitrekenen en zo.
Ik gebruik 'm veel, om realtime dingen te tonen, terwijl men bezig is.
Zo loopt de macro nl ook gewoon door, en kun je (bijna) twee dingen tegelijk.
De methode van Luc vind ik iets omslachtiger.
--
Peter
"Rita" <ti10...@tiscali.be> schreef in bericht news:05dc01c30e74$6d9851c0$a001...@phx.gbl...
> Luc, ook jij enorm bedankt voor je oplossing.
> Zowel de methode van Luc als die van Peter werken prima.
> Is er eigenlijk een methode die om een of andere reden de
> de voorkeur verdient?
> Bij voorbaat dank,
> Rita.
>
> >-----Oorspronkelijk bericht-----
> >Ik heb nu in een userform een label gemaakt en in mijn
> >macro volgende code opgenomen:
> >
> >Load userform1
> >Userform1.show 0
> >>>> UserForm1.Show 0
Ik denk dat de methode van Peter de voorkeur verdient. Ik heb er geen
duidelijk bewijs voor, maar heb hier ooit in de nieuwsgroep gehoord dat het
beter is zo veel mogelijk code in modules te plaatsen, en zo weinig mogelijk
in de programmacode van ThisWorkbook; de Sheets of UserForms.
Zeker als je ook nog eens de VBA Code Cleaner van Rob Bovey wenst te
gebruiken.
Luc
"Rita" <ti10...@tiscali.be> schreef in bericht
news:05dc01c30e74$6d9851c0$a001...@phx.gbl...
onze meningen waren dus gelijk. Uw code is beter... maar... zoals je het nu
stelt: Als uw file ook nog eens op een andere computer moet draaien met een
oudere Office versie zal het dus niet lukken.
Luc
"PeterS" <Pe...@S.nl> schreef in bericht
news:Oqb36ZnD...@TK2MSFTNGP11.phx.gbl...
De DoEvents-methode verdient inderdaad de voorkeur als je de
gebruiker, en/of de Excel-versie niet kent.
--
Peter
"Luc.Heyndrickx" <lucDitVerwijd...@skynet.be> schreef in bericht
news:eWhyodn...@TK2MSFTNGP11.phx.gbl...
De groeten
Luc
"PeterS" <Pe...@S.nl> schreef in bericht
news:u9qXUvnD...@TK2MSFTNGP10.phx.gbl...
B.v.d.
Rita
>-----Oorspronkelijk bericht-----
>.
>
Dit is een invoegtoepassing, af te halen op volgende site:
http://www.appspro.com/utilities/Cleaner.asp
De Code Cleaner verwijdert overbodige ballast uit uw codes, zodat uw bestand
kleiner wordt. Aan de macro's zelf zal je niets merken, maar je zal wel
zien dat uw bestand iets kleiner wordt na het runnen van deze
invoegtoepassing.
Naar het schijnt (Sorry als ik verkeerd ben, ik heb het ook maar van hier te
lezen), blijven er sporen achter in uw bestanden door er mee te werken. Dit
neemt ruimte in beslag. Deze invoegtoepassing verwijdert deze sporen terug,
maar kan dit niet met VBA-code achter Sheets, ThisWorkbook en UserForms.
Wie denkt dat de zaken anders zijn mag het altijd zeggen. Ik ben benieuwd.
Luc
"Rita" <ti10...@tiscali.be> schreef in bericht
news:00bb01c30e7f$8714d230$a501...@phx.gbl...
>-----Oorspronkelijk bericht-----
>.
>