Imprimir página | Cerrar ventana

pasar de texto a fecha no me funciona

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Excel
Descripción del foro: Foro de Excel y VBA de Excel
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86111
Fecha de impresión: 20/Abril/2024 a las 06:37


Tema: pasar de texto a fecha no me funciona
Publicado por: acilu55
Asunto: pasar de texto a fecha no me funciona
Fecha de publicación: 15/Septiembre/2021 a las 09:42
Tengo una hoja en la que una columna encabezada como fecha tiene formato de texto y los valores 01/03/2021
05/03/2021
...
Asi hasta 6000 o siete mil registros anuales.

Dando a la columna el formato fecha no lo reconoce como tal
Si me coloca en la celda y suprimí un carácter al final del contenido y se convierte en fecha.

Si paso esta función

sub p1()

dim ult as integer
ult=Cells(Rows.count, 1).End(xlUp).Row

for n = 2 to ult
celdilla= "g"& n
v1= Range(celdilla).Value
Range(celdilla).Value=Left(v1, 10)
next
end sub

de resultado obtengo que un 30% de las celdas toman el formato de fecha y se alinean a la derecha pero el resto siguen siendo texto alineado a la izquierda.

A alguien se le ocurre que puedo hacer?



-------------
Gracias a todos de antemano


Respuestas:
Publicado por: xavi
Fecha de publicación: 15/Septiembre/2021 a las 10:36
Sin ver tus datos asumiré que todas las celdas tienen un formato que, aparentemente, es este: dd/mm/aaaa.

Entonces yo crearía un array para obtener cada uno de los componentes y regeneraría la fecha

Algo así:

    Dim i As Integer
    Dim arrFecha As Variant
    i = 2
    Cells(i, 7).Select
    Do Until ActiveCell = ""
        arrFecha = Split(ActiveCell, "/")
        ActiveCell.Value = DateSerial(CInt(arrFecha(2)), CInt(arrFecha(1)), CInt(arrFecha(0)))
        i = i + 1
        Cells(i, 7).Select
    Loop

Escrito al vuelo


-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web

Publicado por: acilu55
Fecha de publicación: 15/Septiembre/2021 a las 11:46
muchas gracias Xavi. Funciona perfectamente

-------------
Gracias a todos de antemano


Imprimir página | Cerrar ventana