DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Filtre()
Dim son As Long, S2 As Worksheet
Set S2 = Sheets("Sayfa2")
son = S2.Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Sayfa1").Select
Range("A4:E" & Rows.Count).Clear
S2.Range("A1:E" & son).AdvancedFilter xlFilterCopy, _
Range("B1:D2"), Range("A4"), True
End Sub