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

Dashboard And Other Data File Link:- https://drive.google.com/drive/folders/1UQI98y_5vM8YvrL4foFooyYYRYpXyFZ3?usp=share_link

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

Sub Macro_for_Data_Formatting()
'
' Macro_for_Data_Formatting Macro
'

'
Cells.Select
Range("F9").Activate
Cells.EntireColumn.AutoFit
Columns("D:D").Select
Selection.FormatConditions.Add Type:=xlTextString, String:="M", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlTextString, String:="F", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlTextString, String:="XNA", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.TintAndShade = -0.249946592608417
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("E2").Select
ActiveWindow.FreezePanes = True
End Sub

2 VBA Code for convert selected data into pdf from applicant data

Sub ConvertDataToPDF()

Dim myfile As String
Dim myrows As Range

'Get the selected data
Set myrows = Selection

'Prompt the user for a file name
myfile = Application.GetSaveAsFilename( _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="Save selected data as PDF")

'Check if a file name was entered
If myfile <> "False" Then

'Export the selected data to a PDF
myrows.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=myfile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End If

End Sub

3. Check Spelling mistakes in the workbook using VBA Code

Sub SpellCheck2()
Dim ws As Worksheet
Dim rng As Range
Dim cel As Range
Set ws = ActiveSheet
Set rng = ws.UsedRange
For Each cel In rng
cel.CheckSpelling
Next cel
End Sub