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

https://drive.google.com/drive/u/1/recent

FILE UPLOAD LINK

----------------------------------------------------------------------------------------------------------------------------------------

Set ws = ThisWorkbook.Sheets("Applicant Data")

If Selection Is Nothing Then
MsgBox "Please select the data to convert to PDF.", vbExclamation
Exit Sub
End If


Set rng = Selection


filePath = Application.GetSaveAsFilename(FileFilter:="PDF Files (*.pdf), *.pdf")


If filePath = "False" Then
Exit Sub
End If


rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False


MsgBox "Data has been successfully converted to PDF.", vbInformation
End Sub

---------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub CheckSpellingInWorkbook()
Dim ws As Worksheet
Dim cell As Range


For Each ws In ThisWorkbook.Worksheets

For Each cell In ws.UsedRange.SpecialCells(xlCellTypeConstants)

If Not Application.CheckSpelling(word:=cell.Value) Then

cell.Interior.Color = RGB(255, 0, 0) ' Red color
Else

cell.Interior.Pattern = xlNone
End If
Next cell
Next ws

MsgBox "Spelling check completed.", vbInformation
End Sub