Macros y botones

Deseo meter el código en un botón para que se ejecuten todas mis macros juntas puedes ayudarme
Sub copiar()
Range("c3:w3", "c3:w3").Copy
Sheets("Hoja1").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Transpose:=True
End Sub
'Aqui empieza a copiar el numero de columna
Sub copiarL()
Range("c2:w2").Copy
Sheets("Hoja1").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Transpose:=True
With Selection
   .Font.Bold = False
       End With
End Sub
Y esta más largo

1 respuesta

Respuesta
1
Si entendí bien, creá una macro de esta manera:
Sub MacroTotal()
Call copiar
Call copiarL
Call otras
End Sub
Si te parece, entre cada llamada podrías indicar con un msgbox el proceso que ha finalizado.
Sdos
Elsa
PD) ¿Necesitas manuales? Hay 1 para cada nivel. Podes conocerlos visitando:
Ya use ese código y no me funciono es que no se por que sea que tengo muchas macros pero no lo creo por que cuando tenia solo tres lo intente y no hacia nda bueno espero me ayudes por favor
Saludos¡
NO puedo adivinar en qué te estás equivocando, pero este es el modo correcto.
Veamos: Cada macro está en algún módulo (no necesariamente en el mismo)
¿Tenés algún botón o atajo de teclado que ejecute la MacroTotal?
Están bien llamadas, ¿es decir no hay errores en los nombres?
¿Están en el mismo libro?
Las variables que usa cada macro, si van a ser evaluadas en las otras rutinas, deben ser declaradas como públicas.
REpasá estos ptos y ampliame un poco más si el problema persiste.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas