Quiero comparar dos columnas y que me arroje las diferencias entre ambas,
como lo puedo conseguir?
Agradezco de antemano la ayuda que me puedan brindar
"Marina Ramos" <ramosb...@hotmail.com> escribió en el mensaje
news:uFP5J9C...@tk2msftngp13.phx.gbl...
El siguiente código busca repeticiones en columnas y permite eliminar duplicados. Espero te sirva o
te de ideas.
Saludos.
Lito
=======
Sub Repetidos()
'Compara las dos columnas y elimina datos repetidos'
Range("B1").Select
Posicion = 1
While ActiveCell.Value <> ""
valorcomparacion = ActiveCell.Value
Range("a1").Select
Salir = "no"
While ActiveCell.Value <> "" And Salir = "no"
If ActiveCell.Value = valorcomparacion Then
Respuesta = MsgBox("¿Deseas borrar esta entrada?", 4, "¡¡Encontrado!!")
If Respuesta = vbYes Then
Selection.Delete Shift:=xlUp
End If
Salir = "si"
Else
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Wend
Posicion = Posicion + 1
Range("b1").Select
ActiveCell.Offset(Posicion - 1, 0).Range("a1").Select
Wend
End Sub
Espero haberme explicado mejor.
Gracias por tu interes.
"Antonio Martínez" <amartinez...@gcainstalaciones.com> escribió en el
mensaje news:eGdpWaGQ...@tk2msftngp13.phx.gbl...
=buscarv(A1,B:B,1,falso)
te explico, A1 el valor que buscas (cliente), B:B el
rango en donde lo buscas (lista de clientes), el 1 y
falso es para el orden, dejalos siempre asi.
El resultado si encuentra a tu cliente en B:B es el valor
de A1, y si no lo encuentra que es lo que necesitas te
devuelve #N/A. Espero te funcione. Saludos desde Mexico.
Saludos.
"Octavio Diaz" <ocd...@yahoo.com> escribió en el mensaje
news:02cd01c340c2$9b354ae0$a101...@phx.gbl...
Saludos..
"Marina Ramos" <ramosb...@hotmail.com> escribió en el mensaje
news:e0wL1WNQ...@TK2MSFTNGP10.phx.gbl...