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

1. Features of Dashboard - https://drive.google.com/file/d/15Wcs9nZyzuz5xul84Ggl4tosl0f-de4N/view
2. Features of Dashboard - https://drive.google.com/file/d/15Wcs9nZyzuz5xul84Ggl4tosl0f-de4N/view
3. Features of Dashboard - In text i have wirte a code

• Create a macro for conditional formatting & freezing panes

Sub ApplyConditionalFormattingAndFreezePanes()
' Set the range to which you want to apply conditional formatting
Dim rng As Range
Set rng = Range("A1:D10") ' Change the range as per your requirements

' Apply the conditional formatting rule
With rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=A1=1")
.Interior.Color = RGB(255, 0, 0) ' Change the color as per your requirements
End With

' Freeze the panes
With ActiveWindow
.SplitColumn = 1 ' Specify the column number after which you want to freeze the panes
.SplitRow = 1 ' Specify the row number after which you want to freeze the panes
.FreezePanes = True
End With
End Sub

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

Sub ConvertSelectedDataToPDF()
' Create a new workbook and copy the selected data
Dim newWorkbook As Workbook
Set newWorkbook = Workbooks.Add
ThisWorkbook.ActiveSheet.UsedRange.Copy newWorkbook.Sheets(1).Range("A1")

' Set the PDF file path and name
Dim filePath As String
filePath = "C:\Path\To\Save\PDF\File.pdf" ' Change the path and file name as per your requirements

' Export the new workbook as PDF
newWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filePath, Quality:=xlQualityStandard

' Close the new workbook without saving changes
newWorkbook.Close SaveChanges:=False

' Show a message box indicating the PDF creation completion
MsgBox "Selected data has been converted to PDF successfully!"
End Sub

• Check Spelling mistakes in the workbook using VBA Code

Sub CheckSpellingInWorkbook()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Activate ' Activate each worksheet in the workbook
Cells.CheckSpelling ' Check spelling for all cells in the active sheet
Next ws
MsgBox "Spelling check complete!"
End Sub