Postagens
Não informado
no vb do excel este script funciona somente quando eu altero a celula diretamente mas nao indiretamente:
as ceululas C17 e D17 contem "SE(x>0;1;0)", por exemplo, que eh 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
