Ativando uma macro através de uma célula

[alissonvilela]

Eu precisava saber se há alguma forma de ativar uma macro no Excel através de uma fórmula.

Tipo, se a célula A1=3, ativa uma macro.

Alguém sabe se tem jeito? Se tiver, como faço?

Muito obrigado.

[Consultor_GO]

Segue a resposta.. a solução está na Plan1, dentro do Editor do VB... Veja a macro em anexo.. Caso não chegue o arquivo segue a solução abaixo

Dentro da Plan1-- no Vb coloque o codigo abaixo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Cells(3, 2) = 3 Then Call Mensagem

End Sub

Quando a célula for alterada e este valor for igual a 3 a macro Mensagem é executada

[alissonvilela]

Caro Consultor GO, muito obrigado pela atenção.

você me enviou algum arquivo com a mensagem? Não chegou nada.

Como o arquivo não chegou, eu tentei fazer da seguinte forma:

Criei uma nova pasta de trabalho, e nela gravei uma macro com o nome Mensagem, q formatava algumas células.

Depois, no editor do VB, colei o codigo q você enviou.

Fiquei em dúvida em uma coisa: ele diz:

If Cells(3, 2) = 3 Then Call Mensagem

Essa célula (3, 2), é qual célula? Eu preenchi várias das células no início da planilha com o nº 3, mas nenhuma ativou a macro Mensagem.

você poderia explicar melhor?

Grato.

[Consultor_GO]

Desculpe.... acredito que não foi o anexo.. Faça o seguinte!!!

Dentro da Planilha que você está trabalhando coloque o seguinte código:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Cells(3, 2) = 3 Then Call Mensagem

End Sub

Cells(3,2) = a célula que será alterada

Na planilha que fiz quando a linha 3 da coluna 2 é alterada para 3 a Macro Mensagem é executada!!!

OK!!!