MsgBOX ao selecionar valor na lista suspensa

2024 - VBA & Macros

Post Recente por Ygoralexandre 4 anos atrás

6 Posts

3 Usuários

0 Reactions

1,257 Visualizações

RSS

afbergman

(@afbergman)

Posts: 108

Estimable Member

Topic starter

Prezados,

Criei uma lista suspensa numa célula (I7) através da validação de dados, e gostaria que ao selecionar o valor "Não" desta lista na célula "I7" apareça um msgbox com uma mensagem. Como faço isso?

obrigado

Postado : 09/05/2018 9:08 am

boobymcgee

(@boobymcgee)

Posts: 84

Trusted Member

Olá, use isto:

Private Sub Worksheet_Change(ByVal Target As Range)
If [I7].Value = "não" Then
MsgBox "Escreva aqui sua mensagem", vbInformation
Else
'MsgBox "Escreva aqui sua mensagem", vbInformation
End If
End Sub

Postado : 09/05/2018 9:33 am

xlarruda

(@xlarruda)

Posts: 732

Honorable Member

Apenas salientando que, na resposta do colega boobymcgee, enquanto o valor da "I7" for "não" a Msgbox continuará aparecendo sem parar.

Caso a Msgbox deva aparecer apenas no momento da mudança do valor, faça:

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "I7" And [I7].Value = "não" Then
MsgBox "Escreva aqui sua mensagem", vbInformation
Else
'MsgBox "Escreva aqui sua mensagem", vbInformation
End If
End Sub

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

Postado : 09/05/2018 10:03 am