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


  • Posts

    • Hola a todos. Estoy buscando la forma de pegar varias gráficas que están en varias pestañas de un excel en unos apartados de word, manteniendo la vinculación de datos de las gráficas con vba. Os mando un ejemplo por si me pudierais ayudar. Gracias!BuscarV (1).xlsx
    • Hola, Con esta formulación funciona siempre y cuando estén siempre todos los datos, como puedes ver si falla alguno de ellos se produce un error. prueba (1).xlsx
    • Hola! Podría valerme esta solución. Muchas gracias!!!
    • DiegoPC saludos y millones de gracias por tu valiosa ayuda amigo.
    • Hola a tod@s Nuevamente solicitando su tiempo para resolver un nuevo caso. Según el archivo "prueba" la celda A2 contiene la siguiente información: Vehículo 2018 BMW X4 2.0 XDrive20I A M Sport Precio $28.000.000 CLP Kilómetros 36.000 km Color blanco bach Body 5 doors 5 seat SUV Litros (motor) 2.0 Cilindros 4 Combustible Bencina Lo particular de esta información de la celda A2 es que está con "Ajuste de texto" o carácter (010) y por cada título o cabecera debajo de esta está la descripción. Por ejemplo: Vehículo es a 2018 BMW X4 2.0 XDrive20I A M Sport Precio es a $28.000.000 CLP Kilómetros es a 36.000 km ... Mencionado lo anterior se necesita extraer la descripción de "Vehículo" en la celda B2 que en este caso es "2018 BMW X4 2.0 XDrive20I A M Sport". En la celda C2 la descripción del "Precio" y así sucesivamente. Saludos   prueba.xlsx
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy