Macro copiar celdas y pegar en otra hoja

Hola experto,
En un libro de excel, en la hoja 1 tengo unos datos en las coumnas A:G ordenados en 190 filas y me gustaría que mediante una macro copie cada fila (de la A a la G), y la trasponga en la hoja 2 seguidas en la misma columna.
Ejemplo: de la hoja 1 copie A1:D1 y pegue en la hoja 2 de la B6:B9, que copie después de la A2:D2 en la hoja 1 y lo pegue en la hoja 2 de la B10:13... Así hasta 190
Gracias si puedes ayudarme, en caso contrario tardaré una vida :-)
Saludos
Respuesta
1
Aquí tienes
Sub TRANSPONER()
Dim I As Integer
Dim C As Integer
' by calvuch
C = 2
Application.ScreenUpdating = False
For I = 1 To 192
    Sheets("Hoja1").Select
    Range("A" & I & ":" & "D" & I).Select
    Selection.Copy
    Sheets("Hoja2").Select
    C = C + 4
    Range("B" & C).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Selection.End(xlDown).Select
DoEvents
Next
    Application.ScreenUpdating = True
    MsgBox "COPIADO", vbInformation
End Sub
Se demora algunos segundos, espera a que te entregue el mensaje de confirmación

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Cambio de ventanas macro

He realizado una macro en la cual cojo datos de diferentes excels, y los copio en el excel principal. Mi problema es que nose como cambiar de ventana para que me lo copie en el excel que quiero. Y una vez copiado vuelva al anterior. Una vez que...
2 respuestas

Mejora en impresión por medio de macro

Tengo este macro Private Sub imprimir() Application.ScreenUpdating = False Sheets("IMPRESION").Select Range("A:G" & j).Select Selection.PrintOut Copies:=1 Sheets("JUGADOS").Select Application.ScreenUpdating = True End Sub pero quiero que cuando...
1 respuesta

Crear macro en vb para Excel

En la hoja 1 columna A puedo tener1 o muchos registros En la hoja 2 celda A1 debir colocar el numero del primer registro de la hoja 1 luego selecciono un rango y lo copio en la hoja 3 como solo valores. Cada vez debo ir a la hoja 2 columna A1 y...
1 respuesta

Macro copiar datos entre hojas excel

Necesito una macro para copiar un rango seleccionado a otra hoja en la fila que se encuentre disponible ultima . Los datos que tengo que copiar están formateados en una tabla excel y los voy a copiar a otra tabla. [email protected] Rolando
1 respuesta

Hacer una búsqueda en una hoja especifica de un libro excel

Quisiera saber como puedo modificar parte de una macro para que realice la búsqueda en una sola hoja por ejemplo hoja datos, y no en todo el libro. O bien ingresar la hoja a buscar mediante un inputBox. Sub ejemplo() Sheets("buscador").Select Dim...
1 respuesta

Macro transponer cada por filas

Necesito una macro que todos los datos de una columna A que están ordenados cada 4 filas con: nombre, dirección, teléfono, espacio en blanco. Nombre2, direccion2, telefono2, espacio en blanco2. Nombre3, direccion3, telefono3, espacio en blanco3....
2 respuestas

Macro que copie encabezado de una hoja a otra

Sigo en la novatez con vba pero poco a poco le agarro el gusto a este lenguaje, sin embargo sigo topándome con cuestiones como ésta que les platico: Tengo un libro, donde en cada hoja que tiene algunas filas coloreadas, bien, estoy trabajando con una...
1 respuesta

Como copiar rangos de filas y transponer con macro?

Soy un principiante en esto por favor su ayuda. Tengo una planilla con una serie de datos los cuales debo mover a otra hoja, el problema es que no me copia y transpone todos los datos y solo transpone la primera serie:
1 respuesta