Anónimo
Macros y botones
Hola he creado varias macros pero no pude ejecutarlas todas a la ves con la instrucción tall así que mi idea es meterlas en un botón y al hacer click en el se ejecuten todas como puedo hacerle por favor contesten me urge¡
1 Respuesta
Respuesta de paramisolo
1
Dibujas un botón en la hoja y pinchas con el derecho y eliges agregar código, le pegas tus macros y dentro de la primera la penúltima linea debe ser Call (el nombre de la macro siguiente sin () ) y así hasta que llegues al final de todas.
Si tienes algún problema me lo dices y te explico lo que necesites.
>Un saludo
>Julio
Si tienes algún problema me lo dices y te explico lo que necesites.
>Un saludo
>Julio
Me podrías dar un ejemplo por favor en mi código
Sub copiar()
Range("c3:w3", "c3:w3").Copy
Sheets("Hoja1").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Transpose:=True
End Sub
Sub copiar1()
Range("c4:w4").Copy
Sheets("Hoja1").Select
Range("A23").Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Transpose:=True
End Sub
se las pongo a todas las macros?? o komo ??
Espero tu repueta me urge ¡ Gracias
Sub copiar()
Range("c3:w3", "c3:w3").Copy
Sheets("Hoja1").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Transpose:=True
End Sub
Sub copiar1()
Range("c4:w4").Copy
Sheets("Hoja1").Select
Range("A23").Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Transpose:=True
End Sub
se las pongo a todas las macros?? o komo ??
Espero tu repueta me urge ¡ Gracias
Quedaría así:
Sub copiar()
<address>Range("C3:W3").Copy</address><address>.....</address><address>....</address><address>....</address><address>Selection:PasteSpaecial Paste:=xlPasteAllExceptBorders, Transpose:=True</address><address>Call copiar</address><address>End Sub</address><address>Sub Copiar1()</address><address>Range("C4:W4").Copy</address><address>....</address><address>....</address><address>....</address><address>Call (la siguiente y así hasta el final)</address><address>End Sub</address><address>>Un saludo</address><address>>Julio
</address>
Sub copiar()
<address>Range("C3:W3").Copy</address><address>.....</address><address>....</address><address>....</address><address>Selection:PasteSpaecial Paste:=xlPasteAllExceptBorders, Transpose:=True</address><address>Call copiar</address><address>End Sub</address><address>Sub Copiar1()</address><address>Range("C4:W4").Copy</address><address>....</address><address>....</address><address>....</address><address>Call (la siguiente y así hasta el final)</address><address>End Sub</address><address>>Un saludo</address><address>>Julio
</address>