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

1 respuesta

Respuesta
1

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 celd

donde 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]

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas