Como pasar los datos de una hoja a otra comparando celdas de una misma fila que esta en la columna A
Tengo datos en las columnas A B C DE Y E la cual la columna A es la que me identifica el cliente están ordenadas deseo comparar la columna A hasta cuando cambie la identificación en ese momento copia las columnas A2, B2, C2, D2, E2 hasta donde me cambia el cliente y pasar los datos a otra hoja y así sucesivamente de la A2 hasta la A final
1 Respuesta
Falta información en tu consulta, por ej en qué hojas se pegarán los rangos.
Te dejo una macro iniciada que pegará el rango en la página siguiente ... aquí debes aclarar si la hoja existe o hay que crear una por cada cliente y en ese caso cómo se llaman o llamarán las hojas.
Sub paseClietes()
'x Elsamatilde
'separa x clientes a partir de A2 (AJUSTAR INICIO)
[A2].Select
'guarda el cliente
clie = ActiveCell
'guarda la 1er fila
ini = ActiveCell.Row
'recorre col A hasta el fin de datos
While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
If ActiveCell <> clie Then
'si cambió de cliente pasa el rango a otra hoja (FALTA ACLARAR O AJUSTAR)
Range("A" & ini & ":A" & ActiveCell.Row - 1).Copy Destination:=Sheets.Next.[A1]
'guarda el nuevo nombre y su primer fila
clie = ActiveCell.Value: ini = ActiveCell.Row
End If
Wend
End SubLee con atención el código y si no puedes ajustarlo enviame las aclaraciones para completarlo.
Si algo no se comprendió puedes solicitar aclaraciones.
Si el tema quedó resuelto recuerda que debes valorar la respuesta .
Sdos!
¿Leyendo tu consulta y ejecutando la macro el resultado parece perfecto... porqué entonces solo 'buena'?
