Project 2 - Create a report using PowerQuery, Macro VBA, List Functions and Data Validation functions for Data Reporting of Supply Chain Management companies

3 (b)

VBA Code to convert selected data into pdf from applicant data:

Sub PDFConversion()

Dim r As Range

Dims As String If Selection.Count = Than

Set r = ApplicationInputBox("Select a range: "Get Range Type-a)

Else

Set r = Selection

End it

strile- "Selection &

& Format (Now0. yyyymmdd_hhmmss") & "pdf"

strile-ThisWorkbook Path & "\" & strfile

myfile = Application GetSaveAsFilename (InitialFileName-strfile,

FileFilter:-"PDF Files (.pdf), "par Title="Select Folder and File Name to Save a PDE")

It myfile Tabse Then

ExportAsFixedFormat Type:=x/TypePDF, Filename myfile, Quality Quality Standard, IncludeDocProperties=True, IgnorePrintAreas-False, OpenAfterPublish-True

Else

MsgBox "No File Selected PDF will not be saved", vbOKOnly. "No File Selected

End it End Sub

3 (c)

Check Spelling mistakes in the workbook using VBA Code

Public Sub check()

SheetCells.CheckSpelling

End Sub