Boa noite galera,
Tem uma planilha, onde na coluna A, onde de A2 até A1500 +/- tem dados.
Gostaria de colocar no evento change ou exit de um determinado textbox para quando eu digitar um valor que não conste nesta coluna, aparecesse uma msgbox do tipo "dado inexistente"
Exemplo:
A
1 25
2 33
3 36
4 34
5 65
Se eu digitar 24 ele não consta na coluna, então uma msg alertaria sobre o dado inexistente e colocaria o foco novamente no textbox.
Obrigado.
Joilson, de uma olhada nos exemplos do tópico a baixo se ajudam :
Function Pesquisar InputBox e TextBox
viewtopic.php?f=21&t=2877
Pelo que postou seria o caso de fazer poucas adaptações.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
JoilsonDO,
Tente esta rotina no evento AfterUpdate:
Private Sub TextBox1_AfterUpdate()
Dim txtID As String
txtID = Me.TextBox1.Value
With Plan1
If WorksheetFunction.CountIf(.Columns(1), txtID) = 0 Then
MsgBox txtID & ": Nao existente! Digite outro numero ", 64
txtID = ""
End If
End With
End Sub
Click em 
se a resposta foi util!
Boa tarde amigos,
Basole,
Sua ajuda deu certo, adaptei ao meu código e funcionou.
Agradeço a você também Mauro Coutinho pela ajuda.
Obrigado a todos.