View Single Post
Staro 30.11.2015., 11:48   #17
IvanVk
Registered User
 
IvanVk's Avatar
 
Datum registracije: Nov 2005
Lokacija: -
Postovi: 194
Kopiranje podataka u novu radnu knjigu i snimanje New Workbook

Citiraj:
Autor frunze Pregled postova
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"
IvanVk je offline   Reply With Quote