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

unique(array,[by-col],[exactly_once]

by using this function we can find unique values/names in the given array

filter(array,include,[if_empty])

by using this function we can filter the array by its gender or by giving conditional value

sort(array,[sort_index],[sort_order],[by-col])

by using this function we can sort it in ascending or descending order

filter(array,include,[if_empty])

by using this function we can filter the array by its gender or by giving conditional value

after filtering all males in that array then by using dsum(array) calculating all sum in that array

by using daverage(array) we have average output

by using dcount() function we can count all flag columns

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

Sub ExportSelectionToPDF()
Dim rng As Range
Dim fileSaveName As Variant

If TypeName(Selection) <> "Range" Then
MsgBox "select data you want to convert to PDF.", vbInformation, "No Selection"
Exit Sub
End If

Set rng = Selection

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

If fileSaveName = False Then

Exit Sub
End If

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

End Sub

3. Check Spelling mistakes in the workbook using VBA Code

Sub CheckSpellingMistakes()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range

For Each ws In ThisWorkbook.Worksheets

Set rng = ws.UsedRange

For Each cell In rng

If Not IsEmpty(cell) And VarType(cell) = vbString Then

If Not Application.CheckSpelling(cell.Value) Then

cell.Interior.Color = RGB(255, 0, 0) ' Red color
End If
End If
Next cell
Next ws

End Sub

link:

https://drive.google.com/file/d/1bktDWIIbqQ1PDYBrKN3rpOU1w3osKrDx/view?usp=sharing