Transponer de columna a fila de 10 en 10
Quisiera que me ayuden a automatizar una tarea, tengo una hoja de excel lo que deseo es que los datos de una columna (de 10 en 10) se transpongan en una fila de 10 en 10 una abajo de otra
Por ejemplo de B3 (donde empiezan los datos) hasta B12 pasen a una fila por ejemplo de D3 hasta M3
Despues de B13 hasta B22 pasen a D4 hasta M4 y asi sucesivamente con todo el documento.
1 Respuesta
[Hola
Te paso la macro, cambia el nombre de la hoja por el tuyo
Valora la respuesta para finalizar saludos!
Sub Transponer()
'Por.Dante Amor
'Act. Adriel Ortiz
'
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja2") 'hoja origen
j = 3
For i = 3 To h1.Range("B" & Rows.Count).End(xlUp).Row Step 10
h1.Range("D" & j & ":M" & j) = WorksheetFunction.Transpose(h1.Range("B" & i & ":B" & i + 9))
j = j + 1
Next
'
MsgBox "Fin"
End Sub
¡Gracias! está perfecto, si no es molestia como sería para hacer lo mismo pero en otra Hoja, otra vez gracias.
Cambia el nombre de hoja
No me refiero a eso, ya cambie el nombre y probé el macro, lo que te comentaba es que el resultado osea las filas se muestren en una hoja distinta
Va la macro, ajusta los nombres de las hojas
Sub Transponer()
'Por.Dante Amor
'Act. Adriel Ortiz
'
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja1") 'hoja origen
Set h2 = Sheets("Hoja2") 'hoja destino
'
j = 3
For i = 3 To h1.Range("B" & Rows.Count).End(xlUp).Row Step 10
h2.Range("D" & j & ":M" & j) = WorksheetFunction.Transpose(h1.Range("B" & i & ":B" & i + 9))
j = j + 1
Next
'
Application.ScreenUpdating = True
MsgBox "Fin"
End Sub
