Progress Bar

[swestwood]

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

[Ron de Bruin]

Hi swestwood

See
http://www.j-walk.com/ss/excel/tips/tip34.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl


"swestwood" <[email protected]> wrote in message
news:[email protected]...
>
> 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
>

[ben]

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
>
>