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

VBA Code to convert selected data into pdf

Public Sub convertintoPDF()

Dim WS As Worksheet

Dim FileName As String
Dim FilePath As String

Set WS = ActiveSheet

FileName = "Result PDF"

WS.PageSetup.Orientation = xlPortrait

FilePath = ThisWorkbook.Path

WS.convertinto pdf Type:=xlTypePDF, FileName:=FilePath & "\" & FileName & ".pdf", _ Quality:=xlQualityStandard

IncludeDocProperties:=True, IgnorePrintAreas:=False

MsgBox "Completed", vbInformation, ""

End Sub

VBA Code to check spelling mistakes

Public sub spellcheck()

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

* Freeze panes macro name is 'create'.

https://drive.google.com/file/d/1mbLIHiubUOGJTR1FVgWBysipaXuWNf8t/view?usp=share_link