Project 2 - Create a report using PowerQuery, Macro VBA, List Functions and Data Validation functions for Data Reporting of Supply Chain Management companies
link is given below
https://docs.google.com/spreadsheets/d/1-ykK9WakKfDsXxdUqJMiw3jfZORx63z4/edit?usp=share_link&ouid=103060763708639431583&rtpof=true&sd=true
Features of Dashboard
- 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
Data Summary of All Female Client’s for Income and Loan Amount using New Functions
Data Summary of All Male Client’s for Income and Loan Amount using List Functions
Data Summary for all Flag Columns like (FLAG_DOCUMENT_2, FLAG_DOCUMENT_3 etc.) using all variants of DCOUNT function.
Create a Macro for Data Formatting (Conditional Formatting, Freezing Panes) of workbook as same will be applied to the data of next quarter
Note: I have a older version of excel so here i m writing the code
Q. Create VBA Code to convert selected data into pdf from applicant data
ans:
Sub PrintSelectionToPDF()
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
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
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
Q. Check Spelling mistakes in the workbook using VBA Code
ans:
Public Sub SpellCheck()
Dim Rng As Range
For Each Rng In ActiveSheet.UsedRange
If Not Application.CheckSpelling(Rng.Text) Then
Rng.Interior.Color = RGB(255, 0, 0)
End If
Next Rng
End Sub