DATOS DUPLICADOS

En esta publicación vamos a explicar cómo podemos eliminar la fila donde nos encontramos dos datos iguales, es decir, tenemos por ejemplo en la columna "A" referencias de nuestros productos y en la columna "D" tenemos referencias del proveedor, se nos da el caso de que alguna de las referencias son coincidentes y las necesitamos eliminar.

Al mismo tiempo vamos a provechar y vamos a incluir la aplicación StatusBar para ver la evolución de nuestro procedimiento.

Option Explicit

Sub EliminarFilas()   

Dim Rango As Range, Fila As Long, ÚltimaFila As Long   

Application.ScreenUpdating = False

Range("A1").Select

ÚltimaFila = Range("A:A").End(xlDown).Row   

For Fila = 1 To ÚltimaFila

    Application.StatusBar = "Procesando fila " & Fila & " / " & ÚltimaFila

        If Range("A" & Fila).Value = Range("D" & Fila).Value Then

            If Rango Is Nothing = True Then

                Set Rango = Rows(Fila)

            Else

                Set Rango = Application.Union(Rango, Rows(Fila))

        End If

    End If

Next Fila

If Rango Is Nothing = False Then

    Rango.Select

    Selection.Delete

    Range(1, 1).Select

End If  

Application.StatusBar = "Proceso finalizado"

Application.ScreenUpdating = True

End Sub