2 Sütuna Filtre

[izolasyon]

Selamlar herkese,
Forumu araştırdım ama çözüm bulamadım. Belki de çok daha karmaşık problemelere çözümler olduğundandır. Benim isteiğim çok basit.

a - b - sonuç
c - d - sonuç
d - a - sonuç
b - c - sonuç

şeklinde 3 sütünlu bir dosyam var. Otomatik filtreleme yaptığım zaman 1. sütunda (a) değerini seçip bunları sıralayabiliyorum. Ancak benim istediğim hem 1. sütunda hem de 2. sütunda a değerini seçmek ve çıktının şu şekilde olması:

a - b - sonuç
d - a - sonuç

Bu mümkün müdür ve nasıl yapılır ?

 

[Orion1]

A:C aralığını süzüyor E:G aralığına atıyor.
Dosyanız ektedir.

Sub suz()
Dim i As Long, deg As String, sat As Long
Sheets("Sayfa1").Select
deg = InputBox("Süzülecek Veriyi Giriniz.", "SÜZ", "a")
If deg = "" Then Exit Sub
deg = UCase(Replace(Replace(deg, "i", "İ"), "ı", "I"))
sat = 2
Application.ScreenUpdating = False
Range("E2:G65536").ClearContents
For i = 2 To Cells(65536, "A").End(xlUp).Row
    If UCase(Replace(Replace(Cells(i, "A").Value, "i", "İ"), "ı", "I")) = deg Or _
    UCase(Replace(Replace(Cells(i, "B").Value, "i", "İ"), "ı", "I")) = deg Then
        Range("E" & sat & ":G" & sat).Value = Range("A" & i & ":C" & i).Value
        sat = sat + 1
    End If
Next i
Application.ScreenUpdating = True
MsgBox "Süzme yapıldı.", vbOKOnly + vbInformation, "SÜZME"
End Sub

 

[Ali]

Evren Bey,güzel bir örnek olmuş. Ellerinize sağlık.

 

[Orion1]

Evren Bey,güzel bir örnek olmuş. Ellerinize sağlık.

Teşekkür ederim.,Ali hocam sizin beğenmeniz ayrıca benim için bir gurur kaynağı olmuştur.

 

[izolasyon]

Ne diyim. 10 Puan 10 puan 10 puan, 40 puanla şampiyon.

Demekki makrosuz olmuyormuş.

Elinize sağlık. Çok teşekkürler.

 

[Orion1]

Ne diyim. 10 Puan 10 puan 10 puan, 40 puanla şampiyon.

Demekki makrosuz olmuyormuş.

Elinize sağlık. Çok teşekkürler.

Rica ederim.
İyi çalışmalar.
Not:Fonksiyonlar ilede yapılabilir.

 

[Ali]

Fonksiyon ile yapılmış örnek.

G1 hücresine aranan değeri yazınız.

G3:I27 arasındaki formüller dizi formülü olup formül çubuğunda iken direk ENTER'e basılmadan CTRL+SHIFT+ENTER tuşlarına birlikte basılarak girilmelidir.

Not: Excel formül başına ve sonuna { } ayıraçlarını otomatik ekleyecektir.