[Resolvido] Worksheet_Change

[Rhaone 0]

por favor, alguem pode me ajudar a resolver isso?

 

No VBA do Excel este script funciona SOMENTE quando eu altero a célula diretamente mas não INDIRETAMENTE:

 

As células C17 e D17 contém "SE(x>0;1;0)", por exemplo, que é como consequência 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

[KhaosDoctor 242]

Tente usar um timer para verificar sempre.

[Rhaone 0]

Tente usar um timer para verificar sempre.

 

obrigado ... ontem mesmo eu resolvi com worksheet_calculate ... valeu!!!