İki ayrı sayfadan çoklu kritere göre filtre yapmak

[vurkan]

Arkadaşlar Merhaba Sizlerin yardımlarıyla hazırladığım bir dosyada Sayın Turist'in hazırladığı bir kod yardımıyla iki ayrı sayfadan (ANA SAYFA ve ÖDENENLER) tarih aralıklarına ve diğer kriterlere göre raporlar sayfasına süzme yapıyorum. Ancak;

ANA SAYFA da tarih aralığı B sütununda iken ÖDENENLER Sayfasında L Sütununda. Sayın Turist'in hazırladığı kodlar bu sayfadan da B sütunundaki tarihlere göre süzüyor. Benim istediğim ise ÖDENENLER sayfasını L sütununa göre süzmesi. Aşağıdaki kodlarda nasıl bir değişiklik yapabilirim. Teşekkürler.


Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim ValueToProcess As Variant
Application.ScreenUpdating = False
On Error Resume Next
For i = 3 To Sheets("ANA SAYFA").Cells(Rows.Count, 2).End(3).Row
ValueToProcess = DateValue(Sheets("ANA SAYFA").Cells(i, 2).Value)
Sheets("ANA SAYFA").Cells(i, 2).Value = ValueToProcess
Next
For i = 3 To Sheets("ÖDENENLER").Cells(Rows.Count, 2).End(3).Row
ValueToProcess = DateValue(Sheets("ÖDENENLER").Cells(i, 2).Value)
Sheets("ÖDENENLER").Cells(i, 2).Value = ValueToProcess
Next
Sheets("RAPORLAR").Range("A4:I5000") = Empty
Sheets("RAPORLAR").Range("K4:S5000") = Empty
Sheets("ANA SAYFA").Range("B2:K" & Sheets("ANA SAYFA").Cells(Rows.Count, 2).End(3).Row).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("RAPORLAR").Range("AZ1:BJ2"), CopyToRange:=Sheets("RAPORLAR").Range("A3:I4"), Unique:= _
False
Sheets("ÖDENENLER").Range("B2:K" & Sheets("ÖDENENLER").Cells(Rows.Count, 2).End(3).Row).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("RAPORLAR").Range("BO1:BY2"), CopyToRange:=Sheets("RAPORLAR").Range("K3:S4"), Unique:= _
False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

[turist]

Dosyanız Bu Linkte

İnceleyiniz.
Not: Ödeme tarihlerinde 2015,2016 ve 2017 tarihleri bulunmaktadır. Dikkat edin.

 

[vurkan]

Sayın Turist yine ilgi ve bilginizi esirgemediniz. Sağolun.
Hücre kenarlıklarını da halledebilirsem (içi boş olan satırların hücre kenarlıklarını silmek, A ve K sütunundaki son dolu hücreye kadar kenarlık çizdirmek istiyorum) bu sayfayla işim bitmiş olacak.

 

[turist]

Dosyanızın Linki

Not:Makro kodlarına ek olarak Raporlar sayfasında Koşullu Biçimlendirme uygulanmıştır.

 

[vurkan]

Sayın Turist ilgi ve alakanıza teşekkür ederim. Gayet güzel çalıştı. Sağolun.

 

[turist]

Sayın @vurkan teşekkür ederim.