Sayfa1 deki verileri süzdürüp Sayfa2 ye almak

[clayman]

verdiğim örnekte ki gibi sayfa1 deki verileri iki adet kritere göre süzüp sayfa2 de yazdıran bi makro yapmaya çalıştım fakat olmadı. Aynı sayfada süzdürebiliyorum fakat sayfa ikiye alamıyorum. Yardım edebilirmisiniz.

 

[Orion1]

Dosyanız ektedir.

Sub aktar_suz_59()
Dim sat As Long
Sheets("Sayfa2").Select
Application.ScreenUpdating = False
Range("A4:O65536").Clear
sat = Sheets("sayfa1").Cells(65536, "B").End(xlUp).Row
If sat < 2 Then GoTo son
Sheets("Sayfa1").Range("A1").AutoFilter
Sheets("sayfa1").Range("A1").AutoFilter field:=2, Criteria1:=Range("B1").Value
Sheets("sayfa1").Range("A1").AutoFilter field:=8, Criteria1:=Range("B2").Value
Sheets("Sayfa1").Range("A1").CurrentRegion.Copy Range("A4")
son:
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"

End Sub

 

[clayman]

çok teşekkür ederim evren bey