Macro para filtrar datos con combobox
Podrian ayudarme a con una macro para filtrar con combobox
Ya tengo el combobox con la lista
Private Sub UserForm_initialize()
Dim fila As Integer, final As Integer, registro As Integer
fila = 3
Do While Hoja12.Cells(fila, 1) <> ""
fila = fila + 1
Loop
final = fila - 1
With Hoja12
For fila = 3 To final
registro = WorksheetFunction.CountIf(.Range(.Cells(3, 1), .Cells(fila, 1)), .Cells(fila, 1))
If registro = 1 Then
ComboBox1.AddItem .Cells(fila, 1)
End If
Next fila
End With
end sub
En el combobox me aparece la lista con los registros repetidos eliminados pero quiero que al hacer el filtro me muestre todos los registros que hay de ese registro seleccionado en el combo.
Ejemplo
En el combo me aparece solo una vez manzanas, pero en la hoja pueden haber muchos registros con ese nombre, entonces al seleccionar manzanas en el combo que me muestre todos los registros ingresados de manzanas sea los que fueren (10, 15, 100 etc)