• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

voortgangsindicator

Status
Niet open voor verdere reacties.

Rogierasd

Gebruiker
Lid geworden
10 jan 2006
Berichten
71
Hallo iedereen,

Ik vroeg me af hoe je in een excel form(via vb userform) een voortgangsindicator van bijv een save functie neerzet en installeerd.. de code enzo..
nog nooit gedaan...
weet niet eens waar ik 'm kan vinden(de indicator)...

wie helpt mij?!:(
 
hhmmm

Heeyy,
Pf.de.vries en jan van asseldonk,
Geweldige voorbeelden, zeg!!:thumb:
precies wat ik bedoel:D

ik kom er nu alleen niet uit hoe ik ze in mijn Form moet zetten, zodat als ik de 'save' knop inclick, de voortgangsindicatoren gaan werken..

moet ik nou modules toevoegen, of 'arks' of code overnemen???
ik kom er niet uit..

ik krijg het niet gekoppeld met mijn save button...
please help..
:( :eek: :confused:
 
met je save knop start je de gekozen voortgangsindicator en vanuit die code roep je de code aan die je nu vanuit je save knop oproept.
Als je de code nu direct onder de save knop hebt staan, maak hier dan een aparte sub van en zet die in een module.
 
kan het bestand niet openen
ik krijg volgende melding:
Security Notification from (eros_01a)
Our systems have detected a problem in your web trafic:

Item: www.helpmij.nl/forum/attachment.php?attachmentid=30420&d=1139820008
Action: deleted

Infection detail:

-- File: attachment.php?attachmentid=30420&d=1139820008, malicious code name: GenericMacro
The uncleanable file is deleted

kan je me het bestand eventueel doormailen?


Groetjes

Jaak
 
prachtig!! maarreh..

Het ziet er geweldig uit!!
:thumb:

het werkt nou prachtig, als ik op save click zie ik de progressbar die ik wil, alleen nou weet ik niet hoe ik van de ene sub naar de andere sub moet verwijzen in code, en ik zie dus wel de progressbar, maar hij saved niet...

ik ben ff flink aan het klungelen, maar ben er dankzij jullie bijna...:p

Veel dank dusver...
Helpen jullie me ook nog het laatste stukkie??
:thumb: :shocked:

Groetjes,
Rogier
 
Elda,

voorbeelden kun je hier downloaden. Staan er nog enkele meer.


Rogier

Als je je save macro in een aparte subt kun je deze aanroepen in de progressbarcode op de plaats waar nu 'do something staat.

Stel je savemacro is Sub Bewaren()

In het voorbeeld pas je dat als volgt in:

Sub Main()
Dim i As Long, tot As Long
tot = 10000
ProgressDlg.Caption = "Prosessing data, please wait..."
For i = 1 To tot
If i Mod 5 = 0 Then ProgressBar i / tot
' do something vervang dit door Bewaren
Next i
Unload ProgressDlg
End Sub

Hierdoor wordt gesprongen naar Bewaren en als die is afgewerkt komt de verwerking in deze code terug.

Plaats anders je code hier of voeg een gezipt voorbeeldje toe van wat je wilt.
 
Jan van Asseldonk zei:
Elda,

voorbeelden kun je hier downloaden. Staan er nog enkele meer.


Rogier

Als je je save macro in een aparte subt kun je deze aanroepen in de progressbarcode op de plaats waar nu 'do something staat.

Stel je savemacro is Sub Bewaren()

In het voorbeeld pas je dat als volgt in:

Sub Main()
Dim i As Long, tot As Long
tot = 10000
ProgressDlg.Caption = "Prosessing data, please wait..."
For i = 1 To tot
If i Mod 5 = 0 Then ProgressBar i / tot
' do something vervang dit door Bewaren
Next i
Unload ProgressDlg
End Sub

Hierdoor wordt gesprongen naar Bewaren en als die is afgewerkt komt de verwerking in deze code terug.

Plaats anders je code hier of voeg een gezipt voorbeeldje toe van wat je wilt.


Hallo:confused: !
ik heb nu in mijn module onder de knop save staan:

Sub Main2()
Dim i As Long, tot As Long
Dim j As Long, totJ As Long
tot = 770
totJ = 51
ProgressDlg2.Caption = "ff wachte..............................nog ff wachte..............................ff wachte nog............................."
For j = 1 To totJ
For i = 1 To tot
If i Mod 10 = 0 Then ProgressBar2 "Opslaan werkblad " & j & " of " & totJ, j / totJ, "Opslaan veld " & i & " of " & tot, i / tot
' do sub save()
Next i
Next j
Unload ProgressDlg2
End Sub

Ik heb het ook geprobeert met Save() ipv do sub save(), of do save()...

dit verwijst dan naar:

Sub save()
For Each w In Application.Workbooks
w.save
Next w
End Sub

deze eerste sub (sub main)werkt perfect,
en de sub save() direct onder de knop save werkte ook perfect..
nu ik deze combinatie heb staan in mijn module, werkt de voortgangsindicator perfect, maar wordt er vervolgens niks opgeslagen..

kun je me nog eens helpen??????:(
ik weet niet waarom??


Thank u sooo much!!

Rogier
 
vervang do sub save() door save.

Alleen zou ik die niet save noemen maar bijvoorbeeld Bewaren of MySave.
Dit om te voorkomen dat je in de knoop raakt met basisstatements van VBA zelf.
 
Jan van Asseldonk zei:
vervang do sub save() door save.

Alleen zou ik die niet save noemen maar bijvoorbeeld Bewaren of MySave.
Dit om te voorkomen dat je in de knoop raakt met basisstatements van VBA zelf.

de voortgangsindicator doet het geweldig, maar helaas slaat ie niks op...
i don't get it.. ik heb nu:

Sub Main2()
Dim i As Long, tot As Long
Dim j As Long, totJ As Long
tot = 770
totJ = 51
ProgressDlg2.Caption = "ff wachte..............................nog ff wachte..............................ff wachte nog............................."
For j = 1 To totJ
For i = 1 To tot
If i Mod 10 = 0 Then ProgressBar2 "Opslaan werkblad " & j & " of " & totJ, j / totJ, "Opslaan veld " & i & " of " & tot, i / tot
' bewaren
Next i
Next j
Unload ProgressDlg2
End Sub


en


Sub bewaren()
For Each w In Application.Workbooks
w.save
Next w
End Sub


in mijn module staan..
ik snap het nou echt niet meer... zou 'ie zo moeten werken?
 
Het commentaarquotje ' voor bewaren weghalen.
Het ' geeft aan dat alles wat er in die regel op volgt niet verwerkt moet worden.
Loop de macro maar eens stap voor stap door (met F8) dan zul je zien dat die regels overgeslgen worden.
 
goed!!

Jan van Asseldonk zei:
Het commentaarquotje ' voor bewaren weghalen.
Het ' geeft aan dat alles wat er in die regel op volgt niet verwerkt moet worden.
Loop de macro maar eens stap voor stap door (met F8) dan zul je zien dat die regels overgeslgen worden.


Heeeyyy Jan van Asseldonk,

Geweldig!!!!:D

Hij doet 't!!
dat was de laatste stap die nodig was< ha!

helemaal te gek!
alleen trekt mijn geheugen het niet...:(
mijn excel bestand neemt nou werkend meer dan 40mb geheugen in beslag en als ik opsla, slaat 'ie vast... toch maar op een betere pc zetten..

Thanks voor de hulp Jan!! helemaal te gek!!
:thumb:
't werkt zoo goed!!
:)
Groetjes,
Rogier
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan