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.
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 ?
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.