Sharid
Well-known Member
- Joined
- Apr 22, 2007
- Messages
- 1,064
- Office Version
- 2016
- Platform
- Windows
I have looked a t several progress bar, on the web but I CAN NOT get any of them to work with my code, (My Post Mr Excel). So I decided to create a basic one which works on Sheet change events. It kind of works but I need a bit more help. Appreciate if anyone could help.
Userform1 IN DESIGN MODE. I have places a label and called it "Bar", this is the image
UserForm1 Active, Nothing is Showing as 0% in sheet10 Q3.....Sheet 10
.....
Userform1 Active After Loops Have Completed...........................
.........
If I multiple by 10. All though 100% is reached the bar is not at 100%. I think the issue is the max width of the bar has not been determined so though the loops equal 100% the bar does not.
Code that I am using
I tried to MULTIPLE the figure by 10 in Sheet10, Q3 to increase the bar size. kind of worked. But Still not right. The Bar changes depending on the % in Q3
Please could some one help.
Thanks in advance.
Userform1 IN DESIGN MODE. I have places a label and called it "Bar", this is the image
UserForm1 Active, Nothing is Showing as 0% in sheet10 Q3.....Sheet 10
Userform1 Active After Loops Have Completed...........................
If I multiple by 10. All though 100% is reached the bar is not at 100%. I think the issue is the max width of the bar has not been determined so though the loops equal 100% the bar does not.
Code that I am using
I tried to MULTIPLE the figure by 10 in Sheet10, Q3 to increase the bar size. kind of worked. But Still not right. The Bar changes depending on the % in Q3
VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)
UserForm1.Bar.Width = Sheets("Sheet10").Range("Q3") ' * 10 '
End Sub
Please could some one help.
Thanks in advance.