Užitočné (2) | coffey33, Mária27 |
Function Add_New_Wbk(xPath As String, xFile As String, xData As Range) As String ' On Error GoTo xErr 'doplnene kopirovanie - ver 2 xData.Copy Workbooks.Add 'ak chces iba data - od pozicie A1 'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ ' :=False, Transpose:=False 'ak chces aj vzorce - !!! nesmu odkazovať na iné ako kopírované oblasti Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ' vsetko, vrátane vzorcov: ... Paste:=xlPasteAll ... ' len vzorce : ... Paste:=xlPasteFormulas ... 'ak chces aj formaty Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.DisplayAlerts = False 'prepise bez opytania, ak uz je ActiveWorkbook.SaveAs Filename:=xPath & xFile Application.DisplayAlerts = True Add_New_Wbk = "" Exit Function xErr: Application.DisplayAlerts = True Add_New_Wbk = Err.Description End Function
Užitočné (2) | Kabaka123, coffey33 |
Užitočné (1) | Kabaka123 |
MAKRO - vytvorenie TAB_súborov zo zoznamu