Cells.Find Issue! HEEELP!

[garden_rael]

I'm trying to run a macro that would do some stuff. but before it does, I want it to search for a cell value to see if I'm not entering the same IDCode..

Ex...

You fill Cell C4 with the ID
then fill some other cells with other stuff

The macro will pull that info and add it into a data base... that's already resolved...

My problem is that, if the ID 001 is already entered, It shouldn't be possible to re-enter it...

This is the part where I'm presenting issues

Application.ScreenUpdating = False
Sheets("Base").Activate
Range("A1").Activate
Selection.End(xlDown).Select
v1 = ActiveCell.Row + 1
Sheets("Formulario").Activate
Range("C4").Activate
v2 = ActiveCell.Value
Sheets("Base").Activate
Range("A1").Activate
v3 = Cells.Find(What:=v2, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
If v3 = True Then
a = MsgBox("Su ID ya esta registrado, si esto es un error, por favor verifique con el Administrador", vbOKOnly)
Exit Sub



Help me!!! I'm losing my mind! lol

 

[Smitty]

Why not use Data Validation to prevent any duplicate entries instead?

 

[garden_rael]

The thing is that this is a form like sheet..

So... you fill it and once it is done you run a macro that will populate what you answered on a data base...

So I need some function to prevent duplicate ID's on my database...

But users don't have access to the database

 

[phxsportz]

See if this helps you at all..

Private Sub doit2_Click()
    v2 = ActiveCell.Value
    With Worksheets("Base").Range("a1:a" & Cells(Rows.Count, "A").End(xlUp).Row)
        Set c = .Find(v2, LookIn:=xlValues)
        If Not c Is Nothing Then
           Results = MsgBox("Duplicate ID", vbOKOnly)
           Exit Sub
        Else
            'Do your thing here....
        End If
    End With
End Sub

 

[garden_rael]

It worked like charm!

Thank you Phx

 

[phxsportz]

Cheers