<div>
I assume it's actually column 14 then? ;)
</div>


I assume it's actually column 14 then? ;)

<div>
perefect &nbsp;Thanks very much
</div>


<div>
You're welcome and I'm glad I was able to help.<br />
<br />
Marty - MVP 2009 to 2012
</div>


You're welcome and I'm glad I was able to help.

Marty - MVP 2009 to 2012

<div>
<div class="content wysiwyg-content">
excel 2010 vba<br />
<br />
I have a listbox on a userform<br />
<br />
I'm filling the listbox via getrows method<br />
<br />
<br />
What I need:<br />
<br />
Specifically in column 13 in the listbox.<br />
I may have values such as : &nbsp;&quot;WD&quot; &quot;DV&quot; &nbsp;&quot;WV&quot; &quot;WG&quot;<br />
<br />
<br />
I want to press a command button and remove all the rows that have these value in <br />
column13 <br />
<br />
If no items exist in the listbox meeting this criteria then msbgox &quot;No Items To Delete&quot;<br />
<br />
<br />
I have to keep pressing the command button until all are deleted doing this ?<br />
Dim i As Long<br />
With Me.ListBox1<br />
&nbsp; &nbsp; For i = 0 To .ListCount - 1<br />
&nbsp; &nbsp; &nbsp; &nbsp; If .List(i, 13) = &quot;DG&quot; Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .RemoveItem i<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Exit For ' &nbsp;if i remove this line then my listcount gets messed up and i get errors<br />
&nbsp; &nbsp; &nbsp; &nbsp; End If<br />
&nbsp; &nbsp; Next<br />
End With<br />
<br />
<br />
<br />
<br />
<br />
Thanks<br />
fordraiders
</div>
</div>


excel 2010 vba

I have a listbox on a userform

I'm filling the listbox via getrows method


What I need:

Specifically in column 13 in the listbox.
I may have values such as :  "WD" "DV"  "WV" "WG"


I want to press a command button and remove all the rows that have these value in 
column13 

If no items exist in the listbox meeting this criteria then msbgox "No Items To Delete"


I have to keep pressing the command button until all are deleted doing this ?
Dim i As Long
With Me.ListBox1
    For i = 0 To .ListCount - 1
        If .List(i, 13) = "DG" Then
            .RemoveItem i
            Exit For '  if i remove this line then my listcount gets messed up and i get errors
        End If
    Next
End With





Thanks
fordraiders

remove specific items from a listbox

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