Macro para convertir serie en fecha en Excel

Twittear este post Compartir en Facebook

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

You may also like...