Barra de progreso

Hola Joaquin,

La solucion depende totalmente de tu macro. Si publicas el codigo, sera mas
facil darte una respuesta mas concreta. Mientras tanto podrias revisar este
ejemplo:
http://j-walk.com/ss/excel/tips/tip34.htm

Saludos,
KL


"Joaquin" wrote in message
news:

Hola, un saludo,
Cómo logro mostrar en una celda un porcentaje que se incremente conforme
el avance de un proceso (macro)?, si tienen un ejemplo me seria muy
productivo.

muchas gracias

En realidad son muchas macros las que uso, un ejemplo es el siguiente:
Sub TRES()

Application.Run "'Management Data.xls'!PRODUCTO_FRESCO"
Sheets("MAC").Select
Application.Run "'Management Data.xls'!PRODUCCION"
Sheets("MAC").Select
Application.Run "'Management Data.xls'!PROD_ESTILOS"
Sheets("MAC").Select
End Sub

es una macro que corre otras macros

"KL" wrote in message
news:efm$

Hola Joaquin,

La solucion depende totalmente de tu macro. Si publicas el codigo, sera
mas facil darte una respuesta mas concreta. Mientras tanto podrias revisar
este ejemplo:
http://j-walk.com/ss/excel/tips/tip34.htm

Saludos,
KL


"Joaquin" wrote in message
news:

Hola, un saludo,
Cómo logro mostrar en una celda un porcentaje que se incremente conforme
el avance de un proceso (macro)?, si tienen un ejemplo me seria muy
productivo.

muchas gracias

Hola Joaquin,

Podrias exponer los otros tres macros ya que sospecho que:
1) el codigo podria ser optimizado/depurado (a juzgar por el uso repetido de
Sheets("MAC").Select en tu macro)
2) no quieres que tu celda solo muestre el progreso con el paso de 33%, o
sea 0%, 33%, 66%, 100%, que creo que es lo unico que se puede hacer
teniendo el codigo que expones. Claro, a no ser que asignemos un porcentaje
a cada comando Sheets("MAC").Select y asi obtengamos el paso de 16.7%

Saludos,
KL


"Joaquin" wrote in message
news:

En realidad son muchas macros las que uso, un ejemplo es el siguiente:
Sub TRES()

Application.Run "'Management Data.xls'!PRODUCTO_FRESCO"
Sheets("MAC").Select
Application.Run "'Management Data.xls'!PRODUCCION"
Sheets("MAC").Select
Application.Run "'Management Data.xls'!PROD_ESTILOS"
Sheets("MAC").Select
End Sub

es una macro que corre otras macros

"KL" wrote in message
news:efm$

Hola Joaquin,

La solucion depende totalmente de tu macro. Si publicas el codigo, sera
mas facil darte una respuesta mas concreta. Mientras tanto podrias
revisar este ejemplo:
http://j-walk.com/ss/excel/tips/tip34.htm

Saludos,
KL


"Joaquin" wrote in message
news:

Hola, un saludo,
Cómo logro mostrar en una celda un porcentaje que se incremente
conforme el avance de un proceso (macro)?, si tienen un ejemplo me seria
muy productivo.

muchas gracias

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.


"KL" wrote in message
news:%

Hola Joaquin,

Podrias exponer los otros tres macros ya que sospecho que:
1) el codigo podria ser optimizado/depurado (a juzgar por el uso repetido
de Sheets("MAC").Select en tu macro)
2) no quieres que tu celda solo muestre el progreso con el paso de 33%, o
sea 0%, 33%, 66%, 100%, que creo que es lo unico que se puede hacer
teniendo el codigo que expones. Claro, a no ser que asignemos un
porcentaje a cada comando Sheets("MAC").Select y asi obtengamos el paso de
16.7%

Saludos,
KL


"Joaquin" wrote in message
news:

En realidad son muchas macros las que uso, un ejemplo es el siguiente:
Sub TRES()

Application.Run "'Management Data.xls'!PRODUCTO_FRESCO"
Sheets("MAC").Select
Application.Run "'Management Data.xls'!PRODUCCION"
Sheets("MAC").Select
Application.Run "'Management Data.xls'!PROD_ESTILOS"
Sheets("MAC").Select
End Sub

es una macro que corre otras macros

"KL" wrote in message
news:efm$

Hola Joaquin,

La solucion depende totalmente de tu macro. Si publicas el codigo, sera
mas facil darte una respuesta mas concreta. Mientras tanto podrias
revisar este ejemplo:
http://j-walk.com/ss/excel/tips/tip34.htm

Saludos,
KL


"Joaquin" wrote in message
news:

Hola, un saludo,
Cómo logro mostrar en una celda un porcentaje que se incremente
conforme el avance de un proceso (macro)?, si tienen un ejemplo me
seria muy productivo.

muchas gracias