Excel VBA Yüzde Toleranslı Listeleme

Bu şablon, bir listedeki sayısal değerleri girilen yüzde toleransa göre tarar ve aralığa uyan satırları UserForm üzerindeki ListBox'ta gösterir. Debi (G sütunu) ve basınç (F sütunu) değerleri ayrı ayrı ya da birlikte aranabilir.

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

Dosyanın içeriği​

• ANASAYFA: A1:K215 aralığında test kayıtları bulunur. Sütunlar: Test No, Açık Nozul, Hava, Eksenel Fan, Statik Verim, Gürültü. Bu aralık KAYIT adıyla tanımlıdır (ANASAYFA!$A:$K).
• Sayfa1: Arama düğmesinin bulunduğu sayfadır. Aramaya uyan satırlar bu sayfanın A:G sütunlarına kopyalanır ve ListBox buradan beslenir.

Örnek tolerans hesabı​

Aranan değer 100.000 ve tolerans %35 ise listeleme aralığı yaklaşık 74.074 ile 135.000 arasındadır. Üst sınır değer ile (1 + tolerans/100) çarpılarak, alt sınır ise değer bu çarpana bölünerek bulunur. Sınır değerlerin kendisi listeye alınmaz, yalnızca aralığın içindeki değerler listelenir.

Makrolar​

• CommandButton1_Click (Sayfa1): Sayfadaki düğmeye basıldığında UserForm1 açılır.
• CommandButton4bul_Click (UserForm1): Toleranslı arama işlemini yapar. Önce Sayfa1 üzerindeki A2:G1000 aralığı temizlenir. Seçilen seçeneğe göre üç ayrı arama çalışır:
• OptionButton1: Yalnızca debi (G sütunu) değerini ve tolerans oranını kullanır.
• OptionButton2: Yalnızca basınç (F sütunu) değerini ve tolerans oranını kullanır.
• OptionButton3: Debi ve basınç koşullarının ikisini birlikte sağlayan satırları listeler.

Gerekli kutular boşsa uyarı mesajı verilir ve işlem durdurulur. Koşula uyan satırların A:G sütunları Sayfa1'e kopyalanır, ardından ListBox11 sütun olarak ayarlanıp bu aralıkla doldurulur. Uyan kayıt yoksa "Veri yok" uyarısı çıkar. Kodda dosya silme ya da dışarıya bağlantı işlemi bulunmaz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1'deki düğmeye tıklayarak UserForm'u açın.
3. Arama türünü seçin: debi, basınç ya da debi ve basınç.
4. Aranacak değeri ve yüzde tolerans oranını ilgili kutulara girin.
5. Bul düğmesine basın; uyan satırlar ListBox'ta listelenir.

Arama, Sayfa1 üzerindeki veriyi tarar; kendi kayıtlarınızı kullanmak için Sayfa1'in A:G sütunlarındaki verileri değiştirmeniz gerekir.