Executar Macro

[Henrique Silva]

Olá, tem como excutar uma macro a partir de um resultado? Exemplo:

Se o resultado de uma celula é igual a 2 então vai excutar a macro A, se o resultado for 3 então executa a macro B e assim por diante.

Preciso muito dessa ajuda, caso alguém saiba como fazer por favor me ajude.

[Visitante]

Olá, Henrique.

Teste a macro abaixo. Cole-a no módulo da planilha onde irá testar.

Serão exibidas caixas de mensagem "simulando" o disparo das macros.

O disparo ocorrerá por alteração em qquer célula da planilha.

É um ponto de partida, poderão ser feitos ajustes/alterações conforme a sua necessidade.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
    If Range("A1").Value = 2 Then
        MsgBox " Macro A "
        'Macro A
    End If

    If Range("A1").Value = 3 Then
        MsgBox " Macro B "
        'Macro B
    End If
Application.EnableEvents = True
End Sub

[Henrique Silva]

Olá, Henrique.

Teste a macro abaixo. Cole-a no módulo da planilha onde irá testar.

Serão exibidas caixas de mensagem "simulando" o disparo das macros.

O disparo ocorrerá por alteração em qquer célula da planilha.

É um ponto de partida, poderão ser feitos ajustes/alterações conforme a sua necessidade.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
    If Range("A1").Value = 2 Then
        MsgBox " Macro A "
        'Macro A
    End If

    If Range("A1").Value = 3 Then
        MsgBox " Macro B "
        'Macro B
    End If
Application.EnableEvents = True
End Sub

Cara valeu d+++ era exatamente o que eu estava precisando, só tem mais uma coisa, não tem como o disparo ocorrer quando tiver alteração apenas na celula ("A1")?

[Visitante]

veja se é isso

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address <> "$A$1" Or Target.Count > 1 Then Exit Sub
 Application.EnableEvents = False
    If Target.Value = 2 Then
         MsgBox " Macro A "
        'Macro A
    End If
    If Target.Value = 3 Then
        MsgBox " Macro B "
        'Macro B
    End If
Application.EnableEvents = True
End Sub

[Henrique Silva]

veja se é isso

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address <> "$A$1" Or Target.Count > 1 Then Exit Sub
 Application.EnableEvents = False
    If Target.Value = 2 Then
         MsgBox " Macro A "
        'Macro A
    End If
    If Target.Value = 3 Then
        MsgBox " Macro B "
        'Macro B
    End If
Application.EnableEvents = True
End Sub

Osvaldo, muito bom, perfeito, muito obrigado.

[Flavio Soares]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.