Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Mostrar datos filtrados en un listbox

14/01/2007 - 21:59 por ~ jose ~ | Informe spam
Ayuda Hacer una pregunta
Hola muy buenas,
ya se que este caso se ha planteado en este foro pero no logro hacerlo
funcionar.
Tengo un formulario que contiene un listbox y un textbox.
Quisiera que al insertar texto en el textbox me muestre a tiempo real
los datos filtrados en el listbox.
El listbox se carga con este código en el evento "Initialize":
ListBox1CuadroTitulo.List = Range("d11:d" &
Range("d65536").End(xlUp).Row).Value

y el textbox contiene este código en el evento "Change":
Call filtro
With ListBox1CuadroTitulo
.Clear
.List = Range("d11:d" &
Range("d65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Value
End With

La macro filtro es:
Range(("d10"), Range("d65536").End(xlUp)).AdvancedFilter
Action:=xlFilterInPlace, CriteriaRange:= _
Range("D10:D11"), Unique:=False

Porque no me muestra el listbox los datos filtrados?

Gracias un saludo,
jose
email Siga el debateRespuesta 5 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 ~ jose ~
14/01/2007 - 23:17 | Informe spam
Hola otra vez,
he encontrado este código para que me muestre los datos filtrados en
el listbox pero solo funciona si el filtro es "Autofiltro", quisiera
modificar el código para que me muestre el resultado con "Filtro
Avanzado"

Private Sub UserForm_Initialize()
Dim c As Range, rng As Range
With ActiveSheet.AutoFilter.Range
Set rng = .Offset(1, 0). _
Resize(.Rows.Count - 1, .Columns.Count)
End With
For Each c In rng.Columns(1).Cells
If c.Value <> "" And c.EntireRow.Hidden = False Then _
UserForm1.ListBox1CuadroTitulo.AddItem c.Value
Next c
End Sub

Gracias.

~ jose ~ ha escrito:

Hola muy buenas,
ya se que este caso se ha planteado en este foro pero no logro hacerlo
funcionar.
Tengo un formulario que contiene un listbox y un textbox.
Quisiera que al insertar texto en el textbox me muestre a tiempo real
los datos filtrados en el listbox.
El listbox se carga con este código en el evento "Initialize":
ListBox1CuadroTitulo.List = Range("d11:d" &
Range("d65536").End(xlUp).Row).Value

y el textbox contiene este código en el evento "Change":
Call filtro
With ListBox1CuadroTitulo
.Clear
.List = Range("d11:d" &
Range("d65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Value
End With

La macro filtro es:
Range(("d10"), Range("d65536").End(xlUp)).AdvancedFilter
Action:=xlFilterInPlace, CriteriaRange:= _
Range("D10:D11"), Unique:=False

Porque no me muestra el listbox los datos filtrados?

Gracias un saludo,
jose

Preguntas similares

 

Busqueda sugerida :