PDA

View Full Version : Check Range



marreco
01-19-2012, 10:16 AM
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
01-19-2012, 11:41 AM
You'll need to explain further. Maybe a sample to show what's happening.

marreco
01-19-2012, 03:37 PM
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