Fill listbox after autofilter has been applied

[bdn435]

Hi there,

I'm looking for some code that would allow me to fill a listbox on a userform with the resulting columdata (column D) after the columns to the left have been autofiltered.

Anyone who could be of assistance, please ?

Thanks in advance
Eric

[colofnature]

Are you applying the autofilter in the code of your form? If so, use something like

 for each c in intersect([d:d], activesheet.usedrange)
    listbox1.additem c.value
next

If that's not clear attach the spreadhseet and I'll be more explixit.


HTH
Col

[bdn435]

Thanks, however when I apply the code the header of the column is included (which it should not) and the listbox includes all values in the column, while only the visibles in d:d after the autofilter has been applied (in column a,b and c) should be shown. And yes, the autofilter is applied in the code of the form.

Regards - Eric

[rylo]

Eric

Slight mod to the previous code

For Each ce In Intersect(Range("D2:D" & Cells(Rows.Count, 1).End(xlUp).Row), Range("D:D").SpecialCells(xlCellTypeVisible))
    listbox1.AddItem ce.Value
  Next ce

rylo

[bdn435]

Many thanks indeed, works now as intendend !