Error de codigo al abrir calendario de outlook
Hola, quiero saber si me puedes ayudar a encontrar el error que tengo en mi codigo, te explico lo que quiero hacer:
Quiero que en excel me abra el calendario de outlook cada que una fecha de vencimiento sea igual al dia de hoy, la macro funciona la primera vez, me abre el calendario y me aparacen las fechas e vencimiento del dia de hoy, pero me aparace un mensaje de error en tempo de ejecucion.
Te dejo mi código, estoy en linea por si tienes dudas.
Public Sub EstablecerCitasEnOutlook()
Dim nOutlook As Object, Cita As Object, _
Fila As Integer, uFila As Integer
uFila = Range("a65536").End(xlUp).Row
Set nOutlook = CreateObject("outlook.application")
For Fila = 2 To uFila
Set Cita = nOutlook.CreateItem(1)
Cita.Subject = Range("au" & Fila).Value
Cita.Start = Format(Range("aw" & Fila).Value, "hh:mm AMPM") & _
Format(Range("ax" & Fila).Value, "mm/dd/yyyy")
Cita.End = Format(Range("az" & Fila).Value, "hh:mm AMPM") & _
Format(Range("ba" & Fila).Value, "mm/dd/yyyy")
Cita.ReminderMinutesBeforeStart = 0
Cita.ReminderPlaySound = True
Cita.Save
Next
Set nOutlook = Nothing
End Sub
Muchas gracias
Quiero que en excel me abra el calendario de outlook cada que una fecha de vencimiento sea igual al dia de hoy, la macro funciona la primera vez, me abre el calendario y me aparacen las fechas e vencimiento del dia de hoy, pero me aparace un mensaje de error en tempo de ejecucion.
Te dejo mi código, estoy en linea por si tienes dudas.
Public Sub EstablecerCitasEnOutlook()
Dim nOutlook As Object, Cita As Object, _
Fila As Integer, uFila As Integer
uFila = Range("a65536").End(xlUp).Row
Set nOutlook = CreateObject("outlook.application")
For Fila = 2 To uFila
Set Cita = nOutlook.CreateItem(1)
Cita.Subject = Range("au" & Fila).Value
Cita.Start = Format(Range("aw" & Fila).Value, "hh:mm AMPM") & _
Format(Range("ax" & Fila).Value, "mm/dd/yyyy")
Cita.End = Format(Range("az" & Fila).Value, "hh:mm AMPM") & _
Format(Range("ba" & Fila).Value, "mm/dd/yyyy")
Cita.ReminderMinutesBeforeStart = 0
Cita.ReminderPlaySound = True
Cita.Save
Next
Set nOutlook = Nothing
End Sub
Muchas gracias
1 Respuesta
Respuesta de prozac
-1
He probado tu código y me funciona bien. Solo me ha dado un error cuando la segunda fecha es anterior a la primera. Esto es lógico pues la cita no puede acabar antes de haber comenzado.
Otro posible error puede venir de los formatos de esos campos. Al crear datos de prueba me ha puesto los formatos como Date para las fechas y Custom/hh:mm para las horas. Si por el motivo que fuera el formato no permite que la función Format devuelva un resultado correcto también puede ser causa del fallo.
Además es mejor que pongas Fila como Double. Las funciones End(xl..) pueden devolver en momentos valores que no caben en Integer.
Para ir viendo donde falla y que resultados parciales vas obteniendo puedes ir depurando y mirando paso a paso la ejecución del programa.
Si todo esto no te vale dime que datos concretos tienes que te dan el error y si es posible el error y donde se produce.
Otro posible error puede venir de los formatos de esos campos. Al crear datos de prueba me ha puesto los formatos como Date para las fechas y Custom/hh:mm para las horas. Si por el motivo que fuera el formato no permite que la función Format devuelva un resultado correcto también puede ser causa del fallo.
Además es mejor que pongas Fila como Double. Las funciones End(xl..) pueden devolver en momentos valores que no caben en Integer.
Para ir viendo donde falla y que resultados parciales vas obteniendo puedes ir depurando y mirando paso a paso la ejecución del programa.
Si todo esto no te vale dime que datos concretos tienes que te dan el error y si es posible el error y donde se produce.
