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

DRIVE LINK:

https://docs.google.com/spreadsheets/d/1AC8fwVTl7RW7qg5MsqqJfVTch3nrm9vC/edit?usp=sharing&ouid=113283503942868262380&rtpof=true&sd=true

Q 2.1 ) New function -

a)Filter function

=FILTER(A1:C307512,A1:A307512="F")

b)Sort function

=SORT(A1:C307512,B1:B307512,1)

New Function like SORT Function and Filter Function are not working in my computer .Thats why i am using DSUM,DMIN,DMAX,DAVERAGE Function.

Q3.1) VBA for Data Formatting (Conditional Formatting, Freezing Panes) of workbook as same will be applied to the data of next quarter

Sub macro1()
'
' macro1 Macro
'

'
Selection.FormatConditions.Add Type:=xlTextString, String:= _
"Revolving loans", TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
ActiveWindow.ScrollRow = 490
ActiveWindow.ScrollRow = 16158
ActiveWindow.ScrollRow = 56307
ActiveWindow.ScrollRow = 85195
ActiveWindow.ScrollRow = 158150
ActiveWindow.ScrollRow = 227187
ActiveWindow.ScrollRow = 250689
ActiveWindow.ScrollRow = 289859
ActiveWindow.ScrollRow = 307486
ActiveWindow.ScrollRow = 303079
ActiveWindow.ScrollRow = 241386
ActiveWindow.ScrollRow = 178714
ActiveWindow.ScrollRow = 156681
ActiveWindow.ScrollRow = 120448
ActiveWindow.ScrollRow = 107718
ActiveWindow.ScrollRow = 44556
ActiveWindow.ScrollRow = 1
Range("C11").Select
ActiveCell.FormulaR1C1 = "Revolving loans"
Range("C1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FormatConditions.Add Type:=xlTextString, String:= _
"Revolving loans", TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("L2").Select
ActiveWindow.SmallScroll Down:=-15
Columns("H:H").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="=99000"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16754788
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 10284031
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Columns("L:L").Select
Selection.FormatConditions.Add Type:=xlTextString, String:="Family", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16752384
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13561798
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Columns("M:M").Select
Selection.FormatConditions.Add Type:=xlTextString, String:="Working", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16754788
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 10284031
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("L9").Select
ActiveWindow.SmallScroll Down:=-3
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
ActiveWindow.SmallScroll Down:=-60
With ActiveWindow
.SplitColumn = 1
.SplitRow = 0
End With
ActiveWindow.FreezePanes = True
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
End Sub

Q.) Create VBA Code to convert selected data into pdf from applicant data

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

Q.)

Q.) Check Spelling mistakes in the workbook using VBA Code.

4.) Sub HighlightMisspellings()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
'Check the spelling and if it's wrong, then change the style to be Bad
If Not Application.CheckSpelling(word:=cell.Text) Then
cell.Style = "Bad"
End If
Next cell
End Sub