VBA Progress bar without a loop

Greetings,

I have been trying unsuccessfully to implement the progress bar found in this Experts Exchange article, however, I am running into difficulty because my program does not use a loop.

I have attached the main XLSM file containing the actual program as well as the TXT file that is to be used when executing the program.

The sequence of events should follow:

-User opens 'EOM-Reports-Template.xlsm" file
-On sheet(START HERE), user presses 'Import SAP data' button and navigates to the location of the TXT file (in this case, the TXT file provided by me.)
-Once the text file is selected, a series of sub procedures execute, all of which are stored in the 'txt_import' module  This this the point I would like the progress par to popup and provide the user with a display of the script progress.
-Once these are finished, a Save As prompt asks the user to enter a name for the file and location.  The idea here is that the original file remains untouched and is closed after the user saves the file as a new document.


I have tried a few different solutions found when searching Google and Experts Exchange but they all seem to fail when the progress bar pops up.  AS the file stands now, the progress bar popup is disable so that you may see the intended order of operations.

Thank you in advance for your help.
EOM-Reports-Template.xlsm
BU50000205112.TXT
peterschussheimAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Martin LissOlder than dirtCommented:
I found that article a while back and I use it without looping in one of my projects. I didn't like the colors so I changed them. Here's a working project. Run the PB macro.
Q-28266532.xlsm
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
peterschussheimAuthor Commented:
Thank you for the solution, it was what I was looking for.  I added another parameter to the "SetDialogValues" procedure:

Public Sub SetDialogValues(intValue, _
                           Optional ByVal statusValue As String)
    
    ProgressDialogue.SetStatus statusValue
    ProgressDialogue.SetValue intValue

End Sub

Open in new window

The statusValue variable allows me to update the text string with each integer update.

Thanks again
0
Martin LissOlder than dirtCommented:
You're welcome and I'm glad I was able to help.

Marty - MVP 2009 to 2013
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Spreadsheets

From novice to tech pro — start learning today.