Detectar cambios por el usuario

12/03/2007 - 18:03 por Jon | Informe spam

Hola a todos

Hoy es el día de las consultas, jeje. A ver si podéis ayudarme con esta otra…

Mi consulta es para ver como puedo detectar un cambio en una serie de
celdas, es decir, que cuando se cambe alguna de las celdas que yo decida (por
ejemplo el rango A1 a A20), me salga un mensaje o una celda se me ponga en
rojo.

Imagino que por medio de una MACRO que esté activa puede hacerse, pero no se
como…

Espero que podais ayudarme.

Muchas gracias.

Jon.

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Command utility que averigue los cambios efectuados por el usuario

Leer las respuestas

#1 Héctor Miguel

12/03/2007 - 22:24 | Informe spam

hola, Jon !

... como puedo detectar un cambio en una serie de celdas
es decir, que cuando se cambe alguna de las celdas que yo decida (por ejemplo el rango A1 a A20)
me salga un mensaje o una celda se me ponga en rojo.
Imagino que por medio de una MACRO que este activa puede hacerse, pero no se como

prueba copiando/pegando las siguientes lineas -> en el modulo de codigo de 'esa' hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1:a20")) Is Nothing Then _
MsgBox "Se ha/n modificado alguna/s celda/s en el rango A1:A20 !!!"
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Responder a este mensaje

#2 Jon

13/03/2007 - 09:03 | Informe spam

Hola Hector!
Muchas gracias, ya lo he hecho y funciona a la perfecci´ón. El miedo que
tenía era que igual hacía que el resto de la aplicación fuera mas lento,
debido a que estaría en todo momento chequeando si cambia, pero NO! Funciona
muy bien.
Muchas gracias en serio!

"Héctor Miguel" wrote:

hola, Jon !

> ... como puedo detectar un cambio en una serie de celdas
> es decir, que cuando se cambe alguna de las celdas que yo decida (por ejemplo el rango A1 a A20)
> me salga un mensaje o una celda se me ponga en rojo.
> Imagino que por medio de una MACRO que este activa puede hacerse, pero no se como

prueba copiando/pegando las siguientes lineas -> en el modulo de codigo de 'esa' hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1:a20")) Is Nothing Then _
MsgBox "Se ha/n modificado alguna/s celda/s en el rango A1:A20 !!!"
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida