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

Preguntas similare

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.


Respuesta Responder a este mensaje
#2 Joaquin
31/05/2005 - 17:09 | Informe spam
Hola nuevamente KL, he puesto en la macro, el codigo que me enviaste pero
hace exactamente lo mismo que el codigo que tenia anteriormente y no logro
visualizar el porcentaje de progreso...

Saludos.

"KL" wrote in message
news:%
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.






Respuesta Responder a este mensaje
#3 KL
31/05/2005 - 19:34 | Informe spam
Hola Joaquin,

Creo que vas a tener que dar ejemplos de los macros que se llaman para poder
entender que es lo que realmente ocurre en la hoja "Pro".

Saludos,
KL


"Joaquin" wrote in message
news:
Hola nuevamente KL, he puesto en la macro, el codigo que me enviaste pero
hace exactamente lo mismo que el codigo que tenia anteriormente y no logro
visualizar el porcentaje de progreso...

Saludos.

"KL" wrote in message
news:%
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.










Respuesta Responder a este mensaje
#4 Joaquin
31/05/2005 - 21:12 | Informe spam
Hola KL he solucionado algo con el codigo que me enviaste, te agradezco
mucho me quedo si:


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

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, 9) = Format(i / UBound(nMacros), "0.0%")
End With
Application.ScreenUpdating = False
Sheets("MAC").Select
Application.Run Ruta & nMacros(i)
Application.ScreenUpdating = True
Next i

Sheets("Pro").Select
Range("I1").Select
Selection.ClearContents
Range("A7").Select

End Sub

de nuevo muchas gracias...Saludos


"KL" wrote in message
news:
Hola Joaquin,

Creo que vas a tener que dar ejemplos de los macros que se llaman para
poder entender que es lo que realmente ocurre en la hoja "Pro".

Saludos,
KL


"Joaquin" wrote in message
news:
Hola nuevamente KL, he puesto en la macro, el codigo que me enviaste pero
hace exactamente lo mismo que el codigo que tenia anteriormente y no
logro visualizar el porcentaje de progreso...

Saludos.

"KL" wrote in message
news:%
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.














email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida