Ultimate Progress Bar Control in VBA Userform
HTML-код
- Опубликовано: 5 сен 2024
- #ProgressBar #VBAUserForm
Hello Friends,
In this video, you will learn how to develop a Progress Bar in Excel VBA. I have also explained, how can you integrate this Progress Bar with your existing VBA Project. You can use this Progress Bar inside the Loop or without Loop also.
Download the practice files from below given link:
www.pk-anexcel...
Download the Calendar Control in VBA from below link
www.pk-anexcel...
Time Picker in Excel VBA-
• Time Picker and Date T...
Data Consolidation Macro-
• Data Consolidation and...
• Data Consolidation and...
• Data Consolidation: Al...
Download our free Excel utility Tool and improve your productivity:
www.pk-anexcel...
See our Excel Products:
www.pk-anexcel...
Visit to learn more:
Chart and Visualizations: www.pk-anexcel...
VBA Course: www.pk-anexcel...
Download useful Templates: www.pk-anexcel...
Dashboards: www.pk-anexcel...
Watch the best info-graphics and dynamic charts from below link:
• Dynamic Graphs
Learn and free download best excel Dashboard template:
• Excel Dashboards
Learn Step by Step VBA:
• VBA Tutorial
Website:
WWW.PK-AnExcel...
Facebook:
/ pkanexcelexpert
Telegram:
t.me/joinchat/...
Pinterest:
/ pkanexcelexpert
Visit our Amazon Store
www.amazon.in/...
So helpful. Short and concise to the point.
Just 1 observation, @1:46, if we want the progress bar to disappear after 100% completion, just change False to True in the last line before End Sub.
Exploring Vba with you is new opportunity.
Thanks for your valuable feedback
Ty.
European ft
Nice solution
I was having problems with the label1 (the bar wasn't upadting)
So I fixed the Me.Label1.Width = Current_W
and it works fine
thanks
Thank you! Very nice, simple and very useful.
Most welcome🙏
this is a start but in a real use it will only slow 10 times the execution of whatever needs to be done.
that was very helpful for me - tanks a lot.
Most welcome🙏
very useful file vba I do like it. PK thank you for sharing it.
Thanks for your valuable feedback
Great work bro, its working perfectly.
Thank you so much 😀
Thank u sir I'm searching this from long time 😌
Welcome
Very nice information Sir
Thanks for your valuable feedback
مرسی
Thank you so match, Sir.
Welcome
Thanks for sharing your knowledge .. ☺️
Thanks, very useful
Thanks for your valuable feedback
Hello PK sir,
Another wonderful tweak to create progress bar using just labels. Wonderful idea.
However, one better alternative of VBA.DoEvents could be form.Repaint method to update progress as DoEvents gives user ability to mess up with excel while code is still running!
@@mark99k Okay, good to know that you tested it.
Amazing
Thanks
Thank you so much PK Sir for such usefull tutorial, but here you declare Total width as Variant not A single please check
THANK YOU. IT IS VERY INTERESTING. CAN I APPLY IT TO ACCESS DATABASE TO IMPORT EXCEL FILES ? IF SO HOW CAN I DO IT? THANKS
Hi PK, very helpful yaar...btw, can you also show the completion bar?
Thanks
PK hi, thanks you so much due to share us this video. Great job. I think so, actully you are excel dashboard master. I’m following very closely your dashboard. Could you please upgrade project management dashboard .
is this a macros specific or for any macro running at the present..??
how to move progress bar where i want to stay in a screen?
This is cool but when I tried the loop version with my own code that normally took like 15 seconds to run, it took 30 minutes. Not sure why the progress is slowing it down so much.
Hello PK, I am looking to do something like this with no loops. My macro has multiple steps just moving/copying/deleting stuff from the workbook. I am new on VBA and having a hard time showing something that can tell people the macros are working. I tried to follow the tutorials for no loops, but I guess its too advanced for me. Any suggestions will be great!
Have you created general ledger in VBA or any video.
When the percents are running through: If show the 1% I want see in another label or textbox or like that a text and I want use another comannd button that i can stop or running faster or running back how can I do this issue?
hi sir please make video for vehicle maintenance log book
👏👏👏👏
Thanks
Sir, ek code edit karo ki consoludate data me file name show ho jaye.
As i am new to the coding world i am facing some difficulties to place a progressbar while macro runs ( progressbar for add, delete, update and search from userform to sheet). could you please help me with that if i send you my file?
Sir, please create some dashboard for purchase, Procurement
A error massage, Can not show non-model form when Model form is displayed.
Sir, please provide the code to get the file name from data consolidated in column "A"
Dear Sir. Please help us to get file name also in data consolidatefvsheet
Sir unable to apply progress bar in my data merger sheet
Please download the practice file and see the code.
Download link has been given in video's description box or visit our website WWW.PK-AnExcelExpert.Com
Sir, Thanks for see my comments and revert with your valuable time.
Ek request hai apse file ka naam nahi capture ho raha hai.
Kripya karke column A me file name capture ka code bhi mentioned kar the
Please revert
Dear PK,
Please mention the code for consolidated file name in column A
Please provide tha file name also in column A
Dear, i want to file name in each raws.
Please provide the code in consolidated data.
Sir, file name is not showing, from which excel file data consolidated.
You can use our utility Tool to consolidate the data. I will show the source file also. Please watch below video
ruclips.net/video/1NQj17-3u10/видео.html
@@PKAnExcelExpert Sir, request you to please apply the code for file name in data consolidated sheet. In beginning or last.
Dim sht As Worksheet
Dim LastRow As Long
Set sht = ThisWorkbook.Sheets("ITEMS")
Dim rng As Range
Set rng = sht.Range("ITEM_LIST").CurrentRegion
LastRow = rng.End(xlDown).Row + 1
With sht
.Cells(LastRow, 3) = lblItemId
.Cells(LastRow, 4) = txtItemname
.Cells(LastRow, 5) = lblDate
.Cells(LastRow, 6) = txtItemDes
.Range("ITEM_LIST").Rows(rng.Rows.Count).Font.Name = "Franklin Gothic Book"
.Range("ITEM_LIST").Rows(rng.Rows.Count).HorizontalAlignment = xlCenter
End With
how could i place your progress bar in this coding..? please help me