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

https://docs.google.com/spreadsheets/d/1rAxITP-hZ_pTWlPfOJKeC1VOD8IL1pVv/edit?usp=share_link&ouid=100168097944486662200&rtpof=true&sd=true

Password:123456

1.Sub ConditionalFormatting()
'
' ConditionalFormatting Macro
'

'
Columns("B:B").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""Cash Loans"""
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
End Sub

3.

Sub freezingPanes()
'
' freezingPanes Macro
'

'
ActiveWindow.FreezePanes = True
ActiveWindow.SmallScroll Down:=220
ActiveWindow.ScrollRow = 485
ActiveWindow.ScrollRow = 956
ActiveWindow.ScrollRow = 1898
ActiveWindow.ScrollRow = 10845
ActiveWindow.ScrollRow = 12728
ActiveWindow.ScrollRow = 21204
ActiveWindow.ScrollRow = 23558
ActiveWindow.ScrollRow = 39568
ActiveWindow.ScrollRow = 42864
ActiveWindow.ScrollRow = 55578
ActiveWindow.ScrollRow = 60758
ActiveWindow.ScrollRow = 70646
ActiveWindow.ScrollRow = 76297
ActiveWindow.ScrollRow = 93719
ActiveWindow.ScrollRow = 97957
ActiveWindow.ScrollRow = 118676
ActiveWindow.ScrollRow = 122443
ActiveWindow.ScrollRow = 140807
ActiveWindow.ScrollRow = 143162
ActiveWindow.ScrollRow = 157759
ActiveWindow.ScrollRow = 162939
ActiveWindow.ScrollRow = 181303
ActiveWindow.ScrollRow = 185070
ActiveWindow.ScrollRow = 199196
ActiveWindow.ScrollRow = 201551
ActiveWindow.ScrollRow = 211910
ActiveWindow.ScrollRow = 214264
ActiveWindow.ScrollRow = 225095
ActiveWindow.ScrollRow = 227920
ActiveWindow.ScrollRow = 234512
ActiveWindow.ScrollRow = 234983
ActiveWindow.ScrollRow = 236396
ActiveWindow.ScrollRow = 236867
ActiveWindow.ScrollRow = 238279
ActiveWindow.ScrollRow = 238750
ActiveWindow.ScrollRow = 240634
ActiveWindow.ScrollRow = 241105
ActiveWindow.ScrollRow = 242517
ActiveWindow.ScrollRow = 243459
ActiveWindow.ScrollRow = 245342
ActiveWindow.ScrollRow = 245813
ActiveWindow.ScrollRow = 246284
ActiveWindow.ScrollRow = 246755
ActiveWindow.ScrollRow = 247226
ActiveWindow.ScrollRow = 247697
ActiveWindow.ScrollRow = 248168
ActiveWindow.ScrollRow = 256173
ActiveWindow.ScrollRow = 262765
ActiveWindow.ScrollRow = 263707
ActiveWindow.ScrollRow = 268416
ActiveWindow.ScrollRow = 268886
ActiveWindow.ScrollRow = 270770
ActiveWindow.ScrollRow = 271241
ActiveWindow.ScrollRow = 278775
ActiveWindow.ScrollRow = 281129
ActiveWindow.ScrollRow = 288192
ActiveWindow.ScrollRow = 289134
ActiveWindow.ScrollRow = 291959
ActiveWindow.ScrollRow = 292901
ActiveWindow.ScrollRow = 297610
ActiveWindow.ScrollRow = 299023
ActiveWindow.ScrollRow = 302790
ActiveWindow.ScrollRow = 305144
ActiveWindow.ScrollRow = 307499
ActiveWindow.ScrollRow = 304673
ActiveWindow.ScrollRow = 271712
ActiveWindow.ScrollRow = 255231
ActiveWindow.ScrollRow = 252406
ActiveWindow.ScrollRow = 236396
ActiveWindow.ScrollRow = 233100
ActiveWindow.ScrollRow = 215677
ActiveWindow.ScrollRow = 212852
ActiveWindow.ScrollRow = 194958
ActiveWindow.ScrollRow = 190721
ActiveWindow.ScrollRow = 168589
ActiveWindow.ScrollRow = 164822
ActiveWindow.ScrollRow = 142691
ActiveWindow.ScrollRow = 139395
ActiveWindow.ScrollRow = 121030
ActiveWindow.ScrollRow = 117263
ActiveWindow.ScrollRow = 99370
ActiveWindow.ScrollRow = 92778
ActiveWindow.ScrollRow = 81477
ActiveWindow.ScrollRow = 79122
ActiveWindow.ScrollRow = 70175
ActiveWindow.ScrollRow = 68292
ActiveWindow.ScrollRow = 58874
ActiveWindow.ScrollRow = 57462
ActiveWindow.ScrollRow = 50399
ActiveWindow.ScrollRow = 48044
ActiveWindow.ScrollRow = 40510
ActiveWindow.ScrollRow = 38627
ActiveWindow.ScrollRow = 29680
ActiveWindow.ScrollRow = 28267
ActiveWindow.ScrollRow = 20733
ActiveWindow.ScrollRow = 19321
ActiveWindow.ScrollRow = 13670
ActiveWindow.ScrollRow = 12728
ActiveWindow.ScrollRow = 8961
ActiveWindow.ScrollRow = 7549
ActiveWindow.ScrollRow = 4723
ActiveWindow.ScrollRow = 3782
ActiveWindow.ScrollRow = 15
ActiveWindow.SmallScroll Down:=-44
End Sub