Consulta Urgente!!

hola,

no se exactamente lo que te ocurre, pero si el codigo lo tienes
escrito tal cual. lo unico que deberia pasarte es que los mensajes
vayan al contrario de como deberia.

prueba a cambiar el '<=' por '>=' en el 'If ..Then'

a ver si hay suerte

un saludo
Ivan

disculpa, no me habia dado cuenta que esta en el change (vaya diita
que llevo)

prueba esto a ver que tal

''nota: al copiar el codigo he visto que el 2º msgbox lo tenias como
comentario (con una comilla simple delante, asi que prueba a quitarla
y es posible que te lo resuelva.solo con eso

doy por hecho que los mensajes estan en una sola linea o/y que has
omitido los saltos de linea y las sucesivas comillas.aposta

de todas formas aqui va la adaptacion, por si acaso

Private Sub Worksheet_Change(ByVal Target As Range)
if not intersect(target,range("i17") is nothing then
if target>@000 then
MsgBox "El monto máximo autorizado es de ¢40,000.00 Sifras
superiores a
este monto, deben estar autorizadas por la Gerencia o por el
Director
respectivo."
else
MsgBox "Debe asegurarse que cuenta con presupuesto disponible para
realizar
este tipo de adquisición de bienes. En caso contrario, deberá
asumir las
consecuencias respectivas."
end if
end if
End Sub


un saludo
Ivan

Hola Doors,

Quita el apóstrofo que tienes justo antes del segundo Msgbox.

Saludos
E.D.

"Doors" escribió en el mensaje
news:
Mostrar la cita

Saludos,

amigos tengo la siguiente consulta tengo una especie de factura en excel y
lo que quiero hacer es lo siguiente.

1. en el momento en que el monto supere cierta cantidad, me envie un

mensaje
Mostrar la cita

indicando que debe de venir autorizado por la gerencia.

2. en el momento que el monto sea menor a cierta cantidad, me envie un
mensaje indicando que se debe de asegurar que cuenta con presupuesto.

tengo algo asi, pero no me envia el segundo mensaje : (, si alguien me

puede
Mostrar la cita

ayudar se lo agradecería, no se porque no me funciona si es un simple

if
Mostrar la cita

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("l17") <= 40000 Then

MsgBox "El monto máximo autorizado es de ¢40,000.00 Sifras superiores a
este monto, deben estar autorizadas por la Gerencia o por el Director
respectivo."

else

'MsgBox "Debe asegurarse que cuenta con presupuesto disponible para

realizar
Mostrar la cita

este tipo de adquisición de bienes. En caso contrario, deberá asumir las
consecuencias respectivas."
end if
End Sub