mostrar combobox desde filtro

Hola Fredy,

Si pones el siguiente codigo en el modulo VBA del formulario UserForm1 que
tiene un ComboBox1, al inicializarse el formulario se llenara el combobox
con los valores filtrados de la primera columna de la tabla de la hoja
activa.

Saludos,
KL


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.ComboBox1.AddItem c.Value
Next c
End Sub