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/folders/1js6EsGFFwmXtEHC1ySkF75Ys3xu2DybW?usp=share_link

• Check Spelling mistakes in the workbook using VBA Code

Sub ColorMispelledCells()
Dim xRg As Range, xCell As Range
On Error Resume Next
Set xRg = Application.InputBox("please select range：", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In xRg
If Not Application.CheckSpelling(xCell.Text) Then _
xCell.Interior.ColorIndex = 28
Next
Application.ScreenUpdating = True
End Sub

• Create VBA Code to convert selected data into pdf from applicant data

Sub PrintSelectionToPDF()

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
Set ThisRng = Selection
End If
strfile = "Selection" & "_" _
& Format(Now(), "yyyymmdd_hhmmss") _
& ".pdf"
strfile = ThisWorkbook.Path & "\" & strfile

myfile = Application.GetSaveAsFilename _
(InitialFileName:=strfile, _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="Select Folder and File Name to Save as PDF")

If myfile <> "False" Then
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

https://drive.google.com/drive/folders/1js6EsGFFwmXtEHC1ySkF75Ys3xu2DybW?usp=share_link