Userformda olan kodu çalıştırma hk.

[kemal turan]

Merhaba,
Kullandığım bir userform içerisinde listbox a farklı krıterlerde filtreleme yapıyorum.
Filtreleme yapan her koda ayrı isimler vererek nesnelerin change olaylarına bağlı olarak çalıştırıyorum.
Filtrelenen verilerde listboxa çift tıklayarak seçilen satırı siliyorum.
İsteğim;
En son seçilen filtreleme kodunu çalıştırıp silinen verinin silindiğini listboxda görmek istiyorum.
Silme işlemi bittikten sonra en son seçilen filtreleme kodunu nasıl çalıştırabilirim.
En son çalışan kodun adını hücreye veya userformdaki nesneye yazdırıp tetiklemeye çalıştım olmadı.
Yardımlarınız için teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

ListBox1.RemoveItem komutunu araştırınız.

 

[kemal turan]

Merhaba Korhan Hocam,
Aşağıdaki kodu yabancı bir siteden alıntı yaparak sorunu çözdüm.
Selametle kalınız.

Sub yenıle()
Dim i As Long
    Dim rowsList As String
    For i = ListBox1.ListCount - 1 To 0 Step -1
        If ListBox1.Selected(i) Then
            ListBox1.RemoveItem i
        Else
            rowsList = rowsList & i + 1 & " " '<-- update the rows to be confirmed
        End If
    Next i
  End Sub