Progress Meter Error

[TOM R]

Hello Members, The code below I'm trying to get to work errors.
with a Compile error: EndWith without With. What would be a remedy for this. Thanks in advance.

Sub UpdateProgress(Pct)
Dim c As Long
UserForm5.LabelProgress.Width = 0
a = 40000
For B = 1 To a
       c = B * a
       UserForm5.LabelProgress.Width = (B / a) * 400
 
 ' Update the Caption property of the Frame control.
UserForm5.FrameProgress.Caption = Format(PctDone, "0%")

' Widen the Label control.
UserForm5.LabelProgress.Width = PctDone * (UserForm5.FrameProgress.Width - 10)

   DoEvents
Next B

    Unload UserForm5
End With
End Sub

Regards, Tom

 

[VoG]

Remove the End With (second to last line).

 

[TOM R]

Hi VoG, Thanks for repyling. If I take the endwith out I get ainvalid use of null error on line

UserForm5.LabelProgress.Width = PctDone * (UserForm5.FrameProgress.Width - 10)

You think, Maybe add: Dim as PctDone Long
Regards, Tom

 

[VoG]

Should it be?

Sub UpdateProgress(PctDone)

 

[TOM R]

Hi VoG, Yes it sould be and I tried using that

Sub UpdateProgress(PctDone)

also get the same error. in

UserForm5.LabelProgress.Width = PctDone * (UserForm5.FrameProgress.Width - 10)

The code worked to a point I played around using other posts form the board but I'm not sure why it don't fire correctly.

Regards, Tom

 

[TOM R]

Hi VoG, I added

Dim PctDone as Long it

errors. If I keep

Dim PctDone as Long

the code fires with out error but the progress meter flickers in the userform with a the color advancing.

Sub UpdateProgress(Pct)
Dim c As Long
Dim PctDone As Long

UserForm5.LabelProgress.Width = 0
a = 10000
For B = 1 To a
       c = B * a
       UserForm5.LabelProgress.Width = (B / a) * 400
 
 ' Update the Caption property of the Frame control.
UserForm5.FrameProgress.Caption = Format(PctDone, "0%")

' Widen the Label control.
UserForm5.LabelProgress.Width = PctDone * (UserForm5.FrameProgress.Width - 10)

   DoEvents
Next B
    Unload UserForm5
End Sub

Regards Tom

 

[TOM R]

Hi I meant

Dim pct as Long

it will fire without the scrolling advance only flicker


Regards Tom

 

[VoG]

Try with a diagnostic message:

Sub UpdateProgress(PctDone As Long)
Dim c As Long
UserForm5.LabelProgress.Width = 0
a = 40000
For B = 1 To a
       c = B * a
       UserForm5.LabelProgress.Width = (B / a) * 400
 
 ' Update the Caption property of the Frame control.
UserForm5.FrameProgress.Caption = Format(PctDone, "0%")

' Widen the Label control.
MsgBox PctDone * (UserForm5.FrameProgress.Width - 10)
UserForm5.LabelProgress.Width = PctDone * (UserForm5.FrameProgress.Width - 10)

   DoEvents
Next B

    Unload UserForm5
End With
End Sub

Does it give a zero or negative value?

 

[TOM R]

Hi Vog i get a compile error with the End With

If I block that I get invalid use of Null Error

Regards Tom

 

[VoG]

Sorry, I left the End With in by mistake.

With the line that errors commented out, what does the MsgBox return?

Sub UpdateProgress(PctDone As Long)
Dim c As Long
UserForm5.LabelProgress.Width = 0
a = 40000
For B = 1 To a
    c = B * a
    UserForm5.LabelProgress.Width = (B / a) * 400
    
    ' Update the Caption property of the Frame control.
    UserForm5.FrameProgress.Caption = Format(PctDone, "0%")
    
    ' Widen the Label control.
    MsgBox PctDone * (UserForm5.FrameProgress.Width - 10)
    'UserForm5.LabelProgress.Width = PctDone * (UserForm5.FrameProgress.Width - 10)
    
    DoEvents
Next B

Unload UserForm5
End Sub