Jump to content

CODIGO PARA EJECUCION AUTOMATICA DE MACRO SEGÚN CONDICION DE UNA CELDA


Go to solution Solved by Antoni,

Recommended Posts

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

Link to post
Share on other sites
  • Solution
Posted (edited)

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

 

Edited by Antoni
Link to post
Share on other sites

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

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


×
×
  • Create New...

Important Information

Privacy Policy