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

https://docs.google.com/spreadsheets/d/1nPBBuWK8FOcCp6ADqOp0Ug_98SmSEG4K/edit?usp=drive_link&ouid=110609402910494503971&rtpof=true&sd=true

Data Summary of All Female Client's for Income and Loan Amount

=UNIQUE(array,FALSE,FALSE)

=SORT(array,[sort_Index(AMT_INCOME_TOTAL)],[sort_order(1 for Assendin,-1 for Dessending)])

=FILTER(array,Include(CODE_GENDER = F))

Repeat These Function to AMT_CREDIT Column and

Using =Sum(array) Function to Get Income and Loan Amount of All Female Client's

VBA Code to Convert selected data into pdf

Sub PrintSelectionToPDF()
'SUBROUTINE: PrintSelectionToPDF
'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

Check Spelling Mistakes in the Workbook Using VBA Code

Sub SpellingMistakes()
Dim rng As Range
For Each rng In ThisWorkbook.Sheets("sheet1").UsedRange
If Not Application.CheckSpelling(word:=rng.Text) Then
rng.Style = "bad"
End If
Next rng

End Sub