Düşeyara - Excel VBA

Yazar: Temel Excel | Yayın Tarihi: 20 Ocak 2025 | Son Güncelleme: 20 Ocak 2025 | Excel VBA

Düşeyara - Excel VBA

DÜŞEYARA (VLOOKUP), Excel'deki en yaygın kullanılan fonksiyonlardan biridir. Bu fonksiyon, bir veri tablosunda aradığınız belirli bir değeri dikey arama yaparak bulmanızı ve bu değere karşılık gelen bilgiyi döndürmenizi sağlar.

Yerleşik DÜŞEYARA fonksiyonu sabit aralıklarla çalışırken, Excel VBA ile aralıklar dinamik olarak belirlenebilir. Bir diğer ifadeyle, Düşeyara makrosu yardımıyla veri sayfasındaki son satır veya sütuna göre aralıkları otomatik olarak güncelleyebilirsiniz. Bu sayade çok daha fazla esneklik sunmaktadır.

DÜŞEYARA Makrosu Nasıl Yazılır?

Makro yazmak için öncelikli olarak üst menüden geliştirici sekmesinin aktif olduğundan emin olunuz. Eğer değilse, İlk olarak, Excel’de Geliştirici sekmesini etkinleştirmek için "Dosya" > "Seçenekler" > "Şeridi Özelleştir" menüsünden "Geliştirici"yi işaretleyin. Detaylı bilgi için linke tıklayabilirsiniz. Ardından, "Geliştirici" sekmesinden "Visual Basic" butonuna tıklayarak VBA Düzenleyicisini açabilir ve "Ekle" > "Modül" ile yeni bir modül ekleyebilirsiniz. Daha fazla bilgi için linke tıklayabilirsiniz.

Bu adımlar tamamlandıktan sonra, VBA'da kod yazımına geçebilirsiniz. Aşağıda basit bir düşeyara makrosu örneği yer almaktadır. Kopyala butonu ile kodu kopyalayabilirsiniz.

VBA ile DÜŞEYARA Kullanımı

Kopyalandı

Sub VLOOKUP_VBA_Ornegi()
  Dim aramaDegeri As String
  Dim tabloAraligi As Range
  Dim sonuc As Variant

  ' Arama değerini al
  aramaDegeri = "Ürün A"

  ' Veri tablosu aralığını belirt
  Set tabloAraligi = Range("A2:B10")

  ' DÜŞEYARA fonksiyonunu kullanarak arama yap
  sonuc = Application.WorksheetFunction.VLookup(aramaDegeri, tabloAraligi, 2, False)

  ' Sonucu ekrana yazdır
  If Not IsError(sonuc) Then
    MsgBox "Aradığınız ürünün fiyatı: " & sonuc
  Else
    MsgBox "Ürün bulunamadı!"
  End If
End Sub

Bu kod, "Ürün A"yı A2:B10 aralığındaki veri tablosunda arar ve 2. sütundaki fiyat bilgisini döndürür. Eğer ürün bulunamazsa, hata mesajı verir.

DÜŞEYARA Makrosu Kod Açıklamaları

Aşağıdaki VBA kodu, DÜŞEYARA makrosu yazarak bir değeri aramak ve sonucunu ekrana yazdırmak için kullanılabilir. Her satırı açıklayalım:

• Makronun Başlangıcı: Sub VLOOKUP_VBA_Ornegi() komutu ile makro başlatılır.
• Değişkenlerin Tanımlanması: Dim aramaDegeri As String, Dim tabloAraligi As Range, Dim sonuc As Variant ile değişkenler tanımlanır.
• Arama Değerinin Belirlenmesi: aramaDegeri = "Ürün A" komutu ile arama değeri belirlenir.
• Veri Aralığının Belirlenmesi: Set tabloAraligi = Range("A2:B10") komutu ile veri aralığı tanımlanır.
• DÜŞEYARA Kullanımı: sonuc = Application.WorksheetFunction.VLookup(aramaDegeri, tabloAraligi, 2, False) ile arama yapılır.
• Sonucun Kontrolü: If Not IsError(sonuc) Then komutu ile sonuç kontrol edilir, hata durumunda mesaj gösterilir.
• Makro Sonu: End Sub komutu ile makro bitirilir.

Sonuç

Excel VBA ile Düşeyara makrosu, veri arama işlemlerini otomatikleştirir ve verimliliği artırır. VBA kodları ile, Düşeyara formülünü daha güçlü ve dinamik hale getirebilir, Excel'deki işlem süreçlerini hızlandırabilirsiniz.

Alakalı Makaleler