Macro para convertir serie en fecha en Excel
En base a una consulta en los foros de TODOEXCEL donde solicitan que una serie de números, por ejemplo “140382” se convirtiera a formato de fecha “14-mar-11”, aprovecho para compartir la macro que realiza tal función.
Código:
'--------------------------------------------------------------------------------------- ' Procedure : EXCELeINFOConvertirSerieEnFecha ' Author : Sergio A Campos H ' Date : 13/04/2011 ' Purpose : Convertir serie en fecha '--------------------------------------------------------------------------------------- ' Sub EXCELeINFOConvertirSerieEnFecha() Dim Celda, Dia, Mes, Anio, FechaCompleta, Cuenta Application.Calculation = xlCalculationManual Application.StatusBar = "Convirtiendo ..." Cuenta = 0 For Each Celda In Selection If Len(Celda.Value) = 5 Then Fecha = "0" & Celda.Value Else Fecha = Celda.Value If Len(Celda.Value) < 5 Then Cuenta = Cuenta + 1 End If End If Anio = Right(Fecha, 2) Mes = Mid(Fecha, 3, 2) Dia = Left(Fecha, 2) Unidos = Mes & "-" & Dia & "-" & Anio FechaCompleta = WorksheetFunction.Text(Unidos, "dd-mmm-yyy") Celda.Value = FechaCompleta Next Celda Application.Calculation = xlCalculationAutomatic Application.StatusBar = False MsgBox Cuenta & " celdas con longitud menor a 5", vbInformation End Sub
