Ejecutar una macro rellenado una celda
Hola Expertos, necesito de su ayuda.. Necesito hacer una macro que borre unas celdas, (B27:C27) cuando en otra celda (B25) escriba el texto "NO" parece muy sencillo pero no se como hacerlo., gracias.
1 Respuesta
Respuesta de angelcrisnor
1
Creo que buscas esto:
Sub BorraSiToca()
If Range("B25").Value = "NO" Then
Range("B27:C27").Select
Selection.ClearContents
End If
End Sub
Sub BorraSiToca()
If Range("B25").Value = "NO" Then
Range("B27:C27").Select
Selection.ClearContents
End If
End Sub
Quisiera saber si te sirvió la solución que te dí. Si es así, te ruego que finalices la pregunta.
Hola, Angel... disculpa soy un poco nuevo en esto... bueno lo que pasa es que necesito que la macro se ejecute de manera automática cuando en la celda B5 (o cualquier otra) escriba "NO". Tu macro funciona bien solo que tengo que ejecutarla de manera normal.
Disculpame si no me día a entender bien al comienzo, con esa aclaración espero siga a tu alcance la ayuda, muchas gracias
Disculpame si no me día a entender bien al comienzo, con esa aclaración espero siga a tu alcance la ayuda, muchas gracias
En ese caso, lo que tienes que hacer no es una MACRO, sino definir el siguiente EVENTO en la hoja de tu libro que deseas que se explore.
Private Sub Worksheet_Change(ByVal Target As Range)
CeldaDisparadora = "B25"
RangoABorrar = "B27:C27"
If Not Application.Intersect(Target, Range(CeldaDisparadora)) Is Nothing Then
If Range(CeldaDisparadora).Value = "NO" Then
Range(RangoABorrar).Select
Selection.ClearContents
End If
End If
End Sub
Tendrás que cambiar lo que está en negrita.
Pruébalo, y si te funciona finaliza la pregunta indicando cómo te fue.
Saludos
Angel
PD: Para más información sobre el tema, te aconsejo visites esta página, donde está descrito muy bien por Javier Marco:
http://hojas-de-calculo-en-excel.blogspot.com/2009/03/ejecutar-macro-al-cambiar-celda.html
Private Sub Worksheet_Change(ByVal Target As Range)
CeldaDisparadora = "B25"
RangoABorrar = "B27:C27"
If Not Application.Intersect(Target, Range(CeldaDisparadora)) Is Nothing Then
If Range(CeldaDisparadora).Value = "NO" Then
Range(RangoABorrar).Select
Selection.ClearContents
End If
End If
End Sub
Tendrás que cambiar lo que está en negrita.
Pruébalo, y si te funciona finaliza la pregunta indicando cómo te fue.
Saludos
Angel
PD: Para más información sobre el tema, te aconsejo visites esta página, donde está descrito muy bien por Javier Marco:
http://hojas-de-calculo-en-excel.blogspot.com/2009/03/ejecutar-macro-al-cambiar-celda.html
