Problema con Calendar

Hola Francisco

NO creo que se deba a eso, ya que he probado a poner la celda activa con
formato de fecha, a poner una fecha y si ella, y de todas las maneras me
da el mismo error.

El error aparece en este código:

If IsDate(ActiveCell.Value) Then
Calendar1.Value = DateValue(ActiveCell.Value)
Else
Calendar1.Value = Date
End If

Da lo mismo cuál de las dos órdenes se ejecute, siempre devuelve el
mismo error "Error en método 'Value' de objeto 'ICalendar'"

De todas formas no entiendo qué es Calendar1, ¿es una variable?

Gracias de nuevo

Javi

Francisco MTY escribió:

El error segun me parece en el codigo se debe posiblemente a que no tienes
valor en la celda activa como fecha :)

Revisa el dato y comentas

Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice
http://groups.msn.com/dadyboy
http://support.microsoft.com/search
http://search.microsoft.com/?mkt=es-ES

"El progreso debe ser un movimiento ordenado y racional hacia una meta
fija... y no un torbellino de direcciones falsas y encontradas."

El error segun me parece en el codigo se debe posiblemente a que no tienes
valor en la celda activa como fecha :)

Revisa el dato y comentas

Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice
http://groups.msn.com/dadyboy
http://support.microsoft.com/search
http://search.microsoft.com/?mkt=es-ES

"El progreso debe ser un movimiento ordenado y racional hacia una meta
fija... y no un torbellino de direcciones falsas y encontradas."

calendar1 es el objeto creado, osea el calendario que se muestra ya sea
presionando las teclas ctrl + shift y otra no recuerdo bien la estructura de
la instruccion, o bien cuando das con el boton derecho del mouse en el menu
contextual para mostrar el calendario, verifica el formato de la celda

A mi me funciona correctamente :)

O bien por que no subes el archivo

Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice
http://groups.msn.com/dadyboy
http://search.microsoft.com/?mkt=es-ES

"El progreso debe ser un movimiento ordenado y racional hacia una meta
fija... y no un torbellino de direcciones falsas y encontradas."

Error en método 'Value' de objeto 'ICalendar'"

Modifica este valor ICalendar por calendar1 segun parece

Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice
http://groups.msn.com/dadyboy
http://search.microsoft.com/?mkt=es-ES

"El progreso debe ser un movimiento ordenado y racional hacia una meta
fija... y no un torbellino de direcciones falsas y encontradas."

Hola de nuevo

Pues me sigue dando error. Además, no sé si será por eso, cuando intento
ver el formulario y seleccionar algún objeto de él se me cierra excel y
me dice que se ha producido un error.

He probado a insertar un objeto "Control Calendar 8.0" y en cuanto
pincho en una fecha se produce un error y se cierra.

¿alguna idea?

Muchas Gracias

Javi

Francisco MTY escribió:

Error en método 'Value' de objeto 'ICalendar'"

Modifica este valor ICalendar por calendar1 segun parece

Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice
http://groups.msn.com/dadyboy
http://search.microsoft.com/?mkt=es-ES

"El progreso debe ser un movimiento ordenado y racional hacia una meta
fija... y no un torbellino de direcciones falsas y encontradas."