Makro ile filtreleme

[kadir78]

İyi günler. Sayfa1 de bulunan hücrelerdeki değerlere göre (Gün Ay Yıl Miktar) Sayfa2 'ye makro ile filtre yapmak için kod paylaşabilirmisiniz.

 

[1Al2Ver]

Merhaba,

Öneri ; Sonuçları elle girilmiş örnek bir dosyanızı, dosya yükleme sitelerinden birine yükleyip, verilen linki burada paylaşırsanız, doğru ve çabuk çözüm almanız olasıdır.

Teşekkür ederim.

 

[kadir78]

İş yerimde internet olmadığından cep telefonundan takip ediyorum. Onun için örnek dosya gönderemiyorum. Bana taslak kodlar olsa yeter çalıştığım dosyaya uyarlıyorum. Kusura bakmayın.

 

[1Al2Ver]

Merhaba,

Sayın ASKM'nin 2017 yılında tarafıma ürettiği çözüm Kod'dur.

Modül'e ;

Sub SÜZ()
Dim s1, s2 As Worksheet
Set s1 = Sheets("SÜZ")
Set s2 = Sheets("KAYITLI_VERİLER")
Dim sonsat As Long
sonsat = s2.Range("A65000").End(xlUp).Row
s1.Range("D5:H65000").ClearContents
s2.Range("A1:F65000").AutoFilter Field:=2, Criteria1:=">=" & CLng(CDate(s1.Range("B4"))), _
Operator:=xlAnd _
, Criteria2:="<=" & CLng(CDate(s1.Range("B5")))

If s1.Range("B6") <> Empty Then
    s2.Range("A1:F65000").AutoFilter Field:=3, Criteria1:="=" & s1.Range("B6")
End If
If s1.Range("B7") <> Empty Then
    s2.Range("A1:F65000").AutoFilter Field:=4, Criteria1:=s1.Range("B7")
End If
If s1.Range("B8") <> Empty Then
    s2.Range("A1:F65000").AutoFilter Field:=5, Criteria1:=Format(s1.Range("B8"), "0.00")
End If

If s1.Range("B9") <> Empty Then
    s2.Range("A1:F65000").AutoFilter Field:=6, Criteria1:=s1.Range("B9")
End If

s2.Range("B2:F" & sonsat).Copy
s1.Range("D5").Select
ActiveSheet.Paste
s1.Range("B6").Select
s2.Range("A1:F65000").AutoFilter
MsgBox "Seçim işlemi yapıldı...", vbInformation, "ASKM"
End Sub

Kolay gelsin.

 

[kadir78]

Sayın 1al2ver yazdığınız kodlar için sağolun fakat istediğim sonuca ulaşamadım. Özellikle sayfa1 de bulunan d2 ve e2 hücrelerine yazılan tarih aralığı için yazdığınız kodları kullandığım dosyaya uyarlayamadım. Sayın forum üyeleri bu konu ile alakalı başka kodlar paylaşabilirmisiniz.

 

[1Al2Ver]

Merhaba,

İlk Tarih ; B6
Son Tarih ; B7

Kodun etkin olduğu sayfa görseli.

 

[kadir78]

Kodları kullandığım dosyaya uyarladım teşekkür ederim iyi günler.

 

[1Al2Ver]

Merhaba,

Sorunun çözülmesine memnun oldum,

Teşekkür ederim.