EJECUTAR MACRO CUANDO CAMBIA VALOR CELDA

Jose,

Aqui te va un ejemplo.


Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("a1:a10")) Is Nothing Then
Exit Sub
End If ' Area de trabajo.

'tu macros va abajo

If Target > 10 Then
MsgBox "Te pasaste de 10"
End If '


End Sub




Jose Antonio Cortijo wrote:

Saludos al grupo.
Quiero que cuando una celda cambie de valor, se dispare una macro sin
necesidad de utilizar un botón ni nada parecido.
¿Es esto posible? ¿Si es así, como se hace?
Gracias de antemano.

Gracias Cesar por tus buenas intenciones, pero no lo consigo.
Copio tu código y no veo que haga nada.
Imagino que debe de salir un MsgBox, pero no se cuando.
¿Me puedes comentar el código?
Gracias de nuevo.

Jose Antonio Cortijo

"Cesar Zapata" escribió en el mensaje
news:#

Jose,

Aqui te va un ejemplo.


Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("a1:a10")) Is Nothing Then
Exit Sub
End If ' Area de trabajo.

'tu macros va abajo

If Target > 10 Then
MsgBox "Te pasaste de 10"
End If '


End Sub




Jose Antonio Cortijo wrote:

> Saludos al grupo.
> Quiero que cuando una celda cambie de valor, se dispare una macro sin
> necesidad de utilizar un botón ni nada parecido.
> ¿Es esto posible? ¿Si es así, como se hace?
> Gracias de antemano.
>
>

Mandame tu e-mail para mandarte un ejemplo.



Cesar



Jose Antonio Cortijo wrote:

Gracias Cesar por tus buenas intenciones, pero no lo consigo.
Copio tu código y no veo que haga nada.
Imagino que debe de salir un MsgBox, pero no se cuando.
¿Me puedes comentar el código?
Gracias de nuevo.

Jose Antonio Cortijo

"Cesar Zapata" escribió en el mensaje
news:#

Jose,

Aqui te va un ejemplo.


Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("a1:a10")) Is Nothing Then
Exit Sub
End If ' Area de trabajo.

'tu macros va abajo

If Target > 10 Then
MsgBox "Te pasaste de 10"
End If '


End Sub




Jose Antonio Cortijo wrote:

Saludos al grupo.
Quiero que cuando una celda cambie de valor, se dispare una macro sin
necesidad de utilizar un botón ni nada parecido.
¿Es esto posible? ¿Si es así, como se hace?
Gracias de antemano.

Hola José Antonio.

Creo que lo que te falta es que el código debes pegarlo en la hoja donde
quieres que ocurra esto no en un modulo.

Saludos.

"Cesar Zapata" escribió en el mensaje
news:%

Jose,

Aqui te va un ejemplo.


Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("a1:a10")) Is Nothing Then
Exit Sub
End If ' Area de trabajo.

'tu macros va abajo

If Target > 10 Then
MsgBox "Te pasaste de 10"
End If '


End Sub




Jose Antonio Cortijo wrote:

> Saludos al grupo.
> Quiero que cuando una celda cambie de valor, se dispare una macro sin
> necesidad de utilizar un botón ni nada parecido.
> ¿Es esto posible? ¿Si es así, como se hace?
> Gracias de antemano.
>
>

MUCHÍSIMAS GRACIAS LAO POR TU AYUDA.
Ya lo he conseguido.

José Antonio Cortijo

"Lao_España" escribió en el mensaje
news:

Hola José Antonio.

Creo que lo que te falta es que el código debes pegarlo en la hoja donde
quieres que ocurra esto no en un modulo.

Saludos.

"Cesar Zapata" escribió en el mensaje
news:%
> Jose,
>
> Aqui te va un ejemplo.
>
>
> Private Sub Worksheet_Change(ByVal Target As Range)
>
> If Intersect(Target, Range("a1:a10")) Is Nothing Then
> Exit Sub
> End If ' Area de trabajo.
>
> 'tu macros va abajo
>
> If Target > 10 Then
> MsgBox "Te pasaste de 10"
> End If '
>
>
> End Sub
>
>
>
>
> Jose Antonio Cortijo wrote:
>
> > Saludos al grupo.
> > Quiero que cuando una celda cambie de valor, se dispare una macro sin
> > necesidad de utilizar un botón ni nada parecido.
> > ¿Es esto posible? ¿Si es así, como se hace?
> > Gracias de antemano.
> >
> >