Sadece filtrelenen hücreleri yeni çalışma kitabı olarak kaydetme

[instantfun]

Merhaba,

Ekteki şekilde bir tablom var, tutara göre veri'den filtreleme yapıyorum.
Bu filtrelemyi yapltıktan sonra sadece sayfada görünen hücreleri (gizlenen hücreleri almadan) yeni bir çalışma kitabına kaydetmek istiyorum. Bu mümkün müdür?

 

[Murat OSMA]

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    Range("A3:F1000").SpecialCells(12).Copy
    Workbooks.Add
    ActiveWorkbook.Sheets(1).Range("A1").PasteSpecial xlPasteAll
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\eski.xlsm", 52
    ActiveWorkbook.Close True
    Application.DisplayAlerts = True
End Sub[/FONT]