ListBox'dan veri silme

[bmutlu966]

Private Sub ListBox1_Click()
If ListBox1.ListCount < 1 Then Exit Sub
ListBox2.AddItem ListBox1.Value
End Sub

kodu ile ListBox1 den ListBox2 ye veri alıyorum. Aşağıdaki kod ile de ListBox2 ye yanlışlıkla attığım veriyi siliyorum. Ancak ilk veriyi sildikten sonra aynı satıra denk gelen 2. veriyi silmek için tıkladığımda silmiyor seçiyor. Bunu yapmaması için aşağıdaki kodu nasıl düzenlemem gerekiyor?

Private Sub ListBox2_Click()
On Error Resume Next
ListBox2.RemoveItem ListBox2.ListIndex
End Sub

 

[Taruz]

Merhaba..

Bu şekilde deneyiniz..:

for i= ListBox2.listcount - 1 to 0 step -1 
    if ListBox2.selected(i) then ListBox2.removeitem i 
next i

Düzenleme..: Yeni fark ettim; soruyu Access olarak algılamıştım ama Excel için de aynı mantık olması gerekir..

 

[bmutlu966]

İlgin için teşekkürler ancak olmadı.

 

[bmutlu966]

ListBox da uzman olan arkadaşlardan bir çözüm yokmu acaba...

 

[Taruz]

Yardımcı olmakta ısrar ediyorum..

Bu prosedürü kod sayfasına yerleştiriniz..:

Private Sub RemoveItem()
  With ActiveControl
    If .Selected(.ListIndex) Then .RemoveItem .ListIndex
  End With
End Sub

Liste kutusunun (Listbox2) MouseUp (Fare Tuşu Bırakılırken) olayında kullanınız..:

Private Sub ListBox2_MouseUp(ByVal Button As Integer, _
         ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
RemoveItem
End Sub

 

[bmutlu966]

Yardımcı olmakta ısrar ediyorum..

Bu prosedürü kod sayfasına yerleştiriniz..:

Private Sub RemoveItem()
  With ActiveControl
    If .Selected(.ListIndex) Then .RemoveItem .ListIndex
  End With
End Sub

Liste kutusunun (Listbox2) MouseUp (Fare Tuşu Bırakılırken) olayında kullanınız..:

Private Sub ListBox2_MouseUp(ByVal Button As Integer, _
         ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
RemoveItem
End Sub

Compile Error : Sub or Function or Defined hatası verdi. Bence sonuca çok yaklaştın. Bana kafayı yedirtti.

 

[Taruz]

Prosedürde hata olduğunu düşünmüyorum.. Test ederek önerdim.. Uygulamada sıkıntı yaşamış olabilirsiniz.. Basit bir dosya eklerseniz üstünde deneyebiliriz..

 

[Husgvarna]

kodu ile ListBox1 den ListBox2 ye veri alıyorum. Aşağıdaki kod ile de ListBox2 ye yanlışlıkla attığım veriyi siliyorum. Ancak ilk veriyi sildikten sonra aynı satıra denk gelen 2. veriyi silmek için tıkladığımda silmiyor seçiyor. Bunu yapmaması için aşağıdaki kodu nasıl düzenlemem gerekiyor?

Merhaba.
Aşağıdaki gibi deneyin.

Private Sub ListBox2_Click()
On Error Resume Next
ListBox2.RemoveItem ListBox2.ListIndex
If ListBox2.ListIndex > 0 Then ListBox2.Selected(0) = True
If ListBox2.ListIndex = 0 Then ListBox2.Selected(0) = False

End Sub

 

[Excelmy]

Private Sub ListBox1_Click()
If ListBox1.ListCount < 1 Then Exit Sub
ListBox2.AddItem ListBox1.Value
End Sub

kodu ile ListBox1 den ListBox2 ye veri alıyorum. Aşağıdaki kod ile de ListBox2 ye yanlışlıkla attığım veriyi siliyorum. Ancak ilk veriyi sildikten sonra aynı satıra denk gelen 2. veriyi silmek için tıkladığımda silmiyor seçiyor. Bunu yapmaması için aşağıdaki kodu nasıl düzenlemem gerekiyor?

Private Sub ListBox2_Click()
On Error Resume Next
ListBox2.RemoveItem ListBox2.ListIndex
End Sub

Sayın bmutlu966,

Listbox'da DblClick olayını kullanabilirsiniz.

Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox2.ListIndex < 0 Then: Exit Sub
ListBox2.RemoveItem ListBox2.ListIndex
End Sub

 

[bmutlu966]

Taruz arkadaşım basit bir dosya hazırladım. Çalıştırdığınızda sizin kodlar devrede olacak ve hata verecek. Ben listBox2 için yazdığım kodları da text olarak ekledim.

 

[halit3]

Basit bir dosya hazırladım. Çalıştırdığınızda sizin kodlar devrede olacak ve hata verecek. Ben listBox2 için yazdığım kodları da text olarak ekledim.

Aslında kodların hepsi iş yapıyor burada listbox2 yi kullanırken Click (birkere tıklama)olayı yerine DblClick (iki kere tıklama) kullanmak daha doğrusu

Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox2.ListIndex >= 0 Then ListBox2.RemoveItem ListBox2.ListIndex
End Sub

 

[bmutlu966]

Arkadaşlar hepinizin ilgisi için teşekkürler. Husgvarna arkadaşımızın kodları duble click olayına girmeden sorunu çözdü. Çok teşekkürler.