El formato fecha se cambia

estoy dejando la fecha manual.. La fecha se cambia de 06/02/2018 A 02/06/2018

El dia pasa al medio como mes...

1 respuesta

Respuesta
1

Revisa cómo está en la hoja, debe tener el mismo formato que las otras celdas.

Reviso la rutina para cargar el comobo y te envío el nuevo código

Tiene el mismo formato

Necesito que, la fecha si. Sea automática. Pero solo pueda modificarse la fecha, no ser ingresada manual

Cambia la rutina Agregar_Fec por esta:

Sub Agregar_Fec(combo As ComboBox, dato As String)
    Dim fec1 As Date
    Dim fec2 As Date
    fec2 = CDate(dato)
    For i = 0 To combo.ListCount - 1
        fec1 = CDate(combo.List(i))
        If fec1 = fec2 Then Exit Sub
        If fec1 > fec2 Then combo.AddItem fec2, i: Exit Sub
    Next
    combo.AddItem fec2 'Es mayor lo agrega al final
End Sub

sal u dos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas