Hej.
Har lite problem med ett makro, det stannar vid "Sheets("Med datum")………..och visar felkod "Dokumentet sparades inte".... (Se bild).
Har hittat makrot men har inte lyckats modifiera det rätt.
Jag är ingen expert på makro så jag är tacksam för all hjälp.
En liten förklaring till vad jag vill att makrot ska göra:
Skriva ut ett specifikt blad.
Spara ett specifikt blad till PDF, med namn enligt cell H2 och B3-E3. (Det finns flera blad i samma excelbok).
Spara samma blad till en egen excelbok med samma namn som PDF, utan att makro följer med.
Öka värdet i cell H2 med +1.
Radera värde i ett antal celler.
Spara den öppna excelboken under sitt befintliga namn.
Stänga excelboken.
Sub Utskrift()
' Print sheet
Sheets("Med datum").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Dim NewFN As Variant
' Create the PDF
NewFN = "C:\2018\Invoice" & Range("H2,B3:E3").Value & ".pdf" Sheets("Med datum").ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewFN, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
' Save the Excel Sheet
Sheets("Med datum").Copy
NewFN = "C:\2018\Invoice" & Range("H2,B3:E3").Value & ".xlsx"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
' Increment the invoice number
Range("H2").Value = Range("H2").Value + 1
' Clear out the invoice fields
Range("B3:E3").ClearContents
Range("G3:H3").ClearContents
Range("B4:H4").ClearContents
Range("C5: D5").ClearContents
Range("F5:H5").ClearContents
Range("A6:H23").ClearContents
Range("C25: D25").ClearContents
Range("C26: D26").ClearContents
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Tack på förhand
Nisse
↧