Corrección código listbox con filtros avanzados

4. Corregí el listbox para que ahora cargue 20 columnas y aparezcan los títulos.

Pregunta Dante amor.

saludos.

1 respuesta

Respuesta
1

Este es el código para cargar el listbox

Private Sub ComboBox1_Change()
'Mod.Por.Dante Amor
    Application.ScreenUpdating = False
    Hoja6.Cells.Clear
    Hoja6.[A1] = "SUSTANCIA ACTIVA"
    Hoja6.[A2] = ComboBox1
    Filtrado
    ListBox1.RowSource = Hoja6.Name & "!B2:U" & Hoja6.Range("I" & Rows.Count).End(xlUp).Row
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas