<div>
see this link<br />
there are some examples<br />
<br />
<a href="http://www.excelforum.com/excel-programming/782779-show-only-visible-cells-rows-in-listbox.html" rel="ugc">http://www.excelforum.com/excel-programming/782779-show-only-visible-cells-rows-in-listbox.html</a>
</div>


see this link
there are some examples

http://www.excelforum.com/excel-programming/782779-show-only-visible-cells-rows-in-listbox.html [http://www.excelforum.com/excel-programming/782779-show-only-visible-cells-rows-in-listbox.html]

<div>
Cheers, thats the one i needed!<br />
<br />
Seamus
</div>


<div>
<div class="content wysiwyg-content">
Hi,<br />
<br />
I have filtered a list for unique entries only, but my code for bring that list into a list box still picks up the hidden rows<br />
<br />
Can i change the below code to only import visible entries<br />
<br />
Thanks<br />
Seamus<br />
<br />
Private Sub UserForm_Activate()<br />
<br />
Dim j As String<br />
&nbsp; &nbsp; <br />
&nbsp; &nbsp; j = 2<br />
&nbsp; &nbsp; Do While Sheets(&quot;Sheet1&quot;).Cells(j, 1).value<br />
&nbsp; &nbsp; &nbsp; &nbsp; j = j + 1<br />
&nbsp; &nbsp; Loop<br />
&nbsp; &nbsp; <br />
&nbsp; &nbsp; Me.ListBox1.RowSource = &quot;Sheet1!Q2:Q&quot; &amp;&nbsp;(j - 1)<br />
<br />
<br />
<br />
End Sub
</div>
</div>


Hi,

I have filtered a list for unique entries only, but my code for bring that list into a list box still picks up the hidden rows

Can i change the below code to only import visible entries

Thanks
Seamus

Private Sub UserForm_Activate()

Dim j As String
    
    j = 2
    Do While Sheets("Sheet1").Cells(j, 1).value
        j = j + 1
    Loop
    
    Me.ListBox1.RowSource = "Sheet1!Q2:Q" & (j - 1)



End Sub

List box - only visible entries

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.