Problema raro raro con fechas!!

15/05/2006 - 13:17 por kusflo | Informe spam
Tengo en una macro un bucle que coge la fecha de todas las celdas de una
columna y separa los valores de dia mes y año. Dichas celdas tienen todas
formato de fecha. El problema es que con un criterio que parece totalmente
arbitrario el código en una determinada celda se detiene y me da el siguiente
error en la linea con el *: "Se ha producido el error 13 en tiempo de
ejecución. No coinciden los tipos"
He probado a cambiar los ".text" por ".value" y lo único que he conseguido
es que el error me de el mismo error en otra celda diferente. He probado a
declarar todas las variables como Variant y da lo mismo. ¿Qúe puede estar
sucediendo?. El código del bucle es el siguiente:
'--
Dim FECHACOMPLETA AS Variant
Dim dia, mes, año AS String

FECHACOMPLETA = FI.Cells(6, 1).Text

'ASIGNAR VALORES A LAS VARIABLES

* dia = Day(FECHACOMPLETA)
If dia < 10 Then dia = "0" & dia
mes = Month(FECHACOMPLETA)
If mes < 10 Then mes = "0" & mes
año = Right(Year(FECHACOMPLETA), 2)
fech = año & mes & dia
'

"Saber que se sabe lo que se sabe y que no se sabe lo que no se sabe; he
aquí el verdadero saber." Confucio.
 

Leer las respuestas

#1 KL
15/05/2006 - 13:30 | Informe spam
Hola kusflo,

Prueba algo asi:

'-
Dim fecha As String
fecha = Format(FI.Cells(6, 1), "YYMMDD")
'-

Saludos,
KL


"kusflo" (donotspam)> wrote in message news:

Tengo en una macro un bucle que coge la fecha de todas las celdas de una
columna y separa los valores de dia mes y año. Dichas celdas tienen todas
formato de fecha. El problema es que con un criterio que parece totalmente
arbitrario el código en una determinada celda se detiene y me da el siguiente
error en la linea con el *: "Se ha producido el error 13 en tiempo de
ejecución. No coinciden los tipos"
He probado a cambiar los ".text" por ".value" y lo único que he conseguido
es que el error me de el mismo error en otra celda diferente. He probado a
declarar todas las variables como Variant y da lo mismo. ¿Qúe puede estar
sucediendo?. El código del bucle es el siguiente:
'--
Dim FECHACOMPLETA AS Variant
Dim dia, mes, año AS String

FECHACOMPLETA = FI.Cells(6, 1).Text

'ASIGNAR VALORES A LAS VARIABLES

* dia = Day(FECHACOMPLETA)
If dia < 10 Then dia = "0" & dia
mes = Month(FECHACOMPLETA)
If mes < 10 Then mes = "0" & mes
año = Right(Year(FECHACOMPLETA), 2)
fech = año & mes & dia
'

"Saber que se sabe lo que se sabe y que no se sabe lo que no se sabe; he
aquí el verdadero saber." Confucio.

Preguntas similares