Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Ligar Excel y Outlook

16/05/2009 - 01:28 por Alex | Informe spam
Ayuda Hacer una pregunta
Hola a todos

Tengo una hoja en Excel donde capturo varios datos dentro de los cuales
tengo una fecha que quisiera recordar, me gustaria saber si esta fecha la
puedo enviar a mi calendario de Outlook para que cuando sea la fecha me mande
avisos, igual en mi blackberry-. Gracias.
email Siga el debateRespuesta 25 respuestasRespuesta Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#21 Héctor Miguel
05/08/2009 - 21:25 | Informe spam
hola, Sandra !

... este ultimo codigo lo escribo en la macro de excel?
y a la vez que se hace para activar esta macro ligarlo a un boton?



1) el codigo se copia/pega (o escribe) en un modulo estandar en el editor de vba
- abres el editor de vba (atajo de teclado: alt + F11)
- insertas un modulo de codigo (menu: inserar / modulo)

2) la macro la puedes ejecutar de varias formas:
- llamando el dialogo de macros (atajo de teclado: alt + F8)
- asignandola a un objeto incrustado (p.e. un boton de la barra "formularios")
- asignando a la macro un atajo de teclado (en opciones del dialogo con alt + F8)
- etc.

saludos,
hector.

__ OP __
Sub Agendar_en_miCalendario()
Dim miOutlook As Object, miCalendario As Object, miCita As Object, _
Fila As Integer, uFila As Integer
uFila = Range("a65536").End(xlUp).Row
On Error GoTo Crear
Set miOutlook = GetObject(, "outlook.application")
If Err = 0 Then GoTo Creado
Crear:
Err.Clear
Set miOutlook = CreateObject("outlook.application")
Creado:
On Error GoTo 0
For Fila = 2 To uFila
' en la col-B se tienen los nombres de los calendarios
Set miCalendario = miOutlook.Session.GetDefaultFolder(9).Folders.Item(Range("b" & Fila).Text)
Set miCita = miCalendario.Items.Add(1)
' en la col-A se tienen los identificadores de las polizas
miCita.Subject = "Vencimiento poliza: " & Range("a" & Fila).Value
' en la col-C se tienen las fechas de los vencimientos
miCita.Start = "09:00 am" & Format(Range("c" & Fila).Value, "mm/dd/yyyy")
miCita.End = "9:15 am" & Format(Range("c" & Fila).Value, "mm/dd/yyyy")
miCita.ReminderMinutesBeforeStart = 0 ' se deja en 0 para que avise en ese momento
miCita.ReminderPlaySound = True
miCita.Save
Next
' miOutlook.Quit
Set miCita = Nothing
Set miCalendario = Nothing
Set miOutlook = Nothing
End Sub
Respuesta Responder a este mensaje
#22 Jennifer
19/08/2009 - 17:03 | Informe spam
Mil Mil y Mil gracias, me salvaron la vida :D


On 5 ago, 14:25, "Héctor Miguel"
wrote:
hola, Sandra !

> ... este ultimo codigo lo escribo en la macro de excel?
> y a la vez que se hace para activar esta macro ligarlo a un boton?

1) el codigo se copia/pega (o escribe) en un modulo estandar en el editor de vba
    - abres el editor de vba (atajo de teclado: alt + F11)
    - insertas un modulo de codigo (menu: inserar / modulo)

2) la macro la puedes ejecutar de varias formas:
    - llamando el dialogo de macros (atajo de teclado: alt + F8)
    - asignandola a un objeto incrustado (p.e. un boton de la barra "formularios")
    - asignando a la macro un atajo de teclado (en opciones del dialogo con alt + F8)
    - etc.

saludos,
hector.

__ OP __



>> Sub Agendar_en_miCalendario()
>>   Dim miOutlook As Object, miCalendario As Object, miCita As Object, _
>>          Fila As Integer, uFila As Integer
>>   uFila = Range("a65536").End(xlUp).Row
>>   On Error GoTo Crear
>>   Set miOutlook = GetObject(, "outlook.application")
>>   If Err = 0 Then GoTo Creado
>> Crear:
>>   Err.Clear
>>   Set miOutlook = CreateObject("outlook.application")
>> Creado:
>>   On Error GoTo 0
>>   For Fila = 2 To uFila
>> '    en la col-B se tienen los nombres de los calendarios
>>     Set miCalendario = miOutlook.Session.GetDefaultFolder(9).Folders.Item(Range("b" & Fila).Text)
>>     Set miCita = miCalendario.Items.Add(1)
>> '    en la col-A se tienen los identificadores de las polizas
>>     miCita.Subject = "Vencimiento poliza: " & Range("a" & Fila).Value
>> '    en la col-C se tienen las fechas de los vencimientos
>>     miCita.Start = "09:00 am" & Format(Range("c" & Fila).Value, "mm/dd/yyyy")
>>     miCita.End = "9:15 am" & Format(Range("c" & Fila).Value, "mm/dd/yyyy")
>>     miCita.ReminderMinutesBeforeStart = 0 ' se deja en 0 para que avise en ese momento
>>     miCita.ReminderPlaySound = True
>>     miCita.Save
>>   Next
>> '  miOutlook.Quit
>>   Set miCita = Nothing
>>   Set miCalendario = Nothing
>>   Set miOutlook = Nothing
>> End Sub
Respuesta Responder a este mensaje
#23 Jennifer
19/08/2009 - 17:42 | Informe spam
Una pregunta:

Como puedo controlar las celdas vacias? Gracias


On 19 ago, 10:03, Jennifer wrote:
Mil Mil y Mil gracias, me salvaron la vida :D

On 5 ago, 14:25, "Héctor Miguel"
wrote:



> hola, Sandra !

> > ... este ultimo codigo lo escribo en la macro de excel?
> > y a la vez que se hace para activar esta macro ligarlo a un boton?

> 1) el codigo se copia/pega (o escribe) en un modulo estandar en el editor de vba
>     - abres el editor de vba (atajo de teclado: alt + F11)
>     - insertas un modulo de codigo (menu: inserar / modulo)

> 2) la macro la puedes ejecutar de varias formas:
>     - llamando el dialogo de macros (atajo de teclado: alt + F8)
>     - asignandola a un objeto incrustado (p.e. un boton de la barra "formularios")
>     - asignando a la macro un atajo de teclado (en opciones del dialogo con alt + F8)
>     - etc.

> saludos,
> hector.

> __ OP __

> >> Sub Agendar_en_miCalendario()
> >>   Dim miOutlook As Object, miCalendario As Object, miCita As Object, _
> >>          Fila As Integer, uFila As Integer
> >>   uFila = Range("a65536").End(xlUp).Row
> >>   On Error GoTo Crear
> >>   Set miOutlook = GetObject(, "outlook.application")
> >>   If Err = 0 Then GoTo Creado
> >> Crear:
> >>   Err.Clear
> >>   Set miOutlook = CreateObject("outlook.application")
> >> Creado:
> >>   On Error GoTo 0
> >>   For Fila = 2 To uFila
> >> '    en la col-B se tienen los nombres de los calendarios
> >>     Set miCalendario = miOutlook.Session.GetDefaultFolder(9).Folders.Item(Range("b" & Fila).Text)
> >>     Set miCita = miCalendario.Items.Add(1)
> >> '    en la col-A se tienen los identificadores de las polizas
> >>     miCita.Subject = "Vencimiento poliza: " & Range("a" & Fila).Value
> >> '    en la col-C se tienen las fechas de los vencimientos
> >>     miCita.Start = "09:00 am" & Format(Range("c" & Fila).Value, "mm/dd/yyyy")
> >>     miCita.End = "9:15 am" & Format(Range("c" & Fila).Value, "mm/dd/yyyy")
> >>     miCita.ReminderMinutesBeforeStart = 0 ' se deja en 0 para que avise en ese momento
> >>     miCita.ReminderPlaySound = True
> >>     miCita.Save
> >>   Next
> >> '  miOutlook.Quit
> >>   Set miCita = Nothing
> >>   Set miCalendario = Nothing
> >>   Set miOutlook = Nothing
> >> End Sub
Respuesta Responder a este mensaje
#24 Jennifer
19/08/2009 - 18:10 | Informe spam
Ya:

If Range("e" & Fila) <> "" Then

jejeje que pena la pregunta tonta.

Mil gracias

On 19 ago, 10:42, Jennifer wrote:
Una pregunta:

Como puedo controlar las celdas vacias? Gracias

On 19 ago, 10:03, Jennifer wrote:



> Mil Mil y Mil gracias, me salvaron la vida :D

> On 5 ago, 14:25, "Héctor Miguel"
> wrote:

> > hola, Sandra !

> > > ... este ultimo codigo lo escribo en la macro de excel?
> > > y a la vez que se hace para activar esta macro ligarlo a un boton?

> > 1) el codigo se copia/pega (o escribe) en un modulo estandar en el editor de vba
> >     - abres el editor de vba (atajo de teclado: alt + F11)
> >     - insertas un modulo de codigo (menu: inserar / modulo)

> > 2) la macro la puedes ejecutar de varias formas:
> >     - llamando el dialogo de macros (atajo de teclado: alt + F8)
> >     - asignandola a un objeto incrustado (p.e. un boton de la barra "formularios")
> >     - asignando a la macro un atajo de teclado (en opciones del dialogo con alt + F8)
> >     - etc.

> > saludos,
> > hector.

> > __ OP __

> > >> Sub Agendar_en_miCalendario()
> > >>   Dim miOutlook As Object, miCalendario As Object, miCita As Object, _
> > >>          Fila As Integer, uFila As Integer
> > >>   uFila = Range("a65536").End(xlUp).Row
> > >>   On Error GoTo Crear
> > >>   Set miOutlook = GetObject(, "outlook.application")
> > >>   If Err = 0 Then GoTo Creado
> > >> Crear:
> > >>   Err.Clear
> > >>   Set miOutlook = CreateObject("outlook.application")
> > >> Creado:
> > >>   On Error GoTo 0
> > >>   For Fila = 2 To uFila
> > >> '    en la col-B se tienen los nombres de los calendarios
> > >>     Set miCalendario = miOutlook.Session.GetDefaultFolder(9).Folders.Item(Range("b" & Fila).Text)
> > >>     Set miCita = miCalendario.Items.Add(1)
> > >> '    en la col-A se tienen los identificadores de las polizas
> > >>     miCita.Subject = "Vencimiento poliza: " & Range("a" & Fila).Value
> > >> '    en la col-C se tienen las fechas de los vencimientos
> > >>     miCita.Start = "09:00 am" & Format(Range("c" & Fila).Value, "mm/dd/yyyy")
> > >>     miCita.End = "9:15 am" & Format(Range("c" & Fila).Value, "mm/dd/yyyy")
> > >>     miCita.ReminderMinutesBeforeStart = 0 ' se deja en 0 para que avise en ese momento
> > >>     miCita.ReminderPlaySound = True
> > >>     miCita.Save
> > >>   Next
> > >> '  miOutlook.Quit
> > >>   Set miCita = Nothing
> > >>   Set miCalendario = Nothing
> > >>   Set miOutlook = Nothing
> > >> End Sub
Respuesta Responder a este mensaje
#25 Héctor Miguel
19/08/2009 - 20:02 | Informe spam
hola, Jennifer !

Ya:
If Range("e" & Fila) <> "" Then
jejeje que pena la pregunta tonta...



la pregunta "tonta", es aquella que no se formula
(a menos que la duda haya quedado ya resuelta ?)

saludos,
hector.

__ OP __
Una pregunta:
Como puedo controlar las celdas vacias? ...
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida