Jump to content
Leonardo Briceño

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

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

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy