Boa tarde

Quase todo dia entro no fórum para ver as postagens e aprender algo novo.

Analisando a dúvida do Makoshi, lembrei de uma duvida que eu tinha.

Eu queria executar uma macro qualquer de acordo com o valor de uma determinada célula, não consegui até hoje, mas com a resposta do Mauro fiz o seguinte.

Sub Teste()
'
If Range("D26").Value = "TEXTO" Then
If MsgBox("Executar macro ?", vbYesNo) = vbNo Then
Exit Sub
End If
End If

' Macro teste.
Range("F23").Select
ActiveCell.FormulaR1C1 = "OK"
End Sub

Se a célula (ou resultado da fórmula) for = "TEXTO" eu executo uma macro ou não (tenho a opção de executa-la ou não)

Esse código que eu adaptei, vcs conhecem algo melhor ou estou no caminho certo ?

Obrigado!

Carlos, abra um Tópico com suas questões, assim não misturamos os assunto e ajudará ao Forum com o sistema de pesquisa.

Agora quanto a sua questão, está no caminho certo, mas um porem, se já executou sua rotina em que o valor não era "TEXTO", você colocou a formula, ou seja independente do valor sua rotina será executada, então eu faria da seguinte forma ;

Sub Executa_Valor_Celula()

    If Range("A5").Value = "TEXTO" Then
    
        If MsgBox("Executar macro ?", vbYesNo) = vbNo Then
            'Se NÃO - Sai da Rotina
            Exit Sub
        Else
            'Se SIM executa
            Range("F23").Select
            ActiveCell.FormulaR1C1 = "OK"
        End If
        
    End If

End Sub

Se tiver duvidas, as questões serão respondidas no tópico que abrir, pois este será trancado e moverei estes para o novo tópico.

[]s

Ok.

Obrigado Mauro.

Fiquei na dúvida sobre abrir tópico ou não, mas da próxima vou seguir a orientação!

Obrigado Mauro

Tua indicação abaixo deu certo. Mas precisava que aparece está mensagem em alguns itens. Por exemplo na nova planilha que anexei preciso que na aba "CQ Producao, quando aparecer no d26 alguns dos materiais da aba "Plan1" preciso que aparece a mensagem de "mandar laudo de qualidade.

Private Sub Worksheet_Calculate()
If Range("D26").Value = "182PS" Then
MsgBox "MANDAR LAUDO DE QUALIDADE !!"
End If
End Sub

Poderia me ajudar novamente????