Problemas com ativação do msgbox

[Alan Alonso]

Olá pessoal boa tarde.

Seguinte: Gostaria de saber como fazer para que um resultado x na y, fizesse com que automaticamente libera-se uma "msgbox".

Exemplo:

A célula (a10) recebe a soma de (a1:a9);

Eu gostaria que se a célula (a10) tivesse o valor de 100, abrisse de forma automática uma "msgbox" qualquer.

Tentei de todas as formas aqui, mas até então sem sucesso.

Alguém pode me ajudar!

Desde já grato.

[zinhovba]

Bom dia!!

Coloque esse código dentro do módulo de planiha

Private Sub Worksheet_Calculate()

If Sheets("Plan3").Range("A11").Value = 100 Then
    MsgBox "Valor é! " & [A11].Value, vbOKOnly
End If

End Sub

Att

[Alan Alonso]

Olá companheiro. O código passado por você deu certo. Consegui atrelar a sintaxe sua aos valores que eu necessitava, contudo em vba ao dar o play funciona certinho, mas dentro da planilha ela ainda não dispara sozinha. Queria que ela disparasse sozinha sem a necessidade de criar um botão e atribuir um macro a ela entende?

Obrigado pela explicação anterior!

[Patropi]

Alan

Para ele funcionar automaticamente você tem que colocar o código no módulo da planilha e você deve ter colocado num módulo comum.

At.te

[zinhovba]

Boa noite!!

Veja como:

http://www.ambienteoffice.com.br/officevba/modulos_em_vba/

Lembre se , é um evento Sub Worksheet_Calculate(), o catilho é no momento em que uma formula fará o calculo.

Att

[Alan Alonso]

Obrigado pela ajuda pessoal. Deu certinho!

[zinhovba]

Boa noite!!!

Eu fico feliz em ajudar!!

Att

[Patropi]

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