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

Respuesta
1

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 Sub

recuerda 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

Te lo adjunto en el siguiente enlace

http://share.myflare.com/nMSjHh

Recuerda finalizar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas