Que debo hacer para un listbox y textbox mantengan la fecha y no se vuelvan decimales al momento de una búsqueda o actualización

Si estás cargando el listbox con algo como esto:

    u = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To u
        ListBox1.AddItem Cells(i, "A")
        ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(i, "B")    'carga fecha
    Next

Al momento de almacenar la fecha en el listbox, puedes poner un formato, de esta forma:

    u = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To u
        ListBox1.AddItem Cells(i, "A")
        ListBox1.List(ListBox1.ListCount - 1, 1) = Format(Cells(i, "B"), "dd/mm/yyyy")
    Next

Lo mismo para pasar el dato del listbox a un textbox:

Private Sub ListBox1_Click()
    TextBox1 = Format(ListBox1.List(ListBox1.ListIndex, 1), "dd/mm/yyyy")
End Sub

Prueba y me comentas. Si solucionaste el problema, no olvides valorar la respuesta. 

Feliz año 2018 !

.

no compañero algo estoy asiendo mal cuando busco se cambia la hora a decimal y cuando tomo el dato del lixtbox pasa al textbox como decimal y al grabar la fecha se invierte 

Lo que puse son unos ejemplos, lo tienes que aplicar en tu código. Con gusto te ayudo a daptarlo a tu código. Puedes poner tu código para ver cómo cargas el listbox.

También los códigos para pasar al textbox y para pasar a la celda.

Solamente hay que poner el formato de fecha, pero necesito ver tu código para indicarte cómo hacerlo.

Ya no entendí, ¿estás tratando una fecha o una hora o ambas?

Envíame tu archivo para revisar el código.

Mi correo [email protected]

En el asunto del correo escribe tu nombre de usuario “wilson obando”

ya se lo envió gracias por su colaboración y paciencia

Sería bueno, como para ayudarte en forma precisa, que comentes/coloques como envías esos datos de fechas, tanto al "ListBox" como al "TextBox", y si son datos que originalmente están en celdas, no olvides comentar y/o mostrar como están en la celda también.

Abraham Valencia

Pues no se es mucha información no se podría mandar el archivo algún lugar o pantallazo

Si es solo pantallazo este foro permite adjuntar/incrustar imágenes, si es el archivo tendrías que subirlo a algún "Drive" y compartir el enlace. Otra cosa es solo copiar/pegar las líneas que van enviando las fechas en cuestión.

Abraham Valencia

Como se adjunta

Hummm... si te refieres a un archivo, tienes que usar "Google Drive" o "OneDrive" o "DropBox" o alguno similar. Si te refieres a una imagen, si ves arriba de donde estás escribiendo hay una barra de herramientas, solo usa la adecuada:

Abraham Valencia

Buenos días esta es la fórmula que uso para buscar en listbox ya me cuadro las fechas pero el problema ahora es las horas y envío pantallazo gracias

https://docs.google.com/document/d/13pAlF8-23creY4mHRiMu_OZXUPwhpyTSxZpDoXCAwSY/edit

Private Sub TextBox6_Change()
On Error Resume Next
Set b = Sheets("RUTAS")
uf = b.Range("A" & Rows.Count).End(xlUp).Row
If Trim(TextBox6.Value) = "" Then
Me.ListBox1.List() = b.Range("A2:L" & uf).Value
Me.ListBox1.RowSource = "RUTAS!A2:L" & uf
Exit Sub
End If
b.AutoFilterMode = False
Me.ListBox1 = Clear
Me.ListBox1.RowSource = Clear
For i = 2 To uf
STRG = b.Cells(i, 8).Value
If UCase(STRG) Like UCase(TextBox6.Value) & "*" Then

Me.ListBox1.AddItem b.Cells(i, 1)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = b.Cells(i, 2)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = b.Cells(i, 3)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = b.Cells(i, 4)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = b.Cells(i, 5)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = b.Cells(i, 6)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = b.Cells(i, 7)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 7) = b.Cells(i, 8)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 8) = b.Cells(i, 9)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 9) = b.Cells(i, 10)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 10) = b.Cells(i, 11)
End If
Next i
Exit Sub
Me.ListBox1.ColumnWidths = "20 pt;120 pt;60 pt;60 pt;50 pt;60 pt;130 pt;130 pt;65 pt;65 pt;65 pt;30 pt"
End Sub

Private Sub UserForm_Initialize()
Sheets("RUTAS").Visible = False
Sheets("RUTAS").Activate
For i = 1 To 12
Me.Controls("Label" & i) = Cells(1, i).Value
Next i
With ListBox1
.ColumnCount = 12
.ColumnWidths = "20 pt;120 pt;60 pt;60 pt;50 pt;60 pt;130 pt;130 pt;65 pt;65 pt;65 pt;30 pt"
End With

End Sub

Y esta es la fórmula para actualizar datos y pasa lo mismo las horas se vuelven decimales

Private Sub ACTUALIZAR_Click()
For i = 1 To 12
ActiveCell.Offset(0, i - 1).Value = Me.Controls("TextBox" & i).Value
Next i

End Sub
Private Sub UserForm_Initialize()

For i = 1 To 12
Me.Controls("TextBox" & i).Value = ActiveCell.Offset(0, i - 1).Value
Next i

End Sub

la fecha al actualizar se me invierte 05/01/2017 y al actualizar se graba 01/05/2017