VBA ile Otomatik Olarak DÜŞEYARA Kullanma

Bu dosya, DÜŞEYARA ile yapılan aramanın formül yerine VBA koduyla nasıl yapılacağını gösteren temel bir örnektir. Sayfa2'de A sütunundaki bir hücreye isim yazılıp hücre tekrar seçildiğinde, ismin yanındaki sütunlara Sayfa1'deki karşılık gelen değerler otomatik olarak getirilir.

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

Dosyanın içeriği​

• Sayfa1: A1:C4 aralığında veri listesi bulunur. A sütunu isimleri, diğer sütunlar isme bağlı bilgileri tutar.
• Sayfa2: Arama alanıdır. Başlıklar ADI ve KİLO olarak hazırlanmıştır; A2 hücresinde örnek olarak Mehmet, C2 hücresinde 60 değeri yer alır.
• Dosyada Veri adlı bir tanımlı ad vardır; Sayfa1!$A$2:$A$11 aralığını gösterir.

Dosyada çalışma sayfası formülü yoktur; arama işlemi tamamen makro ile yapılır.

Makrolar​

Sayfa2'nin kod bölümünde Worksheet_SelectionChange olayı tanımlıdır. Sayfada seçim her değiştiğinde otomatik çalışır, ayrıca bir düğmeye basmak gerekmez.

• Seçilen hücre A sütununda değilse (Target.Column > 1) kod hiçbir işlem yapmadan çıkar.
• Sayfa1'deki A2:A4 aralığı tek tek taranır. Aktif hücredeki değer bu aralıktaki bir isimle eşleşirse, o ismin yanındaki B ve C sütunu değerleri aktif hücrenin sağındaki ilk iki hücreye yazılır.
• Aktif hücre boşsa, sağındaki iki hücre temizlenir.
• Hata oluşursa kod sessizce sonlanır.

Kodda dosya silme ya da dış bağlantı gibi işlem bulunmaz; yalnızca iki sayfadaki hücreleri okur ve yazar.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa2'de A sütunundaki bir hücreye Sayfa1'de yazılı bir isim girin ve Enter tuşuna basın.
3. Aynı isim hücresini tekrar seçin; yan hücrelere ilgili değerler gelir.
4. Kendi verinizi kullanmak için Sayfa1'deki listeyi değiştirin. Kod yalnızca A2:A4 aralığını taradığından, liste uzarsa VBA düzenleyicisinde (Alt+F11) Sayfa2 kodundaki bu aralığı genişletin.