Bul Listele - Koşullu Arama

[maidonoz]

Sub BulListele()
 
Dim Sd As Worksheet, sat As Long, c As Range, ilkadres As Variant
 
Set Sd = Sheets("Data")

Sheets("Bul Listele").Select
Range("A2:C" & Rows.Count).ClearContents
 
sat = 2
With Sd.Range("F:F")
    Set c = .Find("*" & [E2] & "*", LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        ilkadres = c.Address
        Do
            Cells(sat, "B") = Sd.Cells(c.Row, "A")
            Cells(sat, "C") = Sd.Cells(c.Row, "B")
            sat = sat + 1
            
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> ilkadres
    End If
End With
 
End Sub

Arkadaşlar,

Ekli tablodaki "Bul Listele" adlı çalışma sayfası E2 hücresine girdiğim değerin "Data" adlı çalışma sayfasında bulunduğu satırın A ve B sütunlarındaki karşılıklarını listelemek istiyorum. Mevcut makroda arama "Data" adlı çalışma sayfasının E sütununda yapılıyor. Sormak istediğim 2 şey var:

1. Aramanın yapılacağı sütuna "Bul Listele" adlı çalışma sayfasında bulunan toolboxta yapacağım seçim ile ben karar verebilir miyim. Örneğin toolbox seçimim O ise arama D sütununda yapılsın, toolbox seçimim P ise arama E sütununda yapılsın ve son olarak eğer toolbox seçimim B ise arama F sütununda yapılsın. Ayrıca bu sütunların sayısının ve dolayısıyla toolbox girdilerinin artması durumuna intibak edebilecek bir makro yazabilir miyim?

2. Aramanın yapılacağı sütunda başlama ve bitiş hücrelerini sınırlayabilir miyim? Yani mesela arama (E3:E400) aralığında yapılsın gibi..

Selamlar.

 

[Ömer]

Merhaba,

With Sd.Range("F:F")

Kodlarda yukarıda yazdığım satırın yerine aşağıdaki satırı kullanın.

With Sd.Range(Sd.Cells(3, Sd.[I1] + 3), Sd.Cells(400, Sd.[I1] + 3))

.