............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Algo para hacer F2+Enter??

Ver el tema anterior Ver el tema siguiente Ir abajo

Algo para hacer F2+Enter??

Mensaje por cbyto el Dom Dic 04, 2011 12:27 pm

Buenas, les quiero consultar algo.
Me pasan de un sistema un archivo con casi 60000 filas. una de las columnas (la A, A2:A60127) es un fecha.
Yo aplico el formato fecha en toda la columna pero no me lo reconoce....hasta que hago sobre la celda F2+Enter.
Mi pregunta es si habra alguna forma de hacer una macro o funcion o algo para no tener que hacer F2+Enter en las mas de 60000 filas?

Gracias

cbyto

Masculino Cantidad de envíos : 58
Edad : 40
Ciudad - Pais : Argentina
Version de Excel : 2003-2007-2010
Fecha de inscripción : 31/07/2008

Volver arriba Ir abajo

Re: Algo para hacer F2+Enter??

Mensaje por Roberto2010 el Dom Dic 04, 2011 2:11 pm

Hola cbyto, tal vez te sirva seleccionar toda la columna
y luego usar el comando:
texto en columnas > de ancho fijo > fecha.
En excel 2007 lo encontraras en la cinta Datos, en excel 2003 el el menú Herramientas.
Si no, subí un ejemplo para ver el formato de la fecha. Saludos.
avatar
Roberto2010

Masculino Cantidad de envíos : 76
Edad : 41
Ciudad - Pais : ARGENTINA
Version de Excel : 2003-2007
Fecha de inscripción : 03/09/2010

Volver arriba Ir abajo

Re: Algo para hacer F2+Enter??

Mensaje por cbyto el Dom Dic 04, 2011 4:23 pm

Aca va un ejemplo
No es sobre un campo fecha sino uno hora, pero es el mismo caso
(el formato fecha lo deje en el trabajo)
Gracias

link de descarga
[Tienes que estar registrado y conectado para ver este vínculo]

cbyto

Masculino Cantidad de envíos : 58
Edad : 40
Ciudad - Pais : Argentina
Version de Excel : 2003-2007-2010
Fecha de inscripción : 31/07/2008

Volver arriba Ir abajo

Re: Algo para hacer F2+Enter??

Mensaje por ioyama el Lun Dic 05, 2011 9:06 am

Hola cbyto

El problema viene dado porque las fechas y horas están en formato texto. Si das el formato adecuado a la columna y corres una macro tal que

Código:
Sub Prueba()
    Columns("B:B").NumberFormat = "[$-409]h:mm:ss AM/PM;@"
    uf = Range("B" & Cells.Rows.Count).End(xlUp).Row
    For fil = 2 To uf
        If Not IsNumeric(Range("B" & fil)) Then Range("B" & fil) = Range("B" & fil) & ""
    Next
End Sub

en apariencia se obtiene el resultado deseado. Es algo rústico pero funciona (al menos con el ejemplo).

Un saludo desde Vitoria

ioyama
Moderador
Moderador

Masculino Cantidad de envíos : 128
Edad : 54
Ciudad - Pais : Vitoria (España)
Fecha de inscripción : 03/03/2008

Volver arriba Ir abajo

Re: Algo para hacer F2+Enter??

Mensaje por cbyto el Miér Dic 07, 2011 10:17 pm

Gracias Ioyama
Un abrazo

cbyto

Masculino Cantidad de envíos : 58
Edad : 40
Ciudad - Pais : Argentina
Version de Excel : 2003-2007-2010
Fecha de inscripción : 31/07/2008

Volver arriba Ir abajo

Re: Algo para hacer F2+Enter??

Mensaje por GalileoGali el Jue Dic 08, 2011 7:20 am

He aqui el aporte de Roberto2010, como macro (una variante que se adiciona)

Código:
Sub Transforming()
    Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row).TextToColumns Destination:=Range("B2"), DataType:=xlDelimited, FieldInfo _
        :=Array(1, 4)
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Algo para hacer F2+Enter??

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.