Macro para identificar si el valor a ingresar ya esta.

[cariberecord]

Saludos, tengo este macro

Sub nuevos()

Dim ultimafila As Long

Dim Origen As Worksheet, Destino As Worksheet

Set Origen = Sheets("FORMATO")

Set Destino = Sheets("Hoja2")

ultimafila = Sheets("Hoja2").Range("B20000").End(xlUp).Row

ultimafila = ultimafila + 1

PERO POR ESTE LADO QUISIERA VERIFICAR SI LO QUE SE VA A INSERTAR EN LA CELDA K12 DE Origen YA EXISTE EN LA COLUMNA D DE Destino, PARA NO REPETIR LOS VALORES, si no esta repetido ps que inserte los siguientes datos, si no q muestre un mensaje de error y no ingrese los datos.

Destino.Range("B" & ultimafila) = Origen.Range("K10")

Destino.Range("D" & ultimafila) = Origen.Range("K12")

Destino.Range("E" & ultimafila) = Origen.Range("F8")

Destino.Range("F" & ultimafila) = Origen.Range("H8")

Destino.Range("G" & ultimafila) = Origen.Range("J8")

Destino.Range("H" & ultimafila) = Origen.Range("K16")

Destino.Range("I" & ultimafila) = Origen.Range("K14")

Destino.Range("J" & ultimafila) = Origen.Range("K18")

End Sub

pueden ayudarme por favor? Gracias.

[Armando Montes]

Puedes hacerlo con contar.si, countif.

Esto puede quedar en una sola linea:

ultimafila = Sheets("Hoja2").Range("B20000").End(xlUp).Row

ultimafila = ultimafila + 1

= ultimafila = Sheets("Hoja2").Range("B20000").End(xlUp).Row + 1

[cariberecord]

Hola Armando, soy muy nuevo :apthy:.. y la verdad es que no supe como hacerlo con countif, se necesita un if adicional? me puedes ayudar con ese pedacito.

El valor de origen k17 saber si esta en la columna D de destino si si mensaje de error si no continuar con la rutina

[Armando Montes]

Si subes tu archivo con el codigo incluido, incorporare la condicion.