EJECUTAR MACROS

¡Qué buena noticia, Juan!!!

Que sea -entonces- hasta la próxima.
Cacho.

"juan almanza" wrote:

chacho muchas gracias por su ayuda . me sirvio de mucho


GRACIAS att juan colombia

"Cacho" wrote:

> Hola! Juan (por caso: disculpa si no eres Juan...)
>
> a) Tolera la siguiente sugerencia: si no es necesario, trata de no escribir
> TODO con mayúsculas. En efecto, en la mayoría de los Foros se interpreta que
> hacerlo, equivale a gritar ("literalmente").
>
> b) Haz clic con el botón derecho de tu ratón en la etiqueta de la hoja en la
> que pretendes el efecto (abajo a la izquierda), y selecciona: Ver código.
>
> c) En la ventana que se te abrirá, incorpora lo siguiente:
> _________________________
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Address = "$A$1" And Target = 1 Then
> MsgBox "La celda A1 contiene el valor ""1""."
> End If
> End Sub
> _________________________
>
> d) Cierra todas las ventanas del ambiente Visual Basic for Application en el
> que te encuentras y retorna al Excel.
>
> e) Cada vez que el usuario (o un vínculo externo) cambie el valor de la
> celda A1, verás el mensaje: La celda A1 contiene el valor "1".
>
> Para tu caso particular, reemplaza ese mensaje por la ejecución de la macro
> que requieras.
>
> Saludos, Cacho.

Private Sub Worksheet_Change(ByVal Target As Range)

> > If Target.Address = "$A$1" And Target = 1 Then
> > MsgBox "La celda A1 contiene el valor ""1""."
> > End If
> > End Sub

esto me sirvio para ejecutar la macros bien pero da la casualidad que la
macros tiene como finalidad borrar valores en celdas diferentes a la que
estoy evaluando el cambio de valor (para este casos a1)... en fin la
macros se empieza a ejecutar bien pero cuando llega al cambio de valores en
estas celdas el programa se salta al principio "Private Sub
Worksheet_Change(ByVal Target As Range)" y me sale un error de ejecucion como
si se perdiera no se si soy claro .. hay alguna forma de
solucionar este problema? gracias

"Cacho" wrote:

¡Qué buena noticia, Juan!!!

Que sea -entonces- hasta la próxima.
Cacho.

"juan almanza" wrote:

> chacho muchas gracias por su ayuda . me sirvio de mucho
>
>
> GRACIAS att juan colombia
>
> "Cacho" wrote:
>
> > Hola! Juan (por caso: disculpa si no eres Juan...)
> >
> > a) Tolera la siguiente sugerencia: si no es necesario, trata de no escribir
> > TODO con mayúsculas. En efecto, en la mayoría de los Foros se interpreta que
> > hacerlo, equivale a gritar ("literalmente").
> >
> > b) Haz clic con el botón derecho de tu ratón en la etiqueta de la hoja en la
> > que pretendes el efecto (abajo a la izquierda), y selecciona: Ver código.
> >
> > c) En la ventana que se te abrirá, incorpora lo siguiente:
> > _________________________
> >
> > Private Sub Worksheet_Change(ByVal Target As Range)
> > If Target.Address = "$A$1" And Target = 1 Then
> > MsgBox "La celda A1 contiene el valor ""1""."
> > End If
> > End Sub
> > _________________________
> >
> > d) Cierra todas las ventanas del ambiente Visual Basic for Application en el
> > que te encuentras y retorna al Excel.
> >
> > e) Cada vez que el usuario (o un vínculo externo) cambie el valor de la
> > celda A1, verás el mensaje: La celda A1 contiene el valor "1".
> >
> > Para tu caso particular, reemplaza ese mensaje por la ejecución de la macro
> > que requieras.
> >
> > Saludos, Cacho.

hola, juan !

(segun parece) Cacho ha considerado tu confirmacion anterior como: "tema resuelto... tema cerrado !!!"
(en tanto -re-considera que puede haber situaciones "no comentadas originalmente")...

podrias exponer los detalles con los que se pueda (re)construir un modelo de trabajo "igual al tuyo" ?
- comenta como estas usando el evento para tus fines (de preferencia, +/- exactamente)
- agrega como es la "forma" de trabajo en esa hoja (cuando suceda "que y donde"... habria que hacer "que y donde")
- y cualquier otro detalle "en el tintero" (al menos, los que no se puedan "ver" desde este lado del mensaje)

saludos,
hector.

__ OP __

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target = 1 Then
MsgBox "La celda A1 contiene el valor ""1""."
End If
End Sub

esto me sirvio para ejecutar la macros bien pero da la casualidad que la macro
tiene como finalidad borrar valores en celdas diferentes a la que estoy evaluando el cambio de valor (para este casos a1)
en fin la macro se empieza a ejecutar bien pero cuando llega al cambio de valores en estas celdas
el programa se salta al principio "Private Sub Worksheet_Change(ByVal Target As Range)"
y me sale un error de ejecucion como si se perdiera no se si soy claro
hay alguna forma de solucionar este problema? ...