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

Q. Dashboard

https://docs.google.com/spreadsheets/d/1axFWjlxv7STJfoOQeYQy7M-oOqfzqaUC/edit?usp=share_link&ouid=113420503288547109298&rtpof=true&sd=true

Q. Data Summary

https://drive.google.com/file/d/1ed7vb4M0QYG7uJYvwcc6NlC_3pI4D-Wp/view?usp=share_link

Q. VBA Code to convert selected data into pdf from applicant data

Public Sub Convert_to_PDF_format()
Dim MyRng As Range
Dim strfile As String
Dim myfile As Variant

If Selection.Count = 1 Then
Set MyRng = Application.InputBox("Select a range", "Get Range", Type:=8)
Else
Set MyRng = Selection
End If
'Prompt for save location
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 'save as PDF
MyRng.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

Q. Check Spelling mistakes in the workbook using VBA Code

Public Sub Spell_check()
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