Lİstbox Multİselect ÖzellİĞİ İle Sİlme İŞlemİ

[mfn562]

arkadaşlar ekte yer alan dosyada bulunan listbox items leri, listbox'ın multi select özelliğini kullanarak tamamını aynı anda silmek istiyorum fakat hata veriyor. yardımcı olursanız sevinirim.

şimdiden ilgilenen arakadaşlara teşekkürler.

 

[mfn562]

bu işte yardımcı olabilecek yokmu arkadaşlar.

 

[Seyit Tiken]

Acaba soruyu yeterince izah etmişmiyim gibi bir kaygınız oldu mu?

 

[Recep İpek]

Veya aşağıdaki linkler işinize yarayabilir mi?

http://www.excel.web.tr/showthread.php?t=32925

http://www.excel.web.tr/showthread.php?t=35652

 

[Ferhat Pazarçevirdi]

Ekteki dosyayı inceleyiniz.

 

[hayalbert]

elinize sağlık epeydir düşünüp de el atamadığım bir sorun halloldu, ben "on error resume next" ile aştım gerçi ama eğreti işler hep patlamaya hazır bomba olduğundan gene de bir fikrinizi almak istiyorum

benim yazdığım kod aşağıdaki gibi

Private Sub CommandButton100_Click()
Application.ScreenUpdating = False
Dim i, say, x As Integer
Windows("database").Activate
say = WorksheetFunction.CountA(Range("b:b")) + 1
For i = 0 To ListBox1.ListCount
x = say - i
On Error Resume Next
If ListBox1.Selected(i) = True Then Sheets("database").Cells(x, 25).Value = ComboBox11.Text
Next
Sheets("sayfa1").Select
Application.ScreenUpdating = True
End Sub

bu kodda error satırı olmadığında
ekli jpg deki mesaj geliyor sorun ne olabilir ?

 

[veyselemre]

For i = 0 To ListBox1.ListCount -1

olabilir mi?

 

[hayalbert]

doğru
teşekkür ederim