Llenar combobox con celdas filtradas

Tengo una duda con lo siguiente. Dentro de una hoja de excel en el cual tengo varios datos, realizo un flitrado por nombre (suponiendo que tenia 500 datos, después del filtrado solo tengo 5).
Y tengo un userform que llena con un commandbutton dichos valores en un combobox, PERO me recupera los 500 y no así solo los 5 que realice con el filtrado.
Estas son las lineas de programación que tengo en el botón que te menciono.
Private Sub CommandButton3_Click()
ComboBox1.Clear
Range("a6").Select
  Do While ActiveCell <> Empty
        ComboBox1.AddItem ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
  Loop
End Sub
Quisiera que me pudieras ayudar en esto por favor, porque estas lineas me carga el combobox1 hasta que encuentre una celda vacía, como hago para que cargue solo las filtradas.

1 Respuesta

Respuesta
1
Te paso un cambio en el código pues deberías primero seleccionar las celdas visibles
Private Sub CommandButton3_Click()
Dim rnCiclo As Range, rnGrupo As Range
Range("$A$6").Select
Range(Selection, Selection.End(xlDown)).Select
Set rnGrupo = Selection.SpecialCells(xlCellTypeVisible)
For Each rnCiclo In rnGrupo
  ComboBox1.AddItem rnCiclo
Next rnCiclo
Range("A1").Select
Set rnCiclo = Nothing: Set rnGrupo = Nothing
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas