[ marre23 @ 11.11.2020. 08:33 ] @
Pozdrav ekipa, trebam pomoć vezano za spremanje xlsx iz baze macro. Koristim ovaj code niže, problem je u tome što mi zapravo ne copy/paste identično kao original a mislim na istu dužinu i širinu, pojavljuju mi se i gridlines pa ne znam gdje ubaciti dodatni kod kao: .PasteSpecial. xlPasteColumnWidths .PasteSpecial. xlPasteValuesAndNumberFormats a htjela bi da mi kopira raspon od A1:T51 i da mi sačuva pod nazivom koji se nalazi pod G3 Dakle, trebam umetnut u ovaj donji code nešto što će biti zapravo copy/paste originala ali pod nazivom iz G3 i spremljen u folder Invoice Sub t() Dim sh As Worksheet, fPath fPath = "C:\Invoice" With ThisWorkbook Set sh = .Sheets.Add Sheet2.Range("A1:T51").Copy sh.Range("A1") sh.Copy ActiveWorkbook.SaveAs fPath & "\" & Sheet2.Range("G3").Value & ".xlsx", 51 ActiveWorkbook.Close False Application.DisplayAlerts = False sh.Delete Application.DisplayAlerts = True End With End Sub Hvala Mare |