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

GOOGLE DRIVE LINK:

https://docs.google.com/spreadsheets/d/1WtCUOYf8RFTo-kU-R69qdFFIvewWCcE6/edit?usp=share_link&ouid=105618538201782021153&rtpof=true&sd=true

convert selected data into pdf:

Sub PrintSelectionTo PDF

Dim ThisRng As Range

Dim strfile As String

Dim myfile As Variant

If Selection.Count = 1 Then

Set ThisRng = Application.InputBox("Select a range","Get Range",Type:=8)

Else If

'Prompt for save location strfile = "Selection" & "_"_ & Format(Now(), "yyyymmdd_hhmmss") _ & ".pdf" strfile = This Workbook.Path & "\" & strfile myfile = Appilication.GetSaveAsFilename _ (InitialFileName:=strfile, _FileFilter:="PDF Files (*.pdf), *.pdf", _ Title:="Select Folder and File Name to Save as PDF")

If myfile <> "False" Then

'save as PDF

ThisRng.ExportAsFixedFormat Type:=xlTypePDF,Filename:= _ myfile,Quality:=xlQualityStandard,IncludeDocProperties:=True, _IgnorePrintAreas:=False,OpenAfterPublish:=True

Else

MsgBox "No File Selected .

PDF will not be saved",

vbOKOnly, "No File Selected"

End If

End Sub

Spelling mistakes in the workbook using VBA Code:

Sub Highlight_Misspelled_Words()

Dim cell as Range

For Each cell In ActiveSheet.UsedRange

If Not Application.CheckSpelling(Word:=cell.Text) Then cell.Interior.ColorIndex = 6

Next

End Sub