correr macro sin boton de acceso
Publicado por liliana (18 intervenciones) el 13/03/2013 16:19:00
Hola Buen Día
Estoy trabajando con una macro que me muestra un mensaje si se cumplen las siguientes condiciones: pero tengo una duda
Si el dato de la columna H es mayor a 1 muestra un mensaje y si es menor a -1 muestra otro mensaje, estos valores salen de sumar otras celdas
La macro ya me funciona (utilice un ejemplo de internet) pero no quiero poner un botón para correr esta macro, sino que cuando este ubicada en la hoja en la que utilizo la función se verifique la información por si sola, en este momento estoy colocando el codigo en ThisWorkbook y funciona bien, pero al cambiar de hoja en el mismo libro se sigue corriendo la macro hasta que se me bloquea el libro.
Como puedo correr la macro sin boton y donde debo ubicar la Función?
Adjunto codigo
La ubique en la hoja en la que estoy corriendo la macro con el evento _calculate, pero ya no me funciona la macro
Gracias por su colaboración
Estoy trabajando con una macro que me muestra un mensaje si se cumplen las siguientes condiciones: pero tengo una duda
Si el dato de la columna H es mayor a 1 muestra un mensaje y si es menor a -1 muestra otro mensaje, estos valores salen de sumar otras celdas
La macro ya me funciona (utilice un ejemplo de internet) pero no quiero poner un botón para correr esta macro, sino que cuando este ubicada en la hoja en la que utilizo la función se verifique la información por si sola, en este momento estoy colocando el codigo en ThisWorkbook y funciona bien, pero al cambiar de hoja en el mismo libro se sigue corriendo la macro hasta que se me bloquea el libro.
Como puedo correr la macro sin boton y donde debo ubicar la Función?
Adjunto codigo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Range("H" & Target.Row).Value > 1 Then
Target.ActivateMsgBox "El ultimo movimiento registrado de este activo fue un Ingreso. Por favor verificar"ActiveCell.ClearContentsEnd If
If Range("H" & Target.Row).Value < -1 Then
Target.ActivateMsgBox "El ultimo movimiento registrado de este activo fue un Ingreso. Por favor verificar"ActiveCell.ClearContentsEnd If
End Sub
La ubique en la hoja en la que estoy corriendo la macro con el evento _calculate, pero ya no me funciona la macro
Gracias por su colaboración
Valora esta pregunta
0
