ListBox'a Kriter Bazlı Listeleme Yapma

Bu dosya, bir UserForm üzerindeki ListBox'a kriter bazlı veri listelemeyi gösteren makrolu bir örnektir. Kullanıcı iki ComboBox'tan kriterleri seçer; Musteri sayfasındaki kayıtlar bu kriterlere göre filtrelenir, sonuç ListBox'ta gösterilir ve tutarların toplamı TextBox'ta "TL" biçiminde yazılır.

Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Musteri: Kaynak veri sayfasıdır. A1:I500 aralığında SIRA ve AVANS başlıkları ile numaralandırılmış kayıtlar bulunur. ComboBox listeleri bu sayfanın B ve C sütunlarından beslenir.
• Rapor: Filtre sonucunun geçici olarak yazıldığı sayfadır. ListBox bu sayfadaki A:D sütunlarını gösterir.
• UserForm1: İki ComboBox, bir ListBox, toplam için bir TextBox ve iki CommandButton içerir.

Makrolar​

• FormAc: UserForm1 formunu açar. Module1 içinde yer alır.
• UserForm_Initialize: Form açılırken TextBox'ı ve Rapor sayfasındaki eski sonucu temizler. ComboBox1 listesini Musteri sayfası B sütunundan, ComboBox2 listesini C sütunundan doldurur.
• CommandButton1_Click: Musteri sayfasına ikinci sütun için ComboBox1, üçüncü sütun için ComboBox2 değerleriyle AutoFilter uygular. Filtrelenen veriyi Rapor sayfasına kopyalar ve filtreyi kaldırır. Kayıt yoksa "Böyle bir veri bulunamadı" mesajı verir. Kayıt varsa ListBox'ı 4 sütunlu olarak Rapor sayfasından doldurur ve D sütununun toplamını TextBox'a yazar.
• TextBox1_Change: Toplam değerini "###,### TL" biçiminde gösterir.
• CommandButton2_Click: Formu kapatır.

Makrolar dosya silme veya dış bağlantı gibi işlem içermez; yalnızca dosya içindeki Musteri ve Rapor sayfaları üzerinde çalışır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 ile FormAc makrosunu çalıştırın.
3. ComboBox1 ve ComboBox2 listelerinden kriterleri seçin.
4. Birinci CommandButton ile listeleme yapın; sonuçlar ListBox'ta, toplam tutar TextBox'ta görünür.
5. İkinci CommandButton ile formu kapatın.

Kendi verinizle kullanmak için Musteri sayfasındaki verileri değiştirmeniz yeterlidir; ComboBox listeleri dolu satır sayısına göre otomatik oluşturulur.