Data Reporting of Supply Chain Management companies using Advanced Excel

Q1 https://drive.google.com/file/d/14l5x8BOj6lZhmk-vob1bvAyxTOkBSZgD/view?usp=drive_link

Q2 https://drive.google.com/file/d/1qP5mm-8lJ95lehARiZKZf22Mce08Pr1P/view?usp=drive_link

Q3(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

Q3(C) Check Spelling mistakes in the workbook using VBA Code

Public Sub check()

SheetCells.CheckSpelling

End Sub