Ejecutar Varias Macros
Estimado
¿Cómo está?
En otra pregunta anterior su ayuda fue enorme, por eso lo molesto nuevamente, el problema es el siguiente:
Tengo las macros que más abajo copio, lo que quiero hacer es que con un botón (el cual se llame ACTUALIZAR), pueda hacer que las macros corran todas a la vez para que se actualicen todas las celdas.
Estamos hablando de LIBRO 1 (Planillas 2011) donde está toda la información ingresada.
Y LIBRO 2 (Planilla de Impagos) donde las macros llevan toda la información ingresada en el 1.
Como creo un botón en el LIBRO 2 (Planillas de Impagos) para que se actualicen todas las celdas de acuerdo a la información ingresada en el LIBRO 1 (Planillas 2011).
Muchas gracias y saludos.
Macros:
Sub Mistral_Junio()
Windows("PLANILLAS 2011.xls").Activate
Range("B40").Select
Selection.Copy
Windows("Planilla de Impagos.xls").Activate
Range("g18").Select
Selection.PasteSpecial Paste:=xlPasteAll
End Sub
Sub Mistral_Julio()
Windows("PLANILLAS 2011.xls").Activate
Range("B41").Select
Selection.Copy
Windows("Planilla de Impagos.xls").Activate
Range("h18").Select
Selection.PasteSpecial Paste:=xlPasteAll
End Sub
Sub Mistral_Agosto()
Windows("PLANILLAS 2011.xls").Activate
Range("B42").Select
Selection.Copy
Windows("Planilla de Impagos.xls").Activate
Range("i18").Select
Selection.PasteSpecial Paste:=xlPasteAll
End Sub
¿Cómo está?
En otra pregunta anterior su ayuda fue enorme, por eso lo molesto nuevamente, el problema es el siguiente:
Tengo las macros que más abajo copio, lo que quiero hacer es que con un botón (el cual se llame ACTUALIZAR), pueda hacer que las macros corran todas a la vez para que se actualicen todas las celdas.
Estamos hablando de LIBRO 1 (Planillas 2011) donde está toda la información ingresada.
Y LIBRO 2 (Planilla de Impagos) donde las macros llevan toda la información ingresada en el 1.
Como creo un botón en el LIBRO 2 (Planillas de Impagos) para que se actualicen todas las celdas de acuerdo a la información ingresada en el LIBRO 1 (Planillas 2011).
Muchas gracias y saludos.
Macros:
Sub Mistral_Junio()
Windows("PLANILLAS 2011.xls").Activate
Range("B40").Select
Selection.Copy
Windows("Planilla de Impagos.xls").Activate
Range("g18").Select
Selection.PasteSpecial Paste:=xlPasteAll
End Sub
Sub Mistral_Julio()
Windows("PLANILLAS 2011.xls").Activate
Range("B41").Select
Selection.Copy
Windows("Planilla de Impagos.xls").Activate
Range("h18").Select
Selection.PasteSpecial Paste:=xlPasteAll
End Sub
Sub Mistral_Agosto()
Windows("PLANILLAS 2011.xls").Activate
Range("B42").Select
Selection.Copy
Windows("Planilla de Impagos.xls").Activate
Range("i18").Select
Selection.PasteSpecial Paste:=xlPasteAll
End Sub
Respuesta de Eduard Caballero
1