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
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 de Elsa Matilde
1