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

convert excel to pdf

Sub SaveAsPDF()

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.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FilePath & "\" & FileName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False

MsgBox "Completed", vbInformation, ""

End Sub

Spelling Mistake

Sub HighlightMisspellings()

Dim cell As range
For Each cell In ActiveSheet.UsedRange

'Check the spelling and if it's wrong, 
If Not Application.CheckSpelling(word:=cell.Text) Then
cell.Style = "Bad"
End If

Next cell

End Sub


PROJECT LINK

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