Thread: Progress Bar
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
swestwood swestwood is offline
external usenet poster
 
Posts: 1
Default Progress Bar


I have some code that loops through a worksheet which can vary i
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 th
macro is in percentage.

At the moment I have a UserForm That just says Processing Pleas
Wait..

Any help would be gratefully received.


Simo

--
swestwoo
-----------------------------------------------------------------------
swestwood's Profile: http://www.excelforum.com/member.php...fo&userid=3132
View this thread: http://www.excelforum.com/showthread.php?threadid=51009