Permitir 2 valores repetidos y eliminar el resto

2 envíos / 0 nuevos
Último envío
alfredo851
Imagen de alfredo851
Offline
última acción: Hace 3 meses 2 semanas
alta: 09/02/2020 - 02:45
Puntos: 25
Permitir 2 valores repetidos y eliminar el resto

Hola,

Necesito hacer un macro que me permita tener dos valores repetidos y eliminar los demás, por ejemplo, "Pedro" puede aparece dos veces en la misma columna pero a partir de la 3a vez se deben eliminar.

Espero puedan ayudarme, y gracias de antemano

 

Etiquetas: 

FernandoML
Imagen de FernandoML
Offline
última acción: Hace 1 mes 1 semana
alta: 01/02/2018 - 19:53
Puntos: 165
Respuesta: Permitir 2 valores repetidos y eliminar el resto

Hola alfredo

Prueba con esta macro a ver si es lo que necesitas

Sub prueba()
    Dim Fila As Integer
    Dim Cont As Integer
   
    For Fila = 3 To Range("D" & Rows.Count).End(xlUp).Row
        If UCase(Range("D" & Fila)) = "PEDRO" Then Cont = Cont + 1
       
        If Cont > 2 Then
            Application.EnableEvents = False
                Rows(Fila).Delete
                Fila = Fila - 1
                Cont = Cont - 1
            Application.EnableEvents = True
        End If
    Next
End Sub

Espero te sirva

FernandoML