Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Consulta a KL sobre barra o porcentaje de progreso

30/05/2005 - 23:59 por Joaquin | Informe spam
Ayuda Hacer una pregunta
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.
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 KL
31/05/2005 - 00:19 | Informe spam
Hola Joaquin,

Como ejemplo prueba el codigo que sigue aunque sin saber como actuan
exactamente los macros que se llaman mediante estos macros principales, es
dificil decir si es necesario seguir activando la misma hoja en cada paso.

Saludos,
KL

Sub PRODUCCION()
Dim Ruta As String
Dim nMacros As Variant
Dim i As Long

Ruta = "'Management Data.xls'!"
nMacros = Array("Sushi_año", "Cocinado_año", _
"Pelado_año", "IQF_Crudo_año", "Block_año", _
"Blanched_año", "Empanizado_año", "WSO_año", _
"Entero_año")

For i = LBound(nMacros) To UBound(nMacros)
With Sheets("Pro")
.Activate
.Cells(1, 1) = Format(i / UBound(nMacros), "0.0%")
End With
Application.Run Ruta & nMacros(i)
Next i
Range("B21:F21").Select
End Sub



"Joaquin" wrote in message
news:%23$
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

 

Busqueda sugerida :