Name of PDF From Cell Value

Legacy 436357 · Aug 12, 2019

Hello,

I have a cell value that I would like as the PDF file name plus today's date included in the name.

For instance:

HAN6597 8/12/2019

Is this possible to do? Also what if the same customer code (in cell H2) and same date are sent to PDF more than once? Does the PDF get replaced or ignored?

The 'New Invoice' is where the name of the PDF is from the code below. This is where the customer code and today's date should be.

Thank you so much for your help,
xj

Rich (BB code):

 Private Sub CommandButton1_Click()
     Dim NxtRw As Long
     Application.EnableEvents = False
     If Range("J3").Value = "" Then
        NxtRw = 3
     Else
        NxtRw = Range("J2").End(xlDown).Offset(1).Row
     End If
     Range("J" & NxtRw).Value = Range("H6").Value
     Range("K" & NxtRw).Value = Range("H3").Value
     Range("L" & NxtRw).Value = Format(Now(), "MM/dd/yyyy HH:MM:SS")
   
     Application.EnableEvents = True
      Range("B2:H53").ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurrentPath & "C:\Users\xj\Desktop\Invoices\New Invoice", _
     Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas _
      :=False, OpenAfterPublish:=True
      
     
  End Sub

Twollaston · Aug 12, 2019

xjohnson said:
That's okay I can manage like it is. I appreciate all of the help today.

I hope I can return the favors one day.

Don't worry about it buddy, It is my pleasure to help you.

Have a good day

DanteAmor · Aug 12, 2019

xjohnson said:
Thank you DanteAmor that is very close may I request it be slightly different?

I changed the H6 cell to H2 where the customer code resides and this is the name now:

HAN659710508-12-2019 15-21-48

I would like it to be:

HAN6597 105 08-12-2019 15:21:48

The first part is the customer code
The second part is the invoice number
The third part is the date of course
The fourth part is the time

Thank you

File names cannot contain any of the following characters:
/ \: *? "<> |

then you can use - _ or nothing, for example:

Code:

wFile =[COLOR=#ff0000] [H2] & " " & [H3]  & " " [/COLOR]& Format(Now(), "mm-dd-yyyy [COLOR=#0000ff]HH-MM-SS[/COLOR]") & ".pdf"

Code:

wFile = [COLOR=#ff0000][H2] & " " & [H3]  & " "[/COLOR] & Format(Now(), "mm-dd-yyyy [COLOR=#0000FF]HH_MM_SS[/COLOR]") & ".pdf"

Code:

wFile =[COLOR=#ff0000] [H2] & " " & [H3]  & " "[/COLOR] & Format(Now(), "mm-dd-yyyy [COLOR=#0000FF]HHMMSS[/COLOR]") & ".pdf"

Adjust the cells to your liking in this part: [H2] & " " & [H3] & " "

Legacy 436357 · Aug 13, 2019

Hi Twollaston,

I set up some folders for the invoices.

I am using my personal google drive to store them.
C:\Users\BPeterson\Google Drive\Invoices\2019 and then I have Jan, Feb, Mar, etc.

I have 2020, 2021, 2022, and 2023 with 3 digit months for each.

How can the code determine the correct paths?

Thank you so much for your help

Legacy 436357 · Aug 13, 2019

I started a new thread since this was off topic. Sorry

DanteAmor · Aug 15, 2019

Do not worry. A pleasure to help you.

Name of PDF From Cell Value

Legacy 436357

Guest

Twollaston

Board Regular

Excel Facts

DanteAmor

Well-known Member

Legacy 436357

Guest

Legacy 436357

Guest

DanteAmor

Well-known Member

Similar threads

Forum statistics

Share this page

Name of PDF From Cell Value

Legacy 436357

Guest

Twollaston

Board Regular

Excel Facts

DanteAmor

Well-known Member

Legacy 436357

Guest

Legacy 436357

Guest

DanteAmor

Well-known Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock