Posted to microsoft.public.excel.programming
|
|
Progress Bar
see the following link
http://www.cpearson.com/excel/Progress.htm
--
When you lose your mind, you free your life.
"swestwood" wrote:
I have some code that loops through a worksheet which can vary in
length.
Please see below fo code
Application.ScreenUpdating = False
Range("B1").Select
Do
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[2],Flagged_Orders!R2C[1]:R50C[4],4,FALSE)),"""",VLOOKUP(RC[2],Flagged_Orders!R2C[1]:R50C[4],4,FALSE))"
ActiveCell.Offset(1, 0).Select
Loop While ActiveCell.Offset(0, 2).Value < ""
Range("C1").Select
Do
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[1],Dupl_Check!R5C[27]:R3863C[28],2,FALSE)),"""",VLOOKUP(RC[1],Dupl_Check!R5C[27]:R3863C[28],2,FALSE))"
ActiveCell.Offset(1, 0).Select
Loop While ActiveCell.Offset(0, 1).Value < ""
MsgBox "Task Complete thankyou for you Patience", vbInformation,
"Excel Programming"
I want to create a progess bar that will tell the user how complete the
macro is in percentage.
At the moment I have a UserForm That just says Processing Please
Wait..
Any help would be gratefully received.
Simon
--
swestwood
------------------------------------------------------------------------
swestwood's Profile: http://www.excelforum.com/member.php...o&userid=31323
View this thread: http://www.excelforum.com/showthread...hreadid=510093
|