Tek Seçeneğe Göre, Tablodan Veri Almak

[1Al2Ver]

Merhaba,

"ANA_VERİ" sayfasındaki C1:AD1 arasındaki başlıklara göre,

"SÜZ" sayfası; BA1'den seçim yaparak, BB4:BC600 arasına,

Büyükten-Küçüğe veri almak istiyorum.

Teşekkür ederim.

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod'u SÜZ adlı sayfanın kod bölümüne yapıştırın ve BA1 hücresindeki seçimi değiştirerek sonucu gözlemleyin.
.

[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, [[B][COLOR="Red"]BA1[/COLOR][/B]]) Is Nothing Then Exit Sub
    Call [B][COLOR="Blue"]SIRALI_FİLTRE[/COLOR][/B]
[B]End Sub[/B]

[B]Sub [COLOR="blue"]SIRALI_FİLTRE()[/COLOR][/B]
Set av = Sheets("ANA_VERİ"): Set s = Sheets("SÜZ")
If s.[BA1] = "" Or WorksheetFunction.CountIf(av.Range("1:1"), s.[BA1]) = 0 Then Exit Sub
son = Sheets("ANA_VERİ").Cells(Rows.Count, 2).End(3).Row
sut = WorksheetFunction.Match(s.[BA1], av.Range("1:1"), 0)
av.Range("A2:B" & son).Copy s.[BA4]
av.Range(av.Cells(1, sut), av.Cells(son, sut)).Copy s.[BC3]
s.Range("BB4:BC" & son + 3).Sort s.[BC3], xlDescending
[B]End Sub[/B]

 

[1Al2Ver]

Sayın Ömer BARAN merhaba,

Ellerinize sağlık, çok çok teşekkür ederim.

Saygılarımla.