Notifications
Clear all

Ativar macro através do valor existente na célula

3 Posts
2 Usuários
0 Reactions
1,299 Visualizações
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Prezados, boa tarde!

Alguém poderia me ajudar nessa questão abaixo?

dependendo do valor da célula (quando o usuário digitar ou selecionar em uma lista de dados) o excel vai fazer determinada ação.

tentei usar o código abaixo em várias opções mais nenhuma consegui :(

código

If Range("a2") = ajuda Then

MsgBox "....................", vbInformation, "Ajuda"

End If

'onde tentei usar tentadas 

'Private Sub Worksheet_Activate()

'Private Sub Worksheet_Calculate()

'Private Sub Worksheet_Change(ByVal Target As Range)

'Private Sub Worksheet_SelectionChange(ByVal Target As Range)

a ideia seria:

se o valor da célula a2 = "", então nada acontece

quando existir algum valor

se o valor da célula a2 = ajuda, então o excel vai exibir uma msgbox contendo mais informações

se o valor da célula a2 = salvar, então o excel vai salvar

se o valor da célula a2 = relatório, então o excel vai abrir a planilha relatório

se o valor da célula a2 = imprimir, então o excel vai imprimir a planilha ativa da pasta de trabalho

agradeço pela atenção de todos

muito obrigado

 
Postado : 17/10/2019 12:17 pm
(@srobles)
Posts: 231
Estimable Member
 

JNEXCEL,

Experimente o que se segue :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2")) Is Nothing Then
        Select Case Target.Value
            Case Is = ""
            Case Is = Empty
            Case Is = "Ajuda"
                MsgBox "Selecionado " & Target.Value
            Case Is = "Teste"
                MsgBox "Selecionado " & Target.Value
        End Select
    End If
End Sub

Em teste feitos no Excel 2016, funcionou perfeitamente.

Espero ter ajudado.

Abs.

Saulo Robles

 
Postado : 17/10/2019 12:41 pm
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Muito obrigado.

eu vou testar aqui

 
Postado : 22/10/2019 5:40 am