Check Range

[marreco]

Hi..
Personal
I want to check if the cell C2: C50 is some record, if code 1,2,3 if the record shows a message, code already registered ... otherwise the registration is successfully done!

[mdmackillop]

You'll need to explain further. Maybe a sample to show what's happening.

[marreco]

Hi....I'm Solved...


Private Sub CommandButton1_Click()
Dim RefId As String

'Valor a pesquisar
RefId = txtCod

If RefId = "" Then
MsgBox "Digite um Valor Inválido"
txtCod.SetFocus
Exit Sub

Else
'Chama a Function
ProcuraRefId (RefId)
End If

If sLocaliza = True Then
MsgBox "Referencia :- " & RefId & " Localizada em :- " & sCel
Else
MsgBox "Referencia não Localizada"
End If

End Sub