Sacar Fecha o números de una celda con espacios para diferenciar el dia y año
Buenas días.
Disculpa las molestias. Espero puedas ayudarme
Tengo este problema que para ti a de ser pan comido
Quiero sacar de una celda la fecha pero tiene varios caracteres.
No se de que forma puedas ayudarme ya que solo he podido sacar el mes pero no puedo sacar el dia y el año
Tengo mas de 86,000 registros o filas en la Columna A
Te pongo unos ejemplos de como tengo la Columna A y como me gustaría sacar la fecha en la Columna B
ABRIL 08.xls_10abr 10/04/2008
ABRIL2010.xls_10 ABRIL 10/04/2010
ABRIL2012.xls_26 ABRIL 26/04/2012
AGOSTO09.xls_13ago 13/08/2009
AGOSTO2010.xls_ 3 AGOS 3/08/2010
DICIEMBRE08.xls_29dic 29/12/2010
ENERO09.xls_27ene 27/01/2009
ENERO2010.xls_11 ENE 11/01/2010
ENERO2012.xls_26 ENE 26/01/2010
FEBRERO09.xls_9feb 9/02/2009
FEBRERO2013_1 FEB 1/02/2013
JULIO08.xls_28jul 28/07/2008
MARZO09.xls_5mar 5/03/2009
NOVIEMBRE08.xls_29nov 29/11/2008
OCTUBRE2010.xls_Inhabil 12 OCT 12/10/2010
Si no se puede sacar la fecha entonces como puse en el Titulo de la pregunta Sacar los numero de una celda con espacios para diferenciar Año y dia.
ABRIL 08.xls_10abr 08 10
ABRIL2010.xls_10 ABRIL 2010 10
ABRIL2012.xls_26 ABRIL 2012 26
AGOSTO09.xls_13ago 09 13
AGOSTO2010.xls_ 3 AGOS 2010 3
DICIEMBRE08.xls_29dic 08 29
ENERO09.xls_27ene 09 27
ENERO2010.xls_11 ENE 2010 11
ENERO2012.xls_26 ENE 2012 26
FEBRERO09.xls_9feb 09 9
FEBRERO2013_1 FEB 2013 1
JULIO08.xls_28jul 08 28
MARZO09.xls_5mar 09 5
NOVIEMBRE08.xls_29nov 08 29
OCTUBRE2010.xls_Inhabil 12 OCT 2010 12
Te darás cuenta que de lado Derecho como si fuese la Columna B están puros números pero le puse espacios para separar año y día. Se podrá sacar con una formula o Macro así como te puse en el ejemplo??
Muchas gracias por tomarte tu tiempo y ayudar a novatos como yo. :(
Saludos.
1 Respuesta
Prueba con la siguiente macro, por lo menos funciona con los ejemplos que me pusiste, si hay otros caracteres puede que no te presente una fecha.
Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: sacarfecha
9. Aceptar.
10. Para ejecutarla dale click a la imagen.
Sub sacarfecha()
'Por.DAM
Columns("B").Clear
m2 = Array("", "ENE", "FEB", "MAR", "ABR", "MAY", "JUN", "JUL", _
"AGO", "SEP", "OCT", "NOV", "DIC")
num = "0123456789"
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
dia = ""
mes = 0
año = ""
cad = ""
For j = 1 To UBound(m2)
If InStr(1, UCase(Cells(i, 1)), m2(j)) Then
mes = j
Exit For
End If
Next
If InStr(1, Cells(i, 1), ".") > 0 Then
punto = True
Else
punto = False
End If
For k = 1 To Len(Cells(i, 1))
l = Mid(Cells(i, 1), k, 1)
If punto Then
If l = "." Then
año = cad
cad = ""
End If
Else
If l = "_" Then
año = cad
cad = ""
End If
End If
If InStr(1, num, l) > 0 Then
cad = cad & l
End If
Next
dia = cad
Cells(i, 2) = Format(dia & "/" & mes & "/" & año, "mm/dd/yyyy")
Next
End SubSaludos.Dante Amor
Si es lo que necesitas.
Increíble, me quede con la boca abierta. los 86500 registros o datos o filas que tenia en la Columna A me traspaso completamente todas las fechas a la Columna B, tarde 5 minutos en revisar todo y todo los datos o todas la fechas me las dejo tal cual como lo ocupaba. Nombre eres extremadamente bueno, mis respetos para personas como tu.
Mil gracias... es mas mis 86,500 registros te dan las gracias.
Saludos.
