Como executar uma macro com base no valor da célula no Excel?

Suponha que eu tenha vários códigos de macro em minha pasta de trabalho e agora quero executar esses códigos com base no valor da célula. Neste artigo, vou abordar várias situações que você pode enfrentar no seu dia a dia ao usar o Excel.

Executar ou acionar macro se o valor da célula for maior ou menor que um valor específico com código VBA

Executar ou acionar macro se o valor da célula for igual a um texto específico com código VBA

Executar ou acionar macro se o valor da célula for maior ou menor que um valor específico com código VBA

Por exemplo, se o valor na célula A1 estiver entre 10 e 50, execute a macro1, e se o valor for maior que 50, execute a macro2. Para resolver essa tarefa no Excel, aplique o seguinte código VBA.

1. Clique com o botão direito do mouse na guia da planilha onde deseja executar a macro com base no valor da célula e escolha Visualizar Código no menu de contexto. Na janela aberta do Microsoft Visual Basic for Applications, copie e cole o seguinte código no Módulo em branco:

Código VBA: Executar macro se o valor da célula for maior ou menor que:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If IsNumeric(Target) And Target.Address = "$A$1" Then
        Select Case Target.Value
        Case 10 To 50: Macro1
        Case Is > 50: Macro2
        End Select
    End If
End Sub

Observação: No código acima:

A1 é a célula que contém o valor específico no qual você deseja executar a macro;

Caso 10 Para 50: Macro1: significa que, se o valor estiver entre 10 e 50, execute a Macro1;

Caso Seja > 50: Macro2: significa que, se o valor for maior que 50, execute a Macro2.

Por favor, altere os nomes dessas macros e critérios conforme sua necessidade, e você também pode adicionar mais critérios seguindo o script Caso.

2. Em seguida, salve e feche esta janela de código. Agora, quando o valor inserido estiver entre 10 e 50 na célula A1, a Macro1 será acionada; se o valor inserido for maior que 50, a Macro2 será executada.

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!

Executar ou acionar macro se o valor da célula for igual a um texto específico com código VBA

Se você deseja acionar a macro com base em um texto específico em uma célula, por exemplo, para executar a macro1 se o texto “Excluir” for digitado, e executar a macro2 se o texto “Inserir” for digitado, o seguinte código pode ajudá-lo.

1. Clique com o botão direito do mouse na planilha onde deseja executar a macro com base no valor da célula e escolha Visualizar Código no menu de contexto. Na janela aberta do Microsoft Visual Basic for Applications, copie e cole o seguinte código no Módulo em branco:

Código VBA: Executar macro se o valor da célula for um texto específico

Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "Delete" Then
 Call Macro1
End If
If target.Value = "Insert" Then
Call Macro2
End If
End Sub 

Observação: No código acima, “Excluir” e “Inserir” são os textos das células nos quais você deseja executar as macros, e Macro1 e Macro2 são as macros que você deseja executar com base no texto. Altere-os conforme sua necessidade.

2. Em seguida, salve este código e feche a janela. Agora, quando você digitar o texto “Excluir” na célula A1, a macro1 será acionada; se o texto “Inserir” for digitado, a macro2 será executada.

Artigos relacionados:

Como executar uma macro quando o valor da célula muda no Excel?

Como executar uma macro automaticamente antes da impressão no Excel?

Como executar uma macro com base no valor selecionado em uma lista suspensa no Excel?

Como executar uma macro clicando em hiperlinks no Excel?

Como executar uma macro quando uma planilha é selecionada em uma pasta de trabalho?