Consulta a KL sobre barra o porcentaje de progreso

30/05/2005 - 23:59 por Joaquin | Informe spam
Hola KL
Sheets("MAC").Select ...en la la hoja MAC es donde tengo botones que me
activan las macros,

aquí adjunto los codigos:
Sub PRODUCTO_FRESCO()
'
' PRODUCTO_FRESCO Macro
' Macro recorded 19/04/2005 by jtorres
'

'
Sheets("Fresco").Select
Application.Run "'Management Data.xls'!Fresco"
Sheets("Fresco").Select
Application.Run "'Management Data.xls'!Fresco_Fincas"
End Sub


Sub PRODUCCION()
'
' PRODUCCION Macro
' Macro recorded 14/04/2005 by jtorres
'

'
Sheets("Pro").Select
Application.Run "'Management Data.xls'!Sushi_año"
Sheets("Pro").Select
Application.Run "'Management Data.xls'!Cocinado_año"
Sheets("Pro").Select
Application.Run "'Management Data.xls'!Pelado_año"
Sheets("Pro").Select
Application.Run "'Management Data.xls'!IQF_Crudo_año"
Sheets("Pro").Select
Application.Run "'Management Data.xls'!Block_año"
Sheets("Pro").Select
Application.Run "'Management Data.xls'!Blanched_año"
Sheets("Pro").Select
Application.Run "'Management Data.xls'!Empanizado_año"
Sheets("Pro").Select
Application.Run "'Management Data.xls'!WSO_año"
Sheets("Pro").Select
Application.Run "'Management Data.xls'!Entero_año"
Range("B21:F21").Select
End Sub

Sub PROD_ESTILOS()
'
' PROD_ESTILOS Macro
' Macro recorded 15/04/2005 by jtorres
'

'
Sheets("Graphics").Select
Application.Run "'Management Data.xls'!Cook_PD"
Application.Run "'Management Data.xls'!Cook_WSO"
Application.Run "'Management Data.xls'!IQF_PD"
Application.Run "'Management Data.xls'!IQF_WSO"
Application.Run "'Management Data.xls'!Block_PD"
Application.Run "'Management Data.xls'!Block_WSO"
Application.Run "'Management Data.xls'!Cook_Local_PD"
Application.Run "'Management Data.xls'!Cook_Local_WSO"
Application.Run "'Management Data.xls'!Sushi_Local"
Application.Run "'Management Data.xls'!Local_Block_PD"
Application.Run "'Management Data.xls'!Local_Block_WSO"
Application.Run "'Management Data.xls'!Local_IQF_PD"
Application.Run "'Management Data.xls'!Local_IQF_WSO"
Sheets("INPROD").Select
Range("G4").Select
End Sub

Todos son macros que corren otros macrossi me puedes ayudar con
cualquiera de las dos ultimas opciones que me propones te agradeceria mucho.
bien sea con 33% o 16.7%

Lo que quiero es que esa barra de progreso se pueda visualizar en la Hoja
MAC que es desde donde ejectuto las macros... Gracias por tu asistencia.
 

Preguntas similares