Ejecutar varia macros desde una sola

[eugeniocol]

Hola buenas.

Necesitaria crear una macro en una hoja distinta a las demas y que esta ejecute a las otras macros que hay en diferentes hojas del mismo libro.

ejemplo: para unas macros con sus botones en hoja2,3,4 y desde hoja1 desde otro botón que se ejecuten las anteriores.

Salud2.

[Antoni]

Sub MiMacroTotal()


  Hoja1.Macro1

  Hoja2.Macro2

  Hoja3.Macro3


End Sub[/CODE]

[Martin Urieta]

Esta macro cambia el color de las celda dentro de la hoja 1, y corre las macro dentro de hoja 1, hoja 2 y hoja 3

Macro en Hoja 1 y asi sucecivamente.

Sub color()

    Range("B4").Select

    With Selection.Interior

        .Pattern = xlSolid

        .PatternColorIndex = xlAutomatic

        .color = 65535

        .TintAndShade = 0

        .PatternTintAndShade = 0

    End With

End Sub[/CODE]

Macro en un modulo para llamar a las 3 macro:

[CODE]Sub Macro1()
Application.Goto Sheets("HOJA1").Range("B4")
Run (color)
Application.Goto Sheets("HOJA1").Range("C5")
Run (color2)
Application.Goto Sheets("HOJA1").Range("D6")
Run (color3)
End Sub
[/CODE]

[eugeniocol]

gracias atodos,pero mientras por san google vi esta opcion Application.Run y con la grabadora lo solucione asi

Sub ActivarMacros()


    Sheets("Hoja1").Select

    Application.Run "'Una Macro para activar a OTRAS.xlsm'!Copia1"

    Sheets("Hoja2").Select

    Application.Run "'Una Macro para activar a OTRAS.xlsm'!Copia1"

    Sheets("Hoja4").Select

    Application.Run "'Una Macro para activar a OTRAS.xlsm'!Copia1"

    Sheets("Hoja5").Select

    Application.Run "'Una Macro para activar a OTRAS.xlsm'!Copia1"

    Sheets("Hoja6").Select

    Application.Run "'Una Macro para activar a OTRAS.xlsm'!Copia1"

    Sheets("MENU MACROS").Select

    Range("A1").Select

End Sub


[/CODE]

Gracias de nuevo.

Solucionado.

Salud2.