Hola, necesito ayuda para transponer datos con una macro
Estimados, les comento mi problema, tengo un libro donde figuran en la columna 1 datos numéricos que varían en cantidad, a esos datos tengo que concatenarlos con una coma, este paso ya lo logre mediante una macro, el siguiente paso debería trasponerlos pero cada 250 datos, aquí es donde me trabo. Les agradecería mucho si algún sabio puede desasnarme. Espero haber sido claro en mi pregunta
Gracias
1 Respuesta
A ver si te sirve esta macro: rellena la columna A hacia abajo con muuuuuuuchos números, rellena unas 850 celdas con números y después ejecuta esta macro, te hará una transposición cada 250 y los pegará a partir de la celda C1.
Sub transponer_cada_250()
fila = 1
Range("a1").Select
inicio:
If ActiveCell.Value = "" Then Exit Sub
contar = 0
primera = ActiveCell.Address
Do While contar <> 250
contar = contar + 1
ActiveCell.Offset(1, 0).Select
Loop
nueva = ActiveCell.Address
ultima = ActiveCell.Offset(-1, 0).Address
Range(primera & ":" & ultima).Copy
ActiveSheet.Cells(fila, 3).PasteSpecial Paste:=xlValues, Transpose:=True
fila = fila + 1
Range(nueva).Select
GoTo inicio
End Sub
Recuerda finalizar y puntuar
