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

You are working as Business Analyst in IJS Bank Limited. Currently your organization is working on Loan Applicant Clients for the current quarter. The Manager of the Branch asked you to analyze Loan Applicant’s data and to Present appropriate report on the shared data. The report should be demonstrated using Dashboard into MS Excel.

Features of Dashboard - create pivot charts for all below mentioned questions & make an attractive dashboard out of it.

• Gender Ratio of Applicants
• Car Owner/ Non-Owner Ratio
• House Owner/ Non-Owner Ratio
• Client Income Type
• Client’s Level of Education
• Client’s Housing Type
• Client’s Family Status
• Client’s Occupation Type

Separate Worksheet Required for

• Data Summary of All Female Client’s for Income and Loan Amount using New Functions (hint: use unique,sort,filter functions) if These functions are not supporting in your software please give a theoritical answer.
• Data Summary of All male Client’s for Income and Loan Amount using list Functions (hint:use dsum,daverage,..)

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

Other Deliverables:-

Create a macro for conditional formatting & freezing panes

Public Sub DataFormatting ()

Dim MyRange As Range

Set MyRange = Range("A1: DR307512")

MyRange. FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween,_

Formulal:="100", Formula2:="=150"

MyRange. FormatConditions (1). Interior.Color RGB (156, 0, 0)

MyRange. FormatConditions.Add Type:=xlCellValue, Operator:=xlLess,_

Formulal:="100"

MyRange. FormatConditions (2). Interior.Color = vbGreen

MyRange. FormatConditions. Add Type:=xlCellValue, Operator:=xlGreater,_

Formulal:="150"

MyRange. FormatConditions (3). Interior.Color = vbviolet

MyRange. FormatConditions. Add Type:=xlCellValue, Operator:=xlLess,_

Formulal:="100"

MyRange. FormatConditions (2). Interior.Color = vborange

End Sub

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

Sub SaveActiveSheetsAsPDF()

'Create and assign variables
Dim saveLocation As String
saveLocation = "C:\Users\hp\Downloads\About Applicant Data.csv"
'Save Active Sheet(s) as PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=saveLocation

End Sub

Check Spelling mistakes in the workbook using VBA Code

Sub SpellCheckActiveSheet()

ActiveSheet.CheckSpelling

End Sub

• And for highlight misspelling

Sub Highlight_Misspelled_Words()

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

All the sheets are attached by a Google drive link:- https://drive.google.com/drive/folders/1iHpX6Ck4QQEKI06MIMDoFcrB4qk5FAR7