Gelişmiş Filtreleme Yardım

[tutkun79]

Merhaba
Ben bir sayfadaki verilerimi diğer sayfada yer alan şartlara göre filtreleme yaptırıyorum aşağıdaki şekilde fakat benim filtreleme yapmam gereken bu şekilde 50 satırım var ben bunları kodları tektek yazmadan nasıl ortak bir kod yazarak filtreleye bilirim
Şimdiden teşekkürler;




Sheets("oranlar").Range("A1:Z80000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("formül").Range("B1:C2"), CopyToRange:=Range( _
"A1"), Unique:=False
Range("AB1").Select
Sheets("oranlar").Range("A1:Z80000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("formül").Range("D1:E2"), CopyToRange:=Range( _
"AB1"), Unique:=False
Range("BC1").Select
Sheets("oranlar").Range("A1:Z80000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("formül").Range("F1:G2"), CopyToRange:=Range( _
"BC1"), Unique:=False
Range("A100").Select
Sheets("oranlar").Range("A1:Z80000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("formül").Range("B3:C4"), CopyToRange:=Range( _
"A100"), Unique:=False
Range("AB100").Select
Sheets("oranlar").Range("A1:Z80000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("formül").Range("D3:E4"), CopyToRange:=Range( _
"AB100"), Unique:=False
Range("BC100").Select
Sheets("oranlar").Range("A1:Z80000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("formül").Range("F3:G4"), CopyToRange:=Range( _
"BC100"), Unique:=False

 

[hamitcan]

Küçük bir dosya ekleyin.