por favor, alguem pode me ajudar a resolver isso?
no VBA 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
Por favor ... alguem me ajuda? ... valeu!!!