Tema: [SOLUCIONADO] Macros para avisar informacion duplicada...

Hola, doy las gracias a los que me ayudaron en mis dudas anteriores, fue de gran utilidad el aporte que me brindaron y tambien aprovecho para felicitar a todos por este gran foro...

ahora bien de nuevo molestandolos, espero me ayuden, estoy tratando de hacer una macros o formula pero no encuentro la forma. Tengo una base de datos para ser mas exactos es de una agenda telefonica
que tendra aproximandamente entre 3,000 y 5,000 registro donde tendre que buscar informacion, pero por lo mismo como tendre que dar de alta muchos numeros en la base de datos y seguiran aumentando con el uso de la agenda, quisiera ver si hay alguna macros que al ingresar un numero telefonico en la base de datos me avise con algun mensaje si el numero que estoy ingresando ya lo he ingresado anteriormente y asi no duplicarlo.... Espero si me entienda a mi solicitud.

+ Como observacion todos los numeros seran de 10 digitos

De atemano muchas gracias

Hola varcel96,

revisa el adjunto, te puede dar ideas de cómo hacerlo. Este es el código que he usado:

Código:

Sub prueba()
    
    Dim numero As String
    Dim e As Range
    
    numero = InputBox("Introduzca el número", "Nuevo ingreso")
    
    If numero <> vbNullString Then
    
        With Range("a1").CurrentRegion
        
            Set e = .Find(numero, LookIn:=xlValues, lookat:=xlWhole)
            
            If Not e Is Nothing Then
                
                e.Select
                MsgBox "El número " & numero & " ya se encuentra en la base de datos."
            
            Else
            
                With Range("a" & Rows.Count).End(xlUp)(2)
                    .Select
                    .Value = numero
                End With
                
                MsgBox "Se ha ingresado el numero " & numero & " a la base de datos."
                
            End If
            
        End With
        
    End If
    
End Sub

y podrías darnos algo de retroalimentación en este tema tuyo:

[Solucionado]Buscador

parece que quedó en el aire y recuerda que si ya está y lo das por solucionado, favoreces a otras personas que usen el foro buscando una solución con un problema similar al tuyo .

Tambien puedes hacerlo con formula en validacion de datos pega esta formula y listo

=CONTAR.SI($A$1:$A$10,$A1)<2

Mauricio muy buena con macro



Saludos desde Honduras