Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Verificar valores n...
 
Notifications
Clear all

Verificar valores na coluna e aparecer MsgBox

 
2024 - VBA & Macros
Post Recente por JoilsonDO 11 anos atrás
4 Posts
3 Usuários
0 Reactions
1,120 Visualizações
RSS
 JoilsonDO
(@joilsondo)
Posts: 47
Trusted Member
Topic starter
 

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.

 
Postado : 13/01/2014 5:46 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

 
Postado : 13/01/2014 6:03 pm
 Basole
(@basole)
Posts: 487
Reputable Member
 

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
 
Postado : 13/01/2014 6:07 pm
 JoilsonDO
(@joilsondo)
Posts: 47
Trusted Member
Topic starter
 

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.

 
Postado : 14/01/2014 9:58 am
Forum Jump:
  Tópico Anterior
Próximo Tópico