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

https://docs.google.com/spreadsheets/d/1_Q9_3i7N4umzvQVoEitWunrb2dTsFmrl/edit?usp=share_link&ouid=110264548077271847023&rtpof=true&sd=true

https://docs.google.com/spreadsheets/d/1I8cd53vrFUNnkFqLiqA09Dijsq8l7nyY/edit?usp=share_link&ouid=110264548077271847023&rtpof=true&sd=true

myfile = Application.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

vba code for spellling check

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.CheckSpelling(Target.Value) = False Then
Target.Font.Color = rgbRed
Else
Target.Font.Color = rgbBlack
End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub