Pasar de fila a Columnas

Tengo este código que baje de la página de ustedes pero me coge la matriz y me la pasa toda a una fila y quisiera que fuera a una columna, no se que modificarle les agradezco que me ayduden a modificar el código y me copie todo a una sola columna puede ser en la misma hoja o en otra hoja
Sub Unir()
Dim cel As String
Range("A1").Select
cel = ActiveCell.Address
Range(ActiveCell, ActiveCell.Offset(0, 29)).Copy
Range("A55").Select
ActiveCell.PasteSpecial
Range(cel).Offset(1, 0).Select
For x = 1 To 29
cel = ActiveCell.Address
Range(ActiveCell, ActiveCell.Offset(0, 29)).Copy
Range("A55").Select
ActiveCell.End(xlToRight).Offset(0, 1).Select
ActiveCell.PasteSpecial
Range(cel).Offset(1, 0).Select
Next x
End Sub

1 respuesta

Respuesta
1
Selecciona el rango a pasar de columna a fila o de fila a columna, y ejecuta la macro que corresponda.
Sub Columnas_a_filas()
'
' Columnas_a_filas Macro
'
'
    Selection.Copy
    Range("D1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Application.CutCopyMode = False
    Range("A1").Select
End Sub
Selecciona el rango a pasar de columna a fila o de fila a columna, y ejecuta la macro que corresponda.
Sub Columnas_a_filas()'' Columnas_a_filas Macro'
'    Selection.Copy    Range("D1").Select    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _        False, Transpose:=True    Application.CutCopyMode = False    Range("A1").SelectEnd Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro copiar y pegar valores en columna filtrada

Necesito una macro que una vez filtrada una columna me copie una celda y pegue los valores en la misma, baje otra celda y haga lo mismo y así consecutivamente hasta el final. He grabado una macro con el grabador para que se den una idea. Sub Macro1()...
1 respuesta

Macro buscar-pegar

Me ha surgido un problema con una hoja de exel de registro de operaciones que estoy montando, me veo en la necesidad de ingresar datos de una hoja de calculo a otra y creo que la mejor opción es empleando una macro pero mi problema es que no se como...
1 respuesta

Necesito macro para copiar y transponer celdas

Necesito una macro que haga lo siguiente; necesito copiar una cantidad de filas con celdas variables a partir de la columna B y trasponerlos enla columna A a partir de la celda A1, tengo la siguiente macro pero el problema es que me transpone una...
1 respuesta

Macro en excel para transponer a una sola columna

Necesito realizar una macro que me haga lo siguiente: Tengo una serie de datos en filas en una hoja de excel. Quiero copiar un rango de celdas en dichas filas y pegarlos, transpuestos, y en el orden de las filas en una sola columna de una segunda hoja.
1 respuesta

Ejecutar una macro dependiendo de otra macro?

Tengo una pequeña duda... Tengo dos botones con macros uno de ellos dice IMPRIMIR y otro dice REPARTO.. Lo que quiero es que no se pueda ejecutar el botón REPARTO si no se ha impreso nada osea si no le han dado clic al botón IMPRIMIR... En el botón...
2 respuestas

Macro para copiar y pegar última fila

Quisiera elaborar un macro que al ser ejecutado me copie la última fila de la hoja con datos (la última por abajo) del rango A:AX y me la pegue en la fila siguiente; y que tras ésto haga un pegado de valores (sin fórmulas, sólo los valores) en esa...
1 respuesta

Macro para copiar en la ultima fila libre

Tengo en una hoja un listado de precios, que en realidad es una macro que hace un listado de todas las hojas del libro. Ahora bien, el listado aparece en la columna B, en las columnas C a J, hay fórmulas asociadas a lo que aparece en la B. ¿Lo qué...
1 respuesta

Borrar Fórmula sin borrar datos

Quiero que una fórmula de excel se ejecute y cuando se halle el resultado se borre la fórmula y me quede unicamente el resultado en la celda, de tal forma que la próxima vez que abra el libro no se cambie el dato anterior.
1 respuesta