No me funciona el código para ejecutar una Macro???

Hola Angel:
Si quieres que se ejecute tu macro vas a tener que ponerla en le evento
change de tu hoja
¿Sabes?
boton derecho sobre la etiqueta de la hoja, ver codigo y pegar esto:

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("Ventas").Select
MNU_SendData
End Sub

Un saludo

"angel" escribió en el mensaje
news:de4401c3efef$b4171660$
Tengo un Procedimiento VBA que si el total de una celda
es > 5000 ejecuta la macro MNU_SendData, pero NO me hace
caso, es decir el código se ejecuta (probe poniendo un
breakpoint) pero la Macro NO hace nada.
Cómo se ve en el código que anexo probé posicionándome en
la hoja respectiva -aunque solo tengo una hoja- y ponerlo
luego de EnableEvents = False o EnableEvents = Trae pero
tampoco me funciona.
Lo más lindo es que si agrego un botón en la hoja y le
asigno la macro "MNU_SendData" cuando presiono el botón
la macro se ejecuta correctamente y hace lo que tienen
que hacer.
Por que NO me funciona desde VBA????


Worksheets("Ventas").Select
Application.EnableEvents = False
Application.Run MNU_SendData
Application.EnableEvents = True
Application.Run MNU_SendData

Pero yo solo quiero que se ejecute la macro cuando el
usuario presiona el botón Grabar y si se cumple una
condición determinada (porque sino le muestro un mensaje
de que No puede Grabar) y si pongo la macro en el
eventoWorksheet_Change cada vez que se cambia un valor de
la hoja se ejecutaría la macro, no??? (No cuando el
usuario hace clic en el botón)
Cómo lo podría hacer de esta manera????

Hola Angel:
Si quieres que se ejecute tu macro vas a tener que

ponerla en le evento

change de tu hoja
¿Sabes?
boton derecho sobre la etiqueta de la hoja, ver codigo y

pegar esto:

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("Ventas").Select
MNU_SendData
End Sub

Un saludo

"angel" escribió

en el mensaje

news:de4401c3efef$b4171660$
Tengo un Procedimiento VBA que si el total de una celda
es > 5000 ejecuta la macro MNU_SendData, pero NO me hace
caso, es decir el código se ejecuta (probe poniendo un
breakpoint) pero la Macro NO hace nada.
Cómo se ve en el código que anexo probé posicionándome en
la hoja respectiva -aunque solo tengo una hoja- y ponerlo
luego de EnableEvents = False o EnableEvents = Trae pero
tampoco me funciona.
Lo más lindo es que si agrego un botón en la hoja y le
asigno la macro "MNU_SendData" cuando presiono el botón
la macro se ejecuta correctamente y hace lo que tienen
que hacer.
Por que NO me funciona desde VBA????


Worksheets("Ventas").Select
Application.EnableEvents = False
Application.Run MNU_SendData
Application.EnableEvents = True
Application.Run MNU_SendData


.

Ya esta, me faltaban las comillas en el nombre de la
macro a ejecutar.
Gracias!

Pero yo solo quiero que se ejecute la macro cuando el
usuario presiona el botón Grabar y si se cumple una
condición determinada (porque sino le muestro un mensaje
de que No puede Grabar) y si pongo la macro en el
eventoWorksheet_Change cada vez que se cambia un valor

de

la hoja se ejecutaría la macro, no??? (No cuando el
usuario hace clic en el botón)
Cómo lo podría hacer de esta manera????

Hola Angel:
Si quieres que se ejecute tu macro vas a tener que

ponerla en le evento

change de tu hoja
¿Sabes?
boton derecho sobre la etiqueta de la hoja, ver codigo

y

pegar esto:

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("Ventas").Select
MNU_SendData
End Sub

Un saludo

"angel" escribió

en el mensaje

news:de4401c3efef$b4171660$
Tengo un Procedimiento VBA que si el total de una celda
es > 5000 ejecuta la macro MNU_SendData, pero NO me hace
caso, es decir el código se ejecuta (probe poniendo un
breakpoint) pero la Macro NO hace nada.
Cómo se ve en el código que anexo probé posicionándome

en

la hoja respectiva -aunque solo tengo una hoja- y

ponerlo

luego de EnableEvents = False o EnableEvents = Trae pero
tampoco me funciona.
Lo más lindo es que si agrego un botón en la hoja y le
asigno la macro "MNU_SendData" cuando presiono el botón
la macro se ejecuta correctamente y hace lo que tienen
que hacer.
Por que NO me funciona desde VBA????


Worksheets("Ventas").Select
Application.EnableEvents = False
Application.Run MNU_SendData
Application.EnableEvents = True
Application.Run MNU_SendData


.

.