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,130 Visualizações

RSS

JoilsonDO

(@joilsondo)

Posts: 47

Eminent 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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

Click em se a resposta foi util!