VBA closeform

[martindeboer1988]

Ik zit met de volgende uitdaging, ik heb een userform met progress bar geplaatst in een module. Nu zou ik graag willen dat deze gesloten word op het moment dat het percentage 100% is. Onderstaand heb ik nu maar naar mijn idee call ik op de verkeerde plaats, iemand nog suggesties ?

Sub code()

Dim i As Integer, j As Integer, pctCompl As Single

Sheet1.Cells.Clear

For i = 1 To 100
    For j = 1 To 1000
        Cells(i, 1).Value = j
    Next j
    pctCompl = i
    progress pctCompl
Next i
End Sub

Sub progress(pctCompl As Single)

UserForm1.Text.Caption = pctCompl & "% Voltooid"
UserForm1.Bar.Width = pctCompl * 2
DoEvents
Call closeform
End Sub

Sub closeform()
Unload UserForm1
End Sub

 

[gast0660]

Waarom zoiets?
Werkt alleen vertragend.

Sub code()

Dim i As Integer, j As Integer, pctCompl As Single

Sheet1.Cells.Clear

For i = 1 To 100
    For j = 1 To 1000
        Cells(i, 1).Value = j
    Next j
    pctCompl = i
    progress pctCompl
Next i
[COLOR="#FF0000"]Unload UserForm1[/COLOR]
End Sub

Sub progress(pctCompl As Single)

UserForm1.Text.Caption = pctCompl & "% Voltooid"
UserForm1.Bar.Width = pctCompl * 2
DoEvents
End Sub

 

[martindeboer1988]

Dat is het inderdaad nu je het zegt bedankt voor je hulp.:thumb: