Worksheet_Change

[Rhaone]

por favor, alguém pode me ajudar a resolver isso?

no vb do excel este script funciona SOMENTE quando eu altero a celula diretamente mas não INDIRETAMENTE:

as ceululas C17 e D17 contem "SE(x>0;1;0)", por exemplo, que é como consequencia modificado pelo argumento.

grato.

Private Sub Worksheet_Change(ByVal faixa As Range)
  If Not Intersect(faixa, Range("c17:c17")) Is Nothing Then
    If faixa.Offset(0, 0).Value > 0 Then
      Application.EnableEvents = False
      MsgBox "celula C17"
      Application.EnableEvents = True
    End If
  End If
  If Not Intersect(faixa, Range("d17:d17")) Is Nothing Then
    If faixa.Offset(0, 0).Value > 0 Then
      Application.EnableEvents = False
      MsgBox "celula D17"
      Application.EnableEvents = True
    End If
  End If
End Sub

[kuroi]

Talvez você tenha que controlar manualmente, então.

Por exemplo, você declara duas variáveis no Generals do Module de códigos da sua planilha e, no Change() da Worksheet, não importa a célula que seja, você compara os valores das células C17 e D17 com as variáveis que declarou. Se o valor mudar, você atualiza as variáveis.

Ou, você verifica no momento que ele alterar alguma das células que sejam referenciadas pela sua fórmula.

Mas caso você queira que este método funcione sempre, independente de você alterar a fórmula, aí complica...

[Rhaone]

Talvez você tenha que controlar manualmente, então.

Por exemplo, você declara duas variáveis no Generals do Module de códigos da sua planilha e, no Change() da Worksheet, não importa a célula que seja, você compara os valores das células C17 e D17 com as variáveis que declarou. Se o valor mudar, você atualiza as variáveis.

Ou, você verifica no momento que ele alterar alguma das células que sejam referenciadas pela sua fórmula.

Mas caso você queira que este método funcione sempre, independente de você alterar a fórmula, aí complica...

obrigado ... vou tentar ... valeu.

[benzadeus]

Você pode declarar uma variável como estática, que armazenará o último valor de C17. Dessa forma, pode sempre testar o valor antigo com o novo.