Para Luis Mondelo, copiar y separar columnas
Hola, te agradezco que me contestases a la pregunta anterior, pero la solución al pinchar no se ajusta del todo a lo que pedía, aparecen datos que no deberían salir, puesto que esos ya no pertenecen a ese valor de la columna A. Si pudiese enviaba una imagen explicativa. Al introducir mi base de datos me pasa que según se van desplazando las columnas a la derecha se van acumulando los datos repetidos de valores A anteriores y el tamaño aumenta progresivamente. Con el ejemplo que me mandaste pasa que en para el segundo valor de A (3ª y 4ª columnas que aparecen) se le añaden al final los tres primeros datos (B y D) del siguiente valor de A. Espero que puedas dar con lo que pido, un saludo y gracias de nuevo
1 Respuesta
Ok, te mando la macro entera corregida. Sustitúyela por la anterior
Sub proceso()
'por luismondelo
Range("a1").Select
Do While ActiveCell.Value <> ""
ubica = ActiveCell.Address
valor = ActiveCell.Value
fila = ActiveCell.Row
contarsi = Application.WorksheetFunction.CountIf(Columns(1), valor)
Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(contarsi - 1, 1)).Copy
Range("iv1").End(xlToLeft).Offset(0, 1).PasteSpecial xlPasteValues
Range(ubica).Select
Range(ActiveCell.Offset(0, 3), ActiveCell.Offset(contarsi - 1, 3)).Copy
Range("iv1").End(xlToLeft).Offset(0, 1).PasteSpecial xlPasteValues
Range(ubica).Offset(contarsi, 0).Select
Loop
End Subrecuerda finalizar la consulta
Perdoname pero no se como ejecutar la macro, te agradecería que me enviases un archivo como el anterior corregido para poder ejecutarla.
Un saludo
