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