Ejecutar al cambiar valor de celda

¿Cómo puedo hacer que exista un msgbox listo para activarse si cambia el valor de una celda determinada en una hoja determinada...?

1 respuesta

Respuesta
1
Te dejo este código de ejemplo
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
MsgBox Sh.Name & "!" & Target.AddressLocal 
End Sub
Sh es la Hoja
Target es la celda
No entendí muy bien que digamos... La Celda "G21" de la Hoja "Inicio" (porque existen más de 20 hojas dentro del mismo libro) esta vacía, al asignarle el número "5" necesito que emerja un msgbox que diga "Aplicar Distinción?", 36, "¿Aplicación" como lo hago pero que se active única y exclusivamente con esa celda en solo esa hoja...?
Para tu caso especifico sería así
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If UCase(Sh.Name) = "INICIO" Then
        If Target.AddressLocal = "$G$21" Then
            If Range(Sh.Name & "!" & Target.AddressLocal).Value = "5" Then
                MsgBox "APLICAR DISTINCION"
            End If
            If Range(Sh.Name & "!" & Target.AddressLocal).Value = "36" Then
                MsgBox "APLICACION"
            End If
        End If
    End If
End Sub
Este código debe ir el el módulo del objeto ThisWorkbook para que funcione.
Por si acaso sigue este procedimiento:
1.-En Excel abre el Editor de Visual Basic ALT+F11
2.-En el panel Explorador de Proyectos selecciona el objeto ThisWorkbook
3.-En el módulo que se muestra pega el código

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ejecutar macro al cambiar el valor de celda

A ver si alguien me puede ayudar por favor, que me estoy volviendo loca! Estoy intentando hacer una macro para que se ejecute otra cada vez que cambia la celda A1. El caso es que A1 está formulado, y lo que quiero es que se ejecute la macro cada vez...
1 respuesta

Como ocultar filas a través del valor de una celda

¿Tengo una tabla en la cual donde necesito que: cuando a1 sea igual a 0 oculte el rango a1:c3; y de igual forma si a4 fuera igual a 0, oculte el rango b4:c7. Para ello necesito que se ejecute la macro automáticamente, sin necesidad de incrporarle un...
1 respuesta

Control de cambios

Otra vez molestando d2enri. Te pregunto ahora por un control de cambios que deseamos llevar en la base de datos, pero tenemos una macro que solo nos da la hora del cambio, pero no nos dice en que celda fue el cambio y no guarda histórico; solo se...
2 respuestas

Escribir en una hoja y se refleje en otra

Perdón la molestia. Estoy impresionado de este servicio altruista, y de la generosidad de los expertos. Lo que necesito dese hace 1 mes y no logro e así: Escribir en una hoja1 y que se escriba en la otra hoja2, en cierta ubicación. P.Ej. Cuando...
1 respuesta

Hacer que se ejecute la misma macro hojas distinta

Tengo un proyecto que hace que en una de las hojas, si se modifica la celda a1, se ejecute una macro, y me gustaría que si se modificase esa misma celda de cualquiera de las otras hojas, se ejecutase la misma macro. El código que tengo en esa hoja...
1 respuesta

Como hacer que una macro se ejecute al coincidir el valor de dos celdas

Necesitaría saber si es posible que una macro se ejecute automáticamente una sola vez cuando el valor de dos celdas ubicadas en hojas distintas coincida.
1 respuesta