crear botón pegar valores transpuestos
Hola Gonzalo,
1- En el evento Click() del botón que desees programar coloca la siguiente rutina:
Nota: En este ejemplo se copian los datos del rango "A2:A4" al rango "E3" en modo de valores traspuestos. Deberás colocar para rango origen y destino lo que se ajuste a tus necesidades.
----------------------------------------------------------------------------------------------------------->
Private Sub CommandButton1_Click()
'llamada proceso
TuPegadoEspecial Sheets(1).Range("A2:A4"), Sheets(1).Range("E3")
Sheets(1).Range("A1").Select
End Sub
2- En un modulo registras la rutina que se llama desde el botón y es la que realmente hace la tarea
----------------------------------------------------------------------------------------------------------->
Sub TuPegadoEspecial(ByVal RangoOrigen As Range, RangoDestino As Range)
On Error GoTo errorhandler
'captura data origen
RangoOrigen.Copy
'pega data origen
RangoDestino.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
Exit Sub
errorhandler:
MsgBox "Error: " & Err.Description, vbCritical, "Mensaje"
End Sub
Un saludo,