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

Separate Worksheet Required for :

2 QUE : Data Summary of All Male Client’s for Income and Loan Amount using List Functions

ANS : Resolution Has been given on the Excel Sheet.

ROW NO : 307518

3 QUE : Data Summary for all Flag Columns like (FLAG_DOCUMENT_2, FLAG_DOCUMENT_3 etc.) using all variants of DCOUNT function.

ANS : Resolution Has been given on the Excel Sheet.

ROW NO : ( CS ROW ) ; 307519 ( COLUMN )

Other Deliverables

1 QUE : Create a Macro for Data Formatting (Conditional Formatting, Freezing Panes) of workbook as same will be applied to the data of next quarter.

ANS : Macro Function Has been Recorded but recording is not getting executed.

Screen shot are attached 

2 QUE : Create VBA Code to convert selected data into pdf from applicant data

ANS : 

Sub PrintSelectionToPDF()
'SUBROUTINE: PrintSelectionToPDF
'DEVELOPER: Ryan Wells
'DESCRIPTION: Print your currently selected range to a PDF

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
'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
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

End Sub

Note : ABOVE FUNCTION HAS BEEN PERFORMED BUT ITS TAKING TOO MUCH OF TIME TO PROCESS IAM ATTACHING THE SCREENSHOT.
PLEASE CHECK 

3 QUE : Check Spelling mistakes in the workbook using VBA Code

ANS : Kindly refer the below code for spell check
Note : Screenshots has been attached

KINDLY UPLOAD YOUR FILE IN GOOGLE DRIVE OR ANY DRIVE AND SHARE THE LINK IN THE TEXT BOX. 

NOTE : LINK HAS BEEN ATTACHED

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