Modify macro

[noelmus]

Hi,
I have the macro below so that it saves a copy of an excel sheet to pdf in folder named "chits". I need that the file name will be as cell J8. What I have to change in the macro?

Thanks in advance

Sub Macro1()'
' Macro1 Macro
'


'
    ChDir "C:\Users\littl\Desktop\chits"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\littl\Desktop\chits\16 - adv5 - Copy.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub

 

[mumps]

Try:

Sub Macro1() 
    ChDir "C:\Users\littl\Desktop\chits"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\littl\Desktop\chits\" & Range("J8").Value & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub

 

[noelmus]

Hi mumps,
It gave me an error and this part became highlighted in yellow.

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _        "C:\Users\littl\Desktop\chits\" & Range("J8").Value & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

 

[mumps]

In your response, the code is on 3 lines. Is that the way it appears in your code module in the workbook or is it on 4 lines as I posted it?

 

[noelmus]

Hi,
Don't know how appeared like that but in my code module is on 4 lines.
Thanks

 

[mumps]

Try:

Sub SavePDF()
    ChDir "C:\Users\littl\Desktop\chits\"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("J8").Value _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End Sub

 

[DanteAmor]

If you have a date in cell J8 then you have to change the "/" to "-"
To make the code clearer, it could look like this:

Sub Macro1()
    ruta = "C:\Users\littl\Desktop\chits\"
    arch = Format(Range("J8").Value, "mm-dd-yyyy")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ruta & arch & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

 

[noelmus]

Hi mumps and Dante,
Mumps the same, it gave me again those 4 lines in highlighted yellow.
Dante in cell J8 I have this number 000123/19 which means invoice number and year and gave me these 4 lines in highlighted yellow.

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _        Filename:=ruta & arch & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False

Thanks

 

[noelmus]

Hi,
I tried another a cell instead of J8 which has just a number and it worked. I tried another cell with a formula and worked too. So I think that the problem is that cell J8 change its value by double click cell K8.
Regards

 

[MARK858]

/ is an illegal character in a filename.