DeBug error

I have a Macro created but I am having issues with a string and cannot figure out what is the issue. My hope is that this string will export the 2 files listed( EE QA Form and TP QA Form) into a single PDF with the reps name listed in the title ( Range D9)...and if it can also include the date and time of the call being used which is in cell G13 and H13. Each time it is used it should create a new PDF file every time it is ran.

What am I missing??

Dim ref As String
 Dim filename1 As String

Path = "T:\Consolidated_Call_Center_Reporting\Quality Reports\QA Forms\PDF\_"
 Sheets(Array("EE QA Form", "TP QA Form")).Select
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:="T:\Consolidated_Call_Center_Reporting\Quality Reports\QA Forms\PDF\_ " & Range("D9").Text _
      & ".pdf", openafterpublish:=False, ignoreprintareas:=False
     
            
    
     MsgBox "All PDF's have been successfully exported."

~Thank you for any help!

Turtle,

Welcome to the forum. Please use Code Tags when posting code.

This works for me.

Dim Path As String, filename1 As String

Path = "T:\Consolidated_Call_Center_Reporting\Quality Reports\QA Forms\PDF\_"
filename1 = Sheets("sheetnamehere").Range("D9").Text

Sheets(Array("EE QA Form", "TP QA Form")).Select
ActiveSheet.ExportAsFixedFormat 0, Path & filename1

Awesome! 1 more thing, in the field where it states where to pull the info from for the file name, is there a way to pull additional information in different cells and have that placed in the name as well. For instance, the date and time of the call as well as the name of the agent. So currently D9 is the name of the agent, but in G13 and H13 are the date and time of the call. Is that possible to add to the formula?

filename1 = Sheets("TP QA Form").Range("D9").Text

I tried adding it like this and it did not work:

filename1 = Sheets("TP QA Form").Range("D9", "G13", "H13").Text

Suggestions? Can it be done?

Second request to use Code Tags when posting code. It is a violation of Forum Rule#3. To edit your previous post follow next guidelines.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

Please do this if you want to receive further help on your query.

Turtle1219

Please edit post 3 and add the code tags. I have added them to your initial post for you.


You won't get any further responses to this thread until you do.

DominicB



Code Tags Added
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html

Like this.

    With Sheets("TP QA Form")
        filename1 = .Range("D9").Value & _
                    .Range("G13").Value & _
                    .Range("H13").Value
    End With

This will most likely give you an error since G13 and H13 are Date and Time values that will need replacing the / and : marks but it will give you a general idea.