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

LINK FOR GOOGLE DRIVE :https://docs.google.com/spreadsheets/d/1hFoclOBnR9sgUqntoQlOvSqpuwMp-sen/edit?usp=share_link&ouid=116153081466435407722&rtpof=true&sd=true

• Create a Macro for Data Formatting (Conditional Formatting, Freezing Panes) of workbook as same will be applied to the data of next quarter

Sub IJS_BANK_LTD()
'
' IJS_BANK_LTD Macro
' DATA FORMATTING AND CONDITIONAL FORMATTING
'

'
Range("A1:DR1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("G28").Select
ActiveCell.FormulaR1C1 = "0"
Cells.Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("F9").Select
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 36
ActiveWindow.ScrollColumn = 49
ActiveWindow.ScrollColumn = 65
ActiveWindow.ScrollColumn = 85
ActiveWindow.ScrollColumn = 94
ActiveWindow.ScrollColumn = 96
ActiveWindow.ScrollColumn = 98
ActiveWindow.ScrollColumn = 100
ActiveWindow.ScrollColumn = 101
ActiveWindow.ScrollColumn = 102
ActiveWindow.ScrollColumn = 104
ActiveWindow.ScrollColumn = 105
ActiveWindow.ScrollColumn = 107
ActiveWindow.ScrollColumn = 109
ActiveWindow.ScrollColumn = 111
ActiveWindow.ScrollColumn = 112
ActiveWindow.ScrollColumn = 114
ActiveWindow.ScrollColumn = 115
ActiveWindow.ScrollColumn = 114
ActiveWindow.ScrollColumn = 76
ActiveWindow.ScrollColumn = 56
ActiveWindow.ScrollColumn = 37
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 1
Range("K5").Select
End Sub

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

Sub Save_excel_as_pdf()
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF
End Sub

• Check Spelling mistakes in the workbook using VBA Code

Sub spellcheck()
For Each Sh In Worksheets
Sheets(Sh.Name).Cells.CheckSpelling
Next
End Sub