status bar for looping macro

patrickgh · #1 01-22-2014, 09:25 PM

I have a macro that changes the file location of my linked Excel spreadsheet. The process takes quite a while to complete and there is no indication that it is running until I pop up a msgbox at the end to let the user know it completed.

What I want to do is show a progress bar in a dialogue box, but can't find the code to write one for PowerPoint. Is there anything like what I'm looking for? I'll even settle for a passive window that tells the user to be patient while the operation runs and then pop up the msgbox

JohnWilson · #2 01-23-2014, 06:44 AM

http://spreadsheetpage.com/index.php...ess_indicator/

It will work in PPT too.

excelledsoftware · #3 01-23-2014, 09:45 PM

I just make a counter variable and display it somewhere where the user can see. it.

If I am using a for loop like

Code:

Sub LoopWithCounter ()

dim Counter as integer, x as integer
    for x = 1 to 100
    'insert code here
        counter = 100 - x & " Records Remaining."
        range("a1").value = counter
    next x
    
    range("a1").ClearContents
    msgbox "All Records Complete!"
End Sub

May not be exactly what you are looking for but it's a pretty simple solution.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Looping slides within a slideshow	fugi1967	PowerPoint	0	02-01-2012 06:32 AM
Need help on macro for looping	kilosub	Word VBA	31	07-27-2011 01:37 PM
Looping Question	Steve B	PowerPoint	0	01-19-2011 10:44 AM
Looping video	tomasball	PowerPoint	0	10-30-2010 02:38 PM
Unbreakable looping	Dixon	Outlook	0	09-23-2009 02:10 PM