Birden Fazla Şart İle Süzme

[Viperous]

Öncelikle eğitim bölümündeki örneklerle dünden beri uğraşıyorum ancak halen istediğim sonucu elde edemedim, o yüzen başlık açma ihtiyacı duydum.

Yapmak istediğim şudur; Türkiyenin illerindeki belirli bir sektördeki pazar paylarını,referans bir pazar payı verisine göre sıralamak istiyorum.

Mesela A firması pazar payı Adana ilinde 5, ben ise 5 pazar payından büyük tüm firmaları,Hücreye "Adana" yazdığımda Adana ili için ayrı bir tabloda sıralamak istiyorum.Yardımcı olabilirseniz çok sevinirim.
Şimdiden teşekkürler

 

[Necdet]

Merhaba

Sorunuzu tam olarak anlamadım. Adana ilinde pazar payı 5 ten büyük olanları süzdürmek istiyorsanız eğer :

Şehirden Adana,

Pazar payından ise Sayı Filtrelemeleri Bölümünden Büyük 5 i seçerseniz istediğiniz süzü elde etmiş olursunuz.

 

[Viperous]

İşte bu süzmeyi başka bir sheet içinde yapmak istiyorum.Başka bir sheet içinde"Adana" yazdıgımda orda pazar payı 5 ten buyuk ne kadar fırma varsa ısımlerıyle beraber alt alta getirmesini istiyorum.

 

[İhsan Tank]

İşte bu süzmeyi başka bir sheet içinde yapmak istiyorum.Başka bir sheet içinde"Adana" yazdıgımda orda pazar payı 5 ten buyuk ne kadar fırma varsa ısımlerıyle beraber alt alta getirmesini istiyorum.

merhaba
Sayfa2 A1 hücresine Firmalar yazın
boş bir module kopyalayın ve deneyin
Not : Bir Giriş Menüsü Açılacak Oraya Şehir Giriniz

Option Explicit
Sub aktarım()
Dim ts, kaplan, trabzonspor, bordo
Application.ScreenUpdating = False
bordo = InputBox("Şehir Girişiniz", "Şehir Girişi")
If bordo = "" Then Exit Sub
bordo = UCase(Replace(Replace(bordo, "ı", "I"), "i", "İ"))
trabzonspor = MsgBox(bordo & " Şehirlerindeki Büyükleri Aktarıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Range("A2:A65536").ClearContents
kaplan = 2
For ts = 2 To Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
If Sheets("Sayfa1").Cells(ts, "A") = bordo And _
Sheets("Sayfa1").Cells(ts, "C") > 5 Then
Sheets("Sayfa2").Cells(kaplan, "A") = Sheets("Sayfa1").Cells(ts, "B")
kaplan = kaplan + 1
End If
Next
Application.ScreenUpdating = True
MsgBox bordo & " Verilerini Aktardım", vbInformation, "Bitiş"
End Sub

 

[Necdet]

Merhaba,

Sayfa2 de il ve ölçütü giriniz.

Sub Suz_Kopyala()
    Dim i   As Long, _
        s1  As Worksheet, _
        s2  As Worksheet
    
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    
    Application.ScreenUpdating = False
    
    s2.Select
    Range("A4:E10000").ClearContents
    s1.Select
    If s1.AutoFilterMode = True Then Selection.AutoFilter
    i = s1.Cells(Rows.Count, "A").End(3).Row
    
    s1.Range("$A$1:$C$" & i).AutoFilter Field:=1, Criteria1:=s2.Range("B1")
    s1.Range("$A$1:$C$" & i).AutoFilter Field:=3, Criteria1:=">" & s2.Range("B2"), _
        Operator:=xlAnd
        
    Range("A1").CurrentRegion.Copy s2.Range("A4")
    
    s2.Select
    
    Application.ScreenUpdating = True
    
End Sub

 

[Viperous]

çok teşekkürler

 

[Merhum İdris SERDAR]

Öncelikle eğitim bölümündeki örneklerle dünden beri uğraşıyorum ancak halen istediğim sonucu elde edemedim, o yüzen başlık açma ihtiyacı duydum.

Yapmak istediğim şudur; Türkiyenin illerindeki belirli bir sektördeki pazar paylarını,referans bir pazar payı verisine göre sıralamak istiyorum.

Mesela A firması pazar payı Adana ilinde 5, ben ise 5 pazar payından büyük tüm firmaları,Hücreye "Adana" yazdığımda Adana ili için ayrı bir tabloda sıralamak istiyorum.Yardımcı olabilirseniz çok sevinirim.
Şimdiden teşekkürler

Dosyanız ekte.

Konu için bakınız:

ÖZET TABLOLAR (PİVOT TABLE)



.

 

[Necdet]

çok teşekkürler

Bu teşekkür bana mı geldi bilmiyorum ama süz ile çözüm istediğiniz için makro da süz ile yapıldı, sanırım oku-yaz mantığına göre daha hızlı çalışır.

 

[Viperous]

teşekkür yardımcı olan herkes için, çok büyük bir eziyetten kurtardınız beni

 

[İhsan Tank]

teşekkür yardımcı olan herkes için, çok büyük bir eziyetten kurtardınız beni

rica ederim
Syn : Necdet Yeşertener ve Syn : Yurttaş hocalarıma çok teşekkür ederim. gene bilgilerini aktardılar ve müthiş çözümlerle karşımıza çıktılar.
:yazici: