Sub salva()
fpath = "C:\quellochevuoi\"
filenam = Range("B14")
Sheets(1).Copy
Range("B1:P58").Value = Range("B1:P58").Value
Columns("Q:AD").Delete
ActiveWorkbook.SaveAs Filename:= _
fpath & filenam & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
End Sub
difficile ?
[Modificato da patel45 14/01/2017 09:57]
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta