Listbox ta seçme komutu düzeltmesi

[northcyprus]

Sayın hocalarım ve Sayın arkadaşlar.

Aşşağıdaki komutta listbox1 den sadece 1 tane satırdan 1 tane ürün silebiliyorum komutta neyi değişmemiz gerekir ki 1 ve 1 den çok değişik satırdaki ürünleri seçip silebilmek için ?

Private Sub GÖNDER_Click()
If listbox1.ListIndex >= 0 Then
cevap = MsgBox("Ürün Silinecek ... Emin misiniz ?", vbYesNo, "GÖNDER ONAYI")
If cevap = vbYes Then
Yeni_mi = True
Silinecek_Satir = listbox1.ListIndex + 1
Sheets("sayfa1").Rows(Silinecek_Satir).Delete

End If
End If

Sheets("sayfa2").Select
Range("A1").Select


End Sub

 

[Korhan Ayhan]

Merhaba,

İlk olarak Listbox nesnesinin özelliklerinden çoklu satır seçme özelliğini aktif yapmalısınız. Sonra silme kodunuzda seçili satırları döngü kullanarak silebilirsiniz. Forumda örnekler var. Arama yapınız.

 

[northcyprus]

sayın hocam cevabınız için teşekür ediyorum teşekür ediyorum listbox un multi page seçenegini seçtim fakat formüldeki döngüyü formda bulamadığım için konu açtım kusura bakmayın ben biraz daha formda arayım o zaman tekrardan teşekür ediyorum....

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[northcyprus]

sayın hocam ben office 2003 kullanıyorum bunu açamadım..

 

[Orion1]

sayın hocam ben office 2003 kullanıyorum bunu açamadım..

dosyayı 2003 formatında yükledim.