Listboxla Süzme İşlemi Online Eğitimler sadece 49,99 TL. Hem de ikinci eğitim ücretsiz! Makroyu Kopyala 'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. Private Sub CommandButton1_Click() Range("a1").AutoFilter Field:=1 End Sub Private Sub ListBox1_Change() Range("A1").AutoFilter Field:=1, Criteria1:=ListBox1.Value End Sub Private Sub UserForm_Initialize() Sheets("Sayfa9").Activate a = WorksheetFunction.CountA(Range("A:A")) For i = 2 To a ListBox1.AddItem Cells(i, 1) Next ListBox1.ColumnCount = 4 ListBox1.ColumnWidths = "35,35,35,35" ListBox1.RowSource = "Sayfa9!a1:d5" End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Range("a1").AutoFilter Field:=1 Selection.AutoFilter End Sub Bu makro ile ilgili sorun bildir Bu makro çalışmıyor. Kodlarda bir hata var. Diğer Hata ile ilgili görüşlerinizi aşağıdaki kutuya yazabilirsiniz. Hata bildir TÜM MAKROLAR Youtube Kanalımız Aşağıdaki makrolar işinize yarayabilir. Benzer Sonuçlar NoMakro Adı 1 listboxla süzme işlemi 2 yazdırmak için süzme şart olsun 2 3 textboxtaki veriye göre süzme işlemi 4 comboboxtaki bilgilerin eşit olmasi halinde listboxlanmasi 5 menü çubuğunun silinmesi ve özel bir menünün oluşturulması 6 listboxla dosya açma kapama silme 7 Dosyayı kapatmadan önce "Kaydetmek İstiyor musunuz?" sorusunu engelleme ve her kapatma işleminde otomatik olarak kaydetme 8 multipage zemin rengi 9 veri değiştirirken uyarı alma 10 belli sayfada true-false kontrolü 11 hücrede bir sonraki ayın gün sayısı kadar gün ilave etme 12 forma otomatik resim getirme 13 2 listboxlar arası veri taşıma 14 exceli kapatma işlemi 15 2 listboxlar arası veri taşıma 16 rakamlarin soluna sifir eklenmesi 17 makroda bir veya birden çok değer döndürmek 18 hücrede isim küçük harfli ise o satırı silme 19 ehatalıysa formülünün izahı 20 sayfa sekmelerine koruma atamak