Listboxta çoklu seçim silme işlemi

[elvis]

Arkadaşlar; Listboxta, A sütunundaki verilerden çoklu seçim yapılmak suretiyle veriler seçilerek satırın silinmesi sağlanabilir mi? Bu konuda yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[veyselemre]

Ekteki örneği inceleyin,

 

[elvis]

Öncelikle yardımlarınız için teşekkür ediyorum. Bu çalışma istediğim gibi ancak, kodları incelediğim kadarıyla listboxtaki satır sıra sayısına göre işlem yapıyor. Burada; listboxtan süz yapılarak, yine bilgiler çoklu silinebilir mi? Çünkü; süz yapıldığında listboxtaki satır sıra sayısıyla, sayfa üzerindeki satır sıra sayısı birbirini tutmuyor olacak.

 

[veyselemre]

Siz süzme kullandığınız bir örnek ekleyin onun üzerinden gideriz.

 

[millis]

bir soruda ben sorayım

Siz süzme kullandığınız bir örnek ekleyin onun üzerinden gideriz.

Yaptığınız işlem gerçekten güzel olmuş. Yanlız, başlık olan bir sıralamada bu uygulama başlığıda siliyor. Bunu engellemek için yazım içerisinde ne gibi değişiklik yapmak gerekiyor. Saygılarımla.

 

[veyselemre]

Yanlız, başlık olan bir sıralamada bu uygulama başlığıda siliyor. Bunu engellemek için yazım içerisinde ne gibi değişiklik yapmak gerekiyor.

For i = .ListCount - 1 To 1 Step -1

 

[millis]

bir sorun daha

For i = .ListCount - 1 To 1 Step -1

Kusura bakmayın sayın veyselemre; ListBox da seçilen verinin bir üstündeki veriyi siliyor. Bunun nedeni ne olabilir? Saygılarımla

 

[veyselemre]

Örneğinizi ekleyin düzeltelim.

 

[elvis]

Sayın Veyselemre istemiş olduğunuz çalışmayı ekledim.
Sizin örneğinizi kendime göre uyarladım. Burada; Combobox ile kurum seçimi yapıldığında, listbox'a aktarılan fatura numaralarından hangilerini seçersem sadece o verilerin sayfa1'den silinmesini istiyorum. Bakabilirseniz memnun olurum. İyi çalışmalar.

 

[veyselemre]

1-2 gün önce yaptığım bir örneğin üzerinde sizin istediğinizi yaptım.
Burda listbox a veriler alınırken 5. sütuna satır numaraları da alınmakta,
seçilenler bu satır numaralarına göre silinmekte. Ayrıca sizin örneğinizde A ve B sütununda arama
yaptırılarakta işlem yaptırılabilir.

 

[millis]

sorun olan ekli dosya

1-2 gün önce yaptığım bir örneğin üzerinde sizin istediğinizi yaptım.
Burda listbox a veriler alınırken 5. sütuna satır numaraları da alınmakta,
seçilenler bu satır numaralarına göre silinmekte. Ayrıca sizin örneğinizde A ve B sütununda arama
yaptırılarakta işlem yaptırılabilir.

birkaç konu önce bir sorun izah etmiştim. ListBox da seçilen verinin üzerindeki veriyi siliyor diye. Şimdi örnek dosyayı gönderiyorum.

 

[veyselemre]

Sayın millis, kodlarınızı aşağıdaki şekilde değiştirin.

Private Sub CommandButton3_Click()
    On Error Resume Next
        Sheets("URALIS").Select
        Dim col As New Collection
        With ListBox1
            For i = .ListCount - 1 To 0 Step -1
                If .Selected(i) Then
                    say = say + 1
                    col.Add i + 2
                End If
            Next i
        If say = 0 Then
            MsgBox " Seçili veri bulunamadı "
            Else
            If MsgBox(say & " adet satırı silmek istiyormusunuz?", vbYesNo) = vbYes Then
                For i = 1 To col.Count
                    Rows(col.Item(i)).Delete
                Next i
                .RowSource = ("A2:I" & [a65536].End(3).Row)
            End If
        End If
    End With
    Set col = Nothing
End Sub

 

[millis]

Saygılar

Sayın millis, kodlarınızı aşağıdaki şekilde değiştirin.

Private Sub CommandButton3_Click()
    On Error Resume Next
        Sheets("URALIS").Select
        Dim col As New Collection
        With ListBox1
            For i = .ListCount - 1 To 0 Step -1
                If .Selected(i) Then
                    say = say + 1
                    col.Add i + 2
                End If
            Next i
        If say = 0 Then
            MsgBox " Seçili veri bulunamadı "
            Else
            If MsgBox(say & " adet satırı silmek istiyormusunuz?", vbYesNo) = vbYes Then
                For i = 1 To col.Count
                    Rows(col.Item(i)).Delete
                Next i
                .RowSource = ("A2:I" & [a65536].End(3).Row)
            End If
        End If
    End With
    Set col = Nothing
End Sub

Veyselemre, Çok teşekkür ediyorum. Emeğinize ve bilginize sağlık, saygılarımı sunarım.

 

[elvis]

Sayın Veyselemre;
Eklediğim dosyada verilerin silme işlemi ancak userform kapandığı zaman gerçekleşiyor. Silme işleminin userformu kapatmadan aynı anda gerçekleşmesi için ne yapılması gerekir. Sadece bu konuda yardımınızı bekliyorum.

 

[mfn562]

1-2 gün önce yaptığım bir örneğin üzerinde sizin istediğinizi yaptım.
Burda listbox a veriler alınırken 5. sütuna satır numaraları da alınmakta,
seçilenler bu satır numaralarına göre silinmekte. Ayrıca sizin örneğinizde A ve B sütununda arama
yaptırılarakta işlem yaptırılabilir.

elvis hocam başta olmak üzere emeği geçen arkdaşlardan allah razı olsun.
yaklaşık olarak 1 haftadır bunun için gezmediğim ingilizce sayfalarda dahil olmak üzere web sayfası kalmadı. son olarak ümidimi kesmiştim ki elvis hocam yetiştin hızır gibi.

 

[mfn562]

Siz süzme kullandığınız bir örnek ekleyin onun üzerinden gideriz.

veysel emre kardeş allah senden de razı olsun. Allah ne muradınız varsa versin

 

[onurcan1979]

Linkler hep ölü bu konu kapatıldığı içinmi yoksa uzun süre beklediği içinmi linkler ölüyor bunu anlamış değilim

 

[chngrcn]

Linkler hep ölü bu konu kapatıldığı içinmi yoksa uzun süre beklediği içinmi linkler ölüyor bunu anlamış değilim

Evet konuyu bende merak ettim, fakat linkler hep ölü.. ilgili arkdaslar güncelleyebilir mi acaba ? saygılar..

 

[Korhan Ayhan]

Merhaba,

Arkadaşlar konu 2007 yılında açılmış bir konu. Daha önce foruma yapılan saldırıda ekli dosyalar silinmişti. Bu sebeple linklere ulaşamıyorsunuz.

Konu içinde kodlar verilmiş. Bu kodları alıp kendi dosyalarınıza uyarlayabilirsiniz. Eğer zorlanıyoranız yeni konu açarak yardım talebinde bulunabilirsiniz.