Cargar en un Listbox con formato de fecha
Necesito que cuando se cargan los datos desde una tabla, que tiene formato de fecha, a un Listbox, se visualicen también en formato de fecha y no como sucede ahora que se visualiza con formato de número.
He intentado las siguientes líneas, pero nada se ha conseguido
Private Sub L_Click()
Application.ScreenUpdating = False
If L.ListIndex = -1 Then Exit Sub
TextBox1 = L.List(L.ListIndex, 1)
ComboBox2 = L.List(L.ListIndex, 2)
TextBox5 = CDate(L.List(L.ListIndex, 5))
'y también he probado con esta:
'TextBox5 = Format(L.List(L.ListIndex, 5), "dd/mm/aaaa")
'CDate
End Sub
Muestra nos la línea que usa para carga los datos al listbox
Yo este procedimiento para carga los datos
uf = Hoja1.Range("a1000000").End(xlUp).Row
For Each celd In Sheets("reporte").Range("A10:A" & uf)
ListBox1.AddItem celd.Value 'col A
ListBox1.List(i, 1) = celd.Offset(0, 1) 'col B
ListBox1.List(i, 2) = celd.Offset(0, 2) 'col C
ListBox1.List(i, 3) = celd.Offset(0, 3) 'col d
ListBox1.List(i, 4) = celd.Offset(0, 4) 'col e
ListBox1.List(i, 5) = Format(celd.Offset(0, 9), "dd-mmm-yy") 'col f
i = i + 1
Next celddonde la lineas ListBox1.List(i, 5) = Format(celd.Offset(0, 9), "dd-mmm-yy") me carga el formato de la fecha asi 15-may-17 en el listbox
Si te silve no olvides valorar para cerrar la pregunta
Gracias por su atención.
Le muestro las líneas para cargar el listbox
Private Sub CargarHoja1()
Application.ScreenUpdating = False
L.Clear
Hoja1.Select
K.RowSource = "A2:I" & Range("A" & Rows.Count).End(xlUp).Row
For x = 0 To K.ListCount - 1
L.AddItem x + 1
cadena = ""
For Y = 0 To K.ColumnCount - 1
L.List(L.ListCount - 1, Y + 1) = K.List(x, Y)
cadena = cadena & K.List(x, Y)
Next
If Not UCase(cadena) Like "*" & UCase(ComboBox6) & "*" Then L.RemoveItem (L.ListCount - 1)
Next
End Sub
Enviame el archivo [email protected]
