Çoklu Bulma ve Karşısındaki Değeri Listeleme

Çoklu Bulma ve Karşısındaki Değeri Listeleme isimli kod, Excel sayfaları üzerinde birden fazla kriter bazlı arama yapar, diğer değerlerini listeler

XD Destek İste
Dim alan()

Sub Coklu_Bulma()
   Sayda1.Select
   verisonsatir = Cells(Rows.Count, "A").End(3).Row
   secim = "A2:D" & verisonsatir
   alan = Range(secim)

   Sayfa2.Select
   sonucsonsatir = Cells(Rows.Count, "A").End(3).Row

   secim = "C2:F" & sonucsonsatir
   Range(secim).Select
   Application.CutCopyMode = False
   Selection.ClearContents
   Range("C2").Select
   
   satir = 1
   For i = 2 To sonucsonsatir
     aranan = Cells(i, 1).Value
     buldu = False
     For j = 1 To verisonsatir - 1
       bakilan = alan(j, 1)
       If aranan = bakilan Then
         satir = satir + 1
         Cells(satir, "C").Value = alan(j, 1)
         Cells(satir, "D").Value = alan(j, 2)
         Cells(satir, "E").Value = alan(j, 3)
         Cells(satir, "F").Value = alan(j, 4)
         buldu = True
       End If
     Next
     If buldu Then Cells(i, 2).Value = "Bulundu" Else Cells(i, 2).Value = "Bulunamadı"
   Next i
     
End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

Kodu çalıştırmak için 2 ayrı Excel sayfası ve A-F arası benzer verilere sahip olmanız gerekir.

Etiketler

50 Farklı Hazır Makro (VBA) Kodu
Hücredeki Değere Göre İşlem Yapma
Aktif Satırı ve Sütunu Vurgulama
Excel Makroları ile Dosya Silme
Excel Makroları ile Hücreye Saat Ekleme
Seçili Satırların Sayısını Bulma
Aralıklı Olarak Satır Silme
Aktif Hücrenin İçeriği Hakkında Bilgi Verme
Satır Yüksekliklerini Otomatik Ayarlama
56 Koşula Kadar Biçimlendirme Yapma
Şeffaf UserForm Oluşturma Kodu
Excel Menüsüne Ekleme Yapma Kodu
Açılışta Üç Kere Şifre Hakkı Vermek
Sayfadaki Kelime ve Sayı Adetlerini Bulma
Roma Rakamlarını Normal Sayılara Dönüştürme
Aktif Hücrenin Temel Bilgilerini Bulma
Dizileri Döngüye Eklemek
Excel Satır Seçme Kodu
Çoklu Bulma ve Karşısındaki Değeri Listeleme
2. Derece Denklemin Grafiğini Çizmek
Kare Kökünü Hesaplama
Yanıp Sönme Efekti Verme Kodu
Belirli Kriterlere Sahip Satırları Silme
Sütunda Yazılı Olanlardan Sayfa Adı Yapma
Excel Makroları ile Dosya Taşıma
Seçili Hücrenin Sütun Harfini Bulma
Kullanılan Tüm Sütunları Otomatik Sığdır
Sütun Genişliklerini Otomatik Ayarlama
Toplu Sütun Silme
Excel Açılırken Otomatik İşlem Yaptırma
Giriş Kutusu ve Mesaj Yazma İşlemi
Aç Penceresini Açan Makro
Hatalı Hücreleri Renklendirme
Çalışma Kitabını Kapatırken Otomatik Kaydetme
Açık Olan Tüm Excel Sayfalarını Kayıt Ederek Kapatma
Sayıları Yeni Bir Sayıyla Çarpma
Aktif Hücrenin Sütun Numarasını Bulma
Bir Aralıktaki Maksimum Değeri Renklendirme
Satırlardaki Farkı Renklendirme
Metnin İçinden TC Kimlik Numarasını Ayırma
Hücrede Değişiklik Olduğunda Makroyu Çalıştırma
Sayfadaki Ad Tanımlamaları Silme
Excel Satır Silme Kodu
Program Başlangıcı Kodları
Aktif Sayfayı Kopyala Yeni Bir Kitaba Yapıştır
Açılışta İstediğiniz Sayfanın Aktif Edilmesi
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
ListBbox ve ComboBox Satır Kaydırma
Hücre Aralığını Kes Kopyala ve Yapıştır
Sütunu Kes Kopyala ve Yapıştır
Kes Kopyala ve Başka Çalışma Kitabına Yapıştır
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

Bir veri aralığının en altındaki hücreye hızlıca gitmek için, Ctrl + Aşağı Ok tuşunu kullanmanız ya da fareyi aktif hücrenin alt çizgisine getirip (aşağıdaki görüntüdeki gibi) çift tıklamanız yeterli olacaktır.

Yükleniyor...