Excel - CAMBIAR FECHA A HORA AL INSERTAR LOS DATOS

Private Sub Workbook_Open()

End Sub

Private Sub Workbook_Open()

    Application.ReplaceFormat.NumberFormat = "[$-409]dd/mm/yy h:mm:ss AM/PM;@"

    Cells.Replace What:="a.m.", Replacement:="AM", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=True

    Cells.Replace What:="p.m.", Replacement:="PM", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=True

    Application.ReplaceFormat.Clear

End Sub

Private Sub Workbook_Open()

    Dim NewFormat As String

    NewFormat =  "[$-409]dd/mm/yy h:mm:ss AM/PM;@"

    'Si hay algun error iremos a la parte donde se aplica el formato personalizado

    On Error GoTo ApplyFormat

    Application.ReplaceFormat.Clear

    Application.ReplaceFormat.NumberFormat =NewFormat

    'Reemplazamos las cadenas a.m. y p.m. por AM y PM

    Cells.Replace What:="a.m.", Replacement:="AM", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=True

    Cells.Replace What:="p.m.", Replacement:="PM", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=True

    Exit Sub

ApplyFormat:

    'Aplico el nuevo formato a la celda que ha dado el error

    Dim OldFormat As String

    'Si hay algun error salgo de la funcion

    On Error GoTo ExitPoint

    'Guardo el formato que tiene la celda

    OldFormat = ActiveCell.NumberFormat

    'Le aplico mi nuevo formato personalizado

    ActiveCell.NumberFormat = NewFormat

    'Le vuelvo a aplicar ahora su formato original

    ActiveCell.NumberFormat = OldFormat

    'Ahora volvemos al codigo para volver a intentar la conversion de formato

    Resume

ExitPoint:

    End Sub