Anónimo
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.
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
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