Soru Makro ile kritere göre veri getirmek

[Ünsal Koç]

Merhaba Arkadaşlar,

Makro ile bir veri süzmek istiyorum. Tek kriter olunca istediğimi yapabiliyorum ama farklı sütunda ikinci bir kriter olunca istediğim gibi sonuç alamıyorum. Konu hakkında yardımlarınızı rica ederim.

Veriler S1 sayfasındadır.

S2 sayfasında B1:B7 aralığındaki kriterler ve F1:F7 aralığındaki kriterlere göre veri getirmem lazımdır.
Aşağıdaki kod kısmı ile yapmaya çalışıyorum ama boş ve farklı veriler getirmektedir.


If s1.Cells(i, "B").Value <> "" _
And s1.Cells(i, "N").Value <> "" _
And ( _
Application.WorksheetFunction.CountIf(s2.Range("B1:B7"), s1.Cells(i, "B").Value) > 0 _
Or Application.WorksheetFunction.CountIf(s2.Range("F1:G7"), s1.Cells(i, "N").Value) > 0 _
) Then

 

[Muzaffer Ali]

Merhaba.
Örnek dosya hazırlayıp üzerinde sorarsanız daha hızlı ve doğru yanıt alırsınız.
Örnek dosyanızı dosya.co gibi bir paylaşım sitesinde paylaşabilirsiniz.

 

[Ouzz_z]

("F1:G7") yerine ("F1:F7") olması gerekiyor olabilir

 

[Necdet]

Merhaba,
Makro kaydet ile kodları oluşturup inceleyebilirsiniz.