No consigo limpiar listbox excel-vba
Llevo un tiempo atascado en este punto y al final he decidido recurrir a los sabios.
Mediante un botón aplico un filtro en una hoja de excel para poder llenar un listbox.
Pero al intentar limpiar el contenido del listbox mediante otro botón, no consigo hacerlo.
Lo he intentado con códigos encontrados por la red, como rowsource="", itemclear, etc...
Pero no doy con la tecla.
Os adjunto el código del botón que aplica el filtro, por si me podéis decir la manera que usaríais vosotros para limpiar el listbox.
Private Sub btnBuscar_Click()
On Error Resume Next
ultimafila = Application.WorksheetFunction.CountA(Range("A:A"))
fechainicio = dtpInicioFecha
fechafin = dtpFinFecha
If fechafin < fechainicio Then
MsgBox ("La fecha de inicio no puede ser mayor a la fecha final"), vbCritical, "AVISO"
Exit Sub
End If
Hoja1.AutoFilterMode = False
For i = 2 To ultimafila
fechacelda = CDate(Hoja1.Cells(i, 2).Value)
If fechacelda >= fechainicio And fechacelda <= fechafin Then
Me.lstPresupuestosFiltrados.AddItem Hoja1.Cells(i, 1)
Me.lstPresupuestosFiltrados.List(Me.lstPresupuestosFiltrados.ListCount - 1, 1) = Hoja1.Cells(i, 2)
End If
Next i
End Sub
2 Respuestas
Veo que estás usando listbox mira este link
https://www.programarexcel.com/2018/12/como-filtrar-por-cliente-rango-de_7.html https://www.programarexcel.com/2018/12/como-filtrar-por-cliente-rango-de_7.html
Bueno, la verdad es que estoy alucinando. Tengo la sensación de que ya probé esa sentencia, pero debo estar equivocado, pues ha funcionado perfectamente.
Muchísimas gracias, Adiel
Bien me alegra saludos!