1 Respuesta
Respuesta de César Mera
1
Prueba con este código y me dices si le debemos agregar algo pues no me es clara la pregunta.
Sub Transponer()
' Macro grabada el 25/05/03 por MERA
Range(ActiveCell.Address, ActiveCell.Offset(24, 9).Address).Select
Selection.Copy
ActiveSheet.Next.Select
Selection.PasteSpecial Transpose:=True
CutCopyMode = False
End Sub
Sub Transponer()
' Macro grabada el 25/05/03 por MERA
Range(ActiveCell.Address, ActiveCell.Offset(24, 9).Address).Select
Selection.Copy
ActiveSheet.Next.Select
Selection.PasteSpecial Transpose:=True
CutCopyMode = False
End Sub
