Citiraj:
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
Code:
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"