Saving PDF and naming based on Cell Value

[elad770]

Hi everyone,

I don't know why I never thought of posting this issue here, but I'm trying for the last 3 months to figure out what is it that I do wrong

This is my file and the relevant code below.

I made this function (I don't even remember how, LOL ) That when I put the data inside cells and click on SUBMIT, the script will:

Compile a PDF file containing the table data, save it in the defined folder, and created a hyper link in "Data sheet" that I can recall this PDF file when I want.

The Problem I have is with NAMING. I simply want the file to be named: The service type (e.g. Lunch, Breakfast etc) and the date.

The service type is in P6 and the date is in J6 (Right now you see in the code something else because it crashes)

No matter what I do, I get an error when the script is trying to save two cell values that one of them is a date. I tries EVERYTHING!! nothing works

I would highly appreciate any assistance here


Sampl 2.8.xlsm

Please Login or Register  to view this content.

[ByteMarks]

Possibly because the date contains / which can't be used in the file name?

Try formatting it differently:

Please Login or Register  to view this content.

[elad770]

I tried that many times.

I tried it with changing the VBA similar to what you did.
I tried to change the cell formatting
I tried it on a different computer

I tried everything

I even tried to place the date on a different cell.

I keep getting an error and this is what I see when I click on DebugScreenshot 2025-04-29 132046.png

elad770

[bakerman2]

You have name = name = Sheet1.....
Only name = Sheet1... is required.

[elad770]

I changed what I could. Doesn't work

Please Login or Register  to view this content.

Please Help!

[jolivanes]

If you replace this

Please Login or Register  to view this content.

with this

Please Login or Register  to view this content.

and change this

Please Login or Register  to view this content.

to this

Please Login or Register  to view this content.

does it work then?

name might be a proprietary word

[elad770]

I made the changes you offered. Doesn't work.

This is what I'm getting as error

Please Login or Register  to view this content.

When I click on Decbug, this is what is highlighted

Sheet1.Range("A1:T33").ExportAsFixedFormat Type:=xlTypePDF, Filename:=path & name & ".pdf"

elad770

[bakerman2]

Just tested your code and it works fine for me.
Which is the error message your receiving ?
The only thing I can come up with is that there's an error in path.