Hola amigos de Ayuda Excel

El día de ayer dos excelentes colaboradores de AE, ante una consulta que hice, me propusieron que era mejor una macro que ejecutara otra macro de manera automática. Uno de los colaboradores me brindó el siguiente código que me funcionó perfectamente:

 Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row > 4 And _

   Target.Column = 5 And _

   Target(1, 1) <> "" Then

   Call MacroA

End If

End Sub

 Al respecto pensé, que tenía 3 hojas similares que podía aplicar la misma estrategia, pero con la diferencia de que en éstas hojas, la celda que va a determinar la ejecución de la macro contiene una formula y la macro debe activarse cuando la misma sea mayor a cero (0). Intenté adecuarla pero no pude. Así que pido su valiosa colaboración.

Gracias

Anexo ejemplo

ACTIVAR MACRO CUANDO CELDA MAYOR A 0.xlsm

En este caso, hay que preguntar por los componentes de la fórmula, una de las formas:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 4 Then
   If Target.Address Like "$B$*" Or _
      Target.Address Like "$C$*" Or _
      Target.Address Like "$D$*" Then
      If Range("E" & Target.Row) > 0 Then
         Call Mensaje
      End If
   End If
End If
End Sub

 

Editado el el 13 de agosto5 años por Antoni

Buenos días, prueba esto

 

Private Sub Worksheet_Change(ByVal Target As Range)
datos = "a5:e28"
If Not Application.Intersect(Target, Range(datos)) Is Nothing Then
    If Range("E" & Target.Row) > 0 Then
    Call Mensaje
    End If
End If

End Sub

Excelente @Antoni muchas gracias, funciona perfectamente!!!!?

Gracias @Luis Caballero por la propuesta.