listbox'tan makro ile removeitem yapmak

[xrolexx]

Merhaba arkadaslar,

Bir listbox'tan veri secmeden makro ile removeitem yapmak istiyorum..

Bununla ilgili örnek calismayi ekledim..Orada daha detayli anlattim..

Simdiden cok tesekkürler..

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton1_Click()
Dim i As Long
For i = ListBox3.ListCount - 1 To 0 Step -1
    If ListBox3.Column(1, i) = "lst1" Then ListBox3.RemoveItem (i)
Next i
End Sub

 

[xrolexx]

Emegin icin cok tesekkürler..