Eliminar duplicados en dos columnas

[Pirtrafilla]

Hola a todos. Necesito una macro para eliminar una fila entera en la que se repitan los datos en las columnas A y B.

Envío un Excel con un ejemplo y he coloreado la fila que necesitaría se elimine.

He encontrado código para eliminar si encuentra duplicados en una sola columna, pero no logro encontrar que el criterio sean dos columnas.

Gracias de antemano.

Moisés.

 

Prueba.xlsx

[Pirtrafilla]

Bueno, he encontrado esto que he podido adaptar a mi necesidad y me funciona.

Por si fuera de utilidad.

Sub ejemploRemoveDuplicates()

    ult = Cells(Rows.Count, 1).End(xlUp).Row

    ActiveSheet.Range("A1:J" & ult).RemoveDuplicates Columns:=Array(1, 2, 4), Header:=xlYes

End Sub

El código para eliminar lo he adaptado de @Antoni es este post.

Gracias de todos modos.

[JSDJSD]

Hace 23 horas, Pirtrafilla dijo:

Sub ejemploRemoveDuplicates()

    ult = Cells(Rows.Count, 1).End(xlUp).Row

    ActiveSheet.Range("A1:J" & ult).RemoveDuplicates Columns:=Array(1, 2, 4), Header:=xlYes

End Sub

Tienes que tener en cuenta que la macro solo hará bien su función si te encuentras en la hoja correcta en caso contrario no te funcionará, para que te funcione estés donde estés tienes que hacerle una pequeña modificación.

[Pirtrafilla]

@JSDJSDSí, lo he adaptado y puse un botón en la hoja y funciona.

 

Gracias.

[JSDJSD]

Ok, si necesitas ayuda por aquí estamos