Makro ile filtreleme sorunu

[ufukozcan2011]

Merhabalar.Filtreleme yapmaya çalıştığımda Sayfa5 c9 ve Sayfa5 d9 daki verileri Sayfa2 deki m1 ve n1 sütununda filterelemeye çalıştığımda sayfa 5 teki verileri filtrelemiyor.Kod aşağıdaki gibi yazılı.ve 2-3 sütun daha filtelemek istiyorum.Nasıl bir yol izlemeliyim. Yardımcı olursanız sevinirm.Teşekkürler!



Sub Filtrele()
Sayfa2.Range("m1:cf" & Sayfa2.Range("m65536").End(xlUp).Row).AutoFilter Field:=13, Criteria1:=Array(Split(Sayfa5.Range("c9"), ",")), Operator:=xlFilterValues
Sayfa2.Range("n1:cf" & Sayfa2.Range("m65536").End(xlUp).Row).AutoFilter Field:=14, Criteria1:=Array(Split(Sayfa5.Range("d9"), ",")), Operator:=xlFilterValues
End Sub

 

[Ömer BARAN]

Merhaba.

Kod vermek yerine; gerçek belgenizin, özel bilgi içermeyen
(özel bilgilerin yerine anlamlı ve tutarlı olmak üzere özel bilgilerle aynı özelliklerde rastgele veriler yazabilirsiniz)
küçük boyutlu bir kopyası şeklinde hazırlayacağınız bir örnek belge yükleyerek daha hızlı sonuca ulaşacağınızı düşünüyorum.
.

 

[ufukozcan2011]

Merhaba.

Kod vermek yerine; gerçek belgenizin, özel bilgi içermeyen
(özel bilgilerin yerine anlamlı ve tutarlı olmak üzere özel bilgilerle aynı özelliklerde rastgele veriler yazabilirsiniz)
küçük boyutlu bir kopyası şeklinde hazırlayacağınız bir örnek belge yükleyerek daha hızlı sonuca ulaşacağınızı düşünüyorum.
.

Örnek Bir dosya hazırladım.

 

[Ömer BARAN]

Konu açılış mesajındaki kod ile eklediğiniz belge arasında bir alaka yok sanırım.
-- Verdiğiniz koddaki sütunlar ile eklediğiniz belgedeki sütunlar birbirinden farklı,
-- Verdiğiniz ve örnek belgedeki kod'da kriter olarak kullanılacak veri olarak sanırım
"," karakterine göre ayrılmış bir metin parçasını kullanmak istiyorsunuz.

Kodun başına MsgBox Split(Sayfa2.Range("a1"), ",") şeklinde bir satır ekleyin bakalım ne sonuç alacaksınız,
bir de MsgBox Split(Sayfa2.Range("a1"), ",")(0) şeklinde bir satır ekleyin bakalım o zaman ne sonuç alacaksınız.

Ancak örnek belgenizde , karakteri içeren bir veri yok.

Destek olmaya çalışan biri olarak söyleyeceğim şudur:
-- hem cevaplarımın altındaki İMZA bölümünde hem de bir önceki mesajımda gerçek belgenizin küçük boyutlu bir kopyası şeklinde
hazırlanacak örnek belge yüklenmesini rica etmiştim.
Ancak ne veri alanı ne de filtre kriteri olarak kullanılacak veri gerçek belgenizdekilerle aynı yapıda değil anlaşılan.

Siz bilirsiniz tabi, tercih sizin.

 

[ufukozcan2011]

Ömer Bey ilginiz ve yardımlarınız için teşekkür ederim. Malesef bir çözüm olmadı. Çalışmanın orjinali şuan mevcut deği. İş yerinde. Ama İstenilen şey örnekteki gibidir.Örnek üzerinde uygulayabilir misiniz?

 

[ufukozcan2011]

Filtrelemede tek sütun yapınca çalışıyor ama iki ve daha fazla filtrelemede sonuç alamıyorum

 

[Ömer BARAN]

Aslına uygun olmayan örnek belge üzerinden cevap yazmayı doğru bulmuyorum ama yine de cevap yazabilmek için soruyorum;
mevcut verilere göre kriterlerinizi sözel olarak ifade edin.
Bir'den fazla sütun için filtre öngördüğünüze göre;
-- şu sütun için kriter şudur,
-- şu sütun için ise kriter budur
gibi, ilgili sütun adını ve o sütunla ilgili kriteri ayrı ayrı ve net olarak ifade edin.
Mecut belgede Sayfa3 A1 hücresinde HASAN kelimesi var,
-- bu tür veri tek bir sütunda (A) mevcut,
-- bu durumda, ikinci filtreyi hangi sütuna hangi kritere göre uygulamak istiyorsunuz?

 

[ufukozcan2011]

Ömer Bey belli bir kriter yok aslında. Atıyorum A1 hücresine Hasan B1 e İzmir C1 e 35 yazıcam; böylece bu yazdıklarımla eşleşen kaç adet kişi var bulmak istiyorum. Tek sütunda arama yapabilyorum fakat birden fazla sütunda aramak istiyorum. asıl istediğim budur!

 

[Ömer BARAN]

Sayın ÖZCAN, işte ben de diyorum ki; ATMAK yerine, verilerle uyumlu olmak üzere A1'e A sütunu kriterini, B1'e B sütunu kriterini, ..... yazın ki verilerin yapısı anlaşılsın.
Verdiğiniz kod'da; VİRGÜL karakterine göre tek hücredeki (örnekte A1) metni parçalara ayırıp,
bu parçalardan birini A sütunu için kriter, parçalardan bir diğerini B sütunu için kriter olarak kullanmak istediğiniz anlamı çıkıyor.
Şimdi de A1'e şunu B1'e şunu yazacağım diyorsunuz.

Söylediklerinizle örnek belgeniz uyumlu değil diyorum ben de.

Filtre sonrasında ne yapılacağını söylemelisiniz/örneklendirmelisiniz belki de.

Maksatınız kirterlere uyan veri adetini bulmak ise bunun için makroya veya filtreye de gerek yok formül ile bu adet bulunabilir.

Örnek belgeniz gerçek belgenizin bir kopyası şeklinde olduğunda cevap yazarım artık.
(verilerinizi merak etmiyorum, verilerin özelliklerini görmek istiyorum. Bunu da keyfi istiyor değilim,
veri türüne göre işlem değişebilir çünkü. Verilerinizi merak etmiyorum yani, yapıyı/veri türlerini görmek istiyorum)

Şimdi cevap yazsam da; ya şöyle olursa diye yeni soru ya da gerçek belgeme uyarlayamadım diye bir cevap geleceğini düşünüyorum.

İsteğiniz filtre midir yoksa, belli koşullara uyan satır adeti kaçtır sorusunun cevabı mıdır?

Soru sormak zor zanaat vesselam.

Bakın kaç mesaj oldu; gecenin bu vakti, üşenmeden sorunu/ihtiyacı anlamaya. çalışıyorum,
anlamak için uzun uzun cevaplar yazıyorum, çözmek için destek olmayı düşünüyorum ve hala aynı noktadayız.
.

 

[ufukozcan2011]

ÖmerBey tek sütunda filtreleme yapınca;
Sub Filtrele()
Sayfa1.Range("a3:cf" & Sayfa1.Range("a65536").End(xlUp).Row).AutoFilter Field:=1, Criteria1:=Array(Split(Sayfa2.Range("a1"), ",")), Operator:=xlFilterValues
End Sub

kodlarını kabul ediyor.İki sütunda filtreleme yapması için aşağıdaki kodu yapıştırınca yine filtreleme yapıyor fakat Sayfa2 b1 deki veriyi filtrelemiyor.Yani iki sütunda sağlıklı filtreleme yapması için nasıl ekleme veya çıkarma yapmalıyım.
Sub Filtrele()
Sayfa1.Range("a3:cf" & Sayfa1.Range("a65536").End(xlUp).Row).AutoFilter Field:=1, Criteria1:=Array(Split(Sayfa2.Range("a1"), ",")), Operator:=xlFilterValues
Sayfa1.Range("b3:cf" & Sayfa1.Range("a65536").End(xlUp).Row).AutoFilter Field:=2, Criteria1:=Array(Split(Sayfa2.Range("d1"), ",")), Operator:=xlFilterValues
End Sub

 

[ufukozcan2011]

Virgül kriterini çıkarmak istiyorum yukardaki kodlarda

 

[ufukozcan2011]

Sizin anlatmak istediğinizi gayet açık bi şekilde anladım. Fakat ben bu kodları bi yerden görüp uyarlamaya çalıştım. illa bu kodların olması da gerekmiyor. Başka bir şekilde yapmak için farklı kod varsa da kullanabilirim. Sanırım örnekte ne yapmak istediğimi anladıgınızı düşünüyorum. Sizin kadar iyi anlamıyorum kodlardan. Ama öğrenmek istiyorum forumda hangi kısımı incelemeliyim bu konu hakkında

 

[ikayserili]

Merhaba Benzer bi konu hakkında çözüm yapamadım mevcut sizlerin paylaştığı kodlardan. Bana yardımcı olurmusunuz lütfen.
Ana sayfada bulunan bir butonum var. bu buton mevcut makroyu çalıştırıyor.
Makro'nun başına;
11 sayfanın X3 hücresine filtre ekledim. sadece 1 olanları sayfada olması gerekiyor. boş olanları sayfada gözükmemesi gerekiyor.
17 sayfanın H1 hücresine filtre ekledim. sadece 1 olanları sayfada olması gerekiyor. boş olanları sayfada gözükmemesi gerekiyor.
18 sayfanın S3 hücresine filtre ekledim. sadece 1 olanları sayfada olması gerekiyor. boş olanları sayfada gözükmemesi gerekiyor.
sayfalarındaki otomatik filtreleme yaptırmak istiyorum.

örnek olarak şu kod'u denedim;
Sheets(11).Selection.AutoFilter Field:=24, Criteria1:="<>"
ama hata vermektedir. bu sayfa için bu kod çalışsa idi diğer sayfaları da buna göre yapacaktım.