ListBox'tan seçilen veriyi silme

[deniz.aktan]

Excel sayfamda ürün veri listem var bu listeyi listbox'a aktardım. Listbox'tan seçtiğim ürünleri excel sayfamdan silmek istiyorum ancak kodunu yazamadım. Şuan sürekli ilk satırımdaki ürün silinmekte farklı ürünleri seçsem de hep ilk satırda hangi ürün varsa o siliniyor. Listbox'tan seçtiğim ürünü silmeme yardımcı olursanız sevinirim.

 

[cems]

Nereden neyi silmek istediğinize, ayrıca sayfa üzerinde mi form üzerinde mi çalıştığınıza dair bir örnek eklerseniz iyi olur.

 

[deniz.aktan]

Nereden neyi silmek istediğinize, ayrıca sayfa üzerinde mi form üzerinde mi çalıştığınıza dair bir örnek eklerseniz iyi olur.

Listboxta yer alan hammaddeyi seçip hammadde adlı sayfadan seçtiğim hammadde satırını silmek istiyorum.
Teşekkürler.

 

[cems]

Dosyanızda listbox1 e veriyi nasıl yüklediğinize dair bir yöntem göremedim. Bildiğim kadarı ile listbox sayfada olan verinin bir ayna yansımasıdır yani pasif bir gereçtir. Ayrıca listboxta gereksiz ayarlar da var, solunda işaretleme kutusu ve çoklu satır seçme özelliği tam dosyada işe yarar mı bilmiyorum ama bu dosyada sorun çıkarıyor.

Sil tuşunun çalışması için önce bul tuşu olması ve silinecek veriyi bundan sonra işaretleyip silmek gerekir.

Bu hali ile

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Selection.EntireRow.Delete
End Sub

ile listboxtan satır siliniyor ama , sayfada silmiyor, zira sayfadan kopuk bir listbox var.

Bunu kendi dosyanızda bir deneyin, satıra çift tıklayınca her iki ortamda silmesi gerçekleşebilir, emin değilim.

 

[deniz.aktan]

Dosyanızda listbox1 e veriyi nasıl yüklediğinize dair bir yöntem göremedim. Bildiğim kadarı ile listbox sayfada olan verinin bir ayna yansımasıdır yani pasif bir gereçtir. Ayrıca listboxta gereksiz ayarlar da var, solunda işaretleme kutusu ve çoklu satır seçme özelliği tam dosyada işe yarar mı bilmiyorum ama bu dosyada sorun çıkarıyor.

Sil tuşunun çalışması için önce bul tuşu olması ve silinecek veriyi bundan sonra işaretleyip silmek gerekir.

Bu hali ile

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Selection.EntireRow.Delete
End Sub

ile listboxtan satır siliniyor ama , sayfada silmiyor, zira sayfadan kopuk bir listbox var.

Bunu kendi dosyanızda bir deneyin, satıra çift tıklayınca her iki ortamda silmesi gerçekleşebilir, emin değilim.

teşekkür ederim, bul tuşu ile tekrar deneyeceğim

 

[ÖmerBey]

Listboxta yer alan hammaddeyi seçip hammadde adlı sayfadan seçtiğim hammadde satırını silmek istiyorum.

Merhaba,
Bul tuşuna ihtiyaç yok. Mevcut dosyanız içn aşağıdaki kodu deneyiniz.

Private Sub hammadde_cikar_Click()
For a = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(a) Then
        ara = ListBox1.List(a, 0)
        Sheets("Hammadde").Range("A:A").Find(what:=ara, lookat:=xlWhole).EntireRow.Delete
    End If
Next
End Sub

 

[deniz.aktan]

Merhaba,
Bul tuşuna ihtiyaç yok. Mevcut dosyanız içn aşağıdaki kodu deneyiniz.

Private Sub hammadde_cikar_Click()
For a = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(a) Then
        ara = ListBox1.List(a, 0)
        Sheets("Hammadde").Range("A:A").Find(what:=ara, lookat:=xlWhole).EntireRow.Delete
    End If
Next
End Sub

çok teşekkür ederim bu şekilde istediğim gibi çalıştı. emeğinize sağlık

 

[mfgo@hotmail.com]

secili olan birden fazla satır var ise nasıl sildirebiliriz

 

[ÖmerBey]

secili olan birden fazla satır var ise nasıl sildirebiliriz

Merhaba,
Deneyiniz...

Private Sub hammadde_cikar_Click()
Dim sil As Range, a As Integer
Set sil = Sheets("Hammadde").Range("A" & Rows.Count)

For a = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(a) Then
        ara = ListBox1.List(a, 0)
        Set sil = Union(sil, Sheets("Hammadde").Range("A:A").Find(what:=ara, lookat:=xlWhole))
    End If
Next
sil.EntireRow.Delete
End Sub

 

[mfgo@hotmail.com]

allah razı olsun

teşekkür ederim
elinize gönlünüze sağlık

 

[ÖmerBey]

Allah hepimizden razı olsun,
İyi çalışmalar...