Project 2 - Create a report using PowerQuery, Macro VBA, List Functions and Data Validation functions for Data Reporting of Supply Chain Management companies
The below is link to Dashboard
The below is link to macros file
Link of pdf file
https://drive.google.com/file/d/1huhGgNQq_B-w4VaLaKc9PI8YrXLUo2Vl/view?usp=drive_link
The VBA code is mentioned below
For conditional formatting a macro is recorded and conditional formatting using different criterias has been done and freeze planes of first row
Public Sub ExcelToPDF()
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
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
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
Sub SpellCheckInSpecificSheets()
Worksheets("Sheet1").CheckSpelling
End Sub
Sub SpellCheckInSelectedCells()
Selection.CheckSpelling
End Sub