[IvanVk]

Autor frunze

Da ne otvaram novu temu,

Bilo bi bolje da jesi radi pretraživanja foruma.
Probaj nešto poput ovoga. Snimi VBA macro korake i pohrani u personal.xls pa dodaj shorctut key. Tako ćeš moći pokretati iz dotične radne knjige ovu radnju, a možeš i preko VBA buttona. No ne moraš uopće snimati u personal.xls već VBA makronaredbu dodaj u module1

Sub Macro1()
'
    Range("G1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$G$4").AutoFilter Field:=7, Criteria1:="<>"
    Range("B:B,E:E").Select
    Range("E1").Activate
    Selection.EntireColumn.Hidden = True
    Range("A1:G15").Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Application.CutCopyMode = False
    ChDir "C:\Temp"
    ActiveWorkbook.SaveAs Filename:="C:\Temp\NewBook1.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    Windows("Book2.xlsm").Activate
    Range("G1").Select
End Sub

Ovo je klasičan školski primjer
VBA makronaredba postavlja filter na stupac u kojem se nalazi "da", briše višak stupaca, selektira range, otvara novu radnu knjigu i lijepi podatke, snima radnu knjigu pod identičnim nazivom, samo potvrdiš overwrite.
Za više googlaj pojam "How to copy specific data by criteria in to new workbook"