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
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
Muito obrigado.
eu vou testar aqui