Cmoparar Contenido de celdas

On 19 mar, 18:18, "Mathius" wrote:

Buenas Tardes.

Lo que estoy necesitando es, compara dos celdas, que estan en libros
diferentes, si son iguales, y que todo lo que no coincida, me lo pase
a otre archivo u hoja no importaria donde.

Alguien me puede ayudar ??????????????

Has probado con la función BuscarV ?

On 19 mar, 14:32, "Pupinet" wrote:

On 19 mar, 18:18, "Mathius" wrote:

> Buenas Tardes.

> Lo que estoy necesitando es, compara dos celdas, que estan en libros
> diferentes, si son iguales, y que todo lo que no coincida, me lo pase
> a otre archivo u hoja no importaria donde.

> Alguien me puede ayudar ??????????????

Has probado con la función BuscarV ?

Lo esoty probando ahora, pero para serte sincero, no la entiendo

hola, Matias !

Lo que estoy necesitando es, compara dos celdas, que estan en libros diferentes
si son iguales, y que todo lo que no coincida, me lo pase a otre archivo u hoja no importaria donde.
Alguien me puede ayudar ??????????????

[pues]... los datos que aportas no parecen 'suficientes' :))
[en via de mientras] ve si te sirven algunos de los siguientes ejemplos:
-> http://www.rondebruin.nl/copy5.htm

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

On 19 mar, 22:28, "Héctor Miguel"
wrote:

hola, Matias !

> Lo que estoy necesitando es, compara dos celdas, que estan en libros diferentes
> si son iguales, y que todo lo que no coincida, me lo pase a otre archivo u hoja no importaria donde.
> Alguien me puede ayudar ??????????????

[pues]... los datos que aportas no parecen 'suficientes' :))
[en via de mientras] ve si te sirven algunos de los siguientes ejemplos:
->http://www.rondebruin.nl/copy5.htm

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Muchas gracias a todos, les comento y lo dejo en el grupo, que lo
solucione con este codigo, que lo que hace es me compara la columna a
con la b, y me elimina las repetidas:

Sub RepetidosFiorino()
'Compara las dos columnas y elimina datos repetidos'
Sheets("FiatFiorno").Select
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
Selection.Delete Shift:=xlUp
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
Range("A1").Select
End Sub