command button 1 (save as pdf named the current time and date . then send by email

You should use CODE tags as to adhere to the forum rules

Please Login or Register  to view this content.

Have you tried simply just putting the code from one into the other? If not you could set the active workbook to a workbook variable at the beginning and just activating the workbook in between. This would be if you sent via email and it did not reactivate excel automatically.

i tried that before . it didnt work . with that format. it will save as PDF file. but when it gets attached. it will attach the excel sheet format. XLSM or XLS . something like that. as if you are hitting save then send
i need the PDF file to be sent

I misunderstood what you meant. I am not sure how to do that solely in excel. Sorry.

i have been told that it can be done by code filepath strin or pathfil string. any idea whats that command do ?

ok .... i found this but i dont know what i have to change . ca someone help me. all i need is to copy and paste . lol


Option Explicit

'Note: The macro's in this module call the functions in the "FunctionsModule"
'Be sure that you also copy the code from this module if you want to use it in your own workbook.

Sub RDB_Workbook_To_PDF_And_Create_Mail()
Dim FileName As String

'Call the function with the correct arguments
FileName = RDB_Create_PDF(ActiveWorkbook, "", True, False)

'For a fixed file name and overwrite it each time you run the macro use
'RDB_Create_PDF(ActiveWorkbook, "C:\Users\Ron\Test\YourPdfFile.pdf", True, True)

If FileName <> "" Then
RDB_Mail_PDF_Outlook FileName, "[email protected]", "This is the subject", _
"See the attached PDF file with the last figures" _
& vbNewLine & vbNewLine & "Regards Ron de bruin", False
Else
MsgBox "Not possible to create the PDF, possible reasons:" & vbNewLine & _
"Microsoft Add-in is not installed" & vbNewLine & _
"You Canceled the GetSaveAsFilename dialog" & vbNewLine & _
"The path to Save the file in arg 2 is not correct" & vbNewLine & _
"You didn't want to overwrite the existing PDF if it exist"
End If
End Sub



Sub RDB_Worksheet_Or_Worksheets_To_PDF_And_Create_Mail()
Dim FileName As String

If ActiveWindow.SelectedSheets.Count > 1 Then
MsgBox "There is more then one sheet selected," & vbNewLine & _
"be aware that every selected sheet will be published"
End If

'Call the function with the correct arguments
'Tip: You can also use Sheets("Sheet3") instead of ActiveSheet in the code(sheet not have to be active then)
FileName = RDB_Create_PDF(ActiveSheet, "", True, False)

'For a fixed file name and overwrite it each time you run the macro use
'RDB_Create_PDF(ActiveSheet, "C:\Users\Ron\Test\YourPdfFile.pdf", True, True)

If FileName <> "" Then
RDB_Mail_PDF_Outlook FileName, "[email protected]", "This is the subject", _
"See the attached PDF file with the last figures" _
& vbNewLine & vbNewLine & "Regards Ron de bruin", False
Else
MsgBox "Not possible to create the PDF, possible reasons:" & vbNewLine & _
"Microsoft Add-in is not installed" & vbNewLine & _
"You Canceled the GetSaveAsFilename dialog" & vbNewLine & _
"The path to Save the file in arg 2 is not correct" & vbNewLine & _
"You didn't want to overwrite the existing PDF if it exist"
End If
End Sub



Sub RDB_Selection_Range_To_PDF_And_Create_Mail()
Dim FileName As String

If ActiveWindow.SelectedSheets.Count > 1 Then
MsgBox "There is more then one sheet selected," & vbNewLine & _
"ungroup the sheets and try the macro again"
Else
'Call the function with the correct arguments


'For a fixed range use this line
FileName = RDB_Create_PDF(Range("A10:I15"), "", True, False)

'For the selection use this line
'FileName = RDB_Create_PDF(Selection, "", True, True)

'For a fixed file name and overwrite it each time you run the macro use
'RDB_Create_PDF(Selection, "C:\Users\Ron\Test\YourPdfFile.pdf", True, True)

If FileName <> "" Then
RDB_Mail_PDF_Outlook FileName, "[email protected]", "This is the subject", _
"See the attached PDF file with the last figures" _
& vbNewLine & vbNewLine & "Regards Ron de bruin", False
Else
MsgBox "Not possible to create the PDF, possible reasons:" & vbNewLine & _
"Microsoft Add-in is not installed" & vbNewLine & _
"You Canceled the GetSaveAsFilename dialog" & vbNewLine & _
"The path to Save the file in arg 2 is not correct" & vbNewLine & _
"You didn't want to overwrite the existing PDF if it exist"
End If
End If
End Sub

i want to have that macro in my excel sheet. but i want to change the method of save to ....
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\SAFA\Documents\SAFA Dispatch Handover Report " & _
Format(Now, "dd mmm yy hh mm ") & ".pdf"



then i want that PDF file to be send as mail. i found the code above. but i couldnt know how to combine them under one button

Hi -

Use CODE tags in your post.

Please Login or Register  to view this content.

event

Event 21. you are the best !!!! thank you !!!oh my God!! it took me a week to get this , i can submit my deadline now ))))