Project 2 - Create a report using PowerQuery, Macro VBA, List Functions and Data Validation functions for Data Reporting of Supply Chain Management companies
Sub FormatData()
'Conditional Formatting
Range("A2:E100").FormatConditions.AddColorScale ColorScaleType:=3
Range("A2:E100").FormatConditions(1).ColorScaleCriteria(1).Type = xlConditionValuePercentile
Range("A2:E100").FormatConditions(1).ColorScaleCriteria(1).Value = 0
Range("A2:E100").FormatConditions(1).ColorScaleCriteria(1).FormatColor.Color = RGB(255, 255, 0)
Range("A2:E100").FormatConditions(1).ColorScaleCriteria(2).Type = xlConditionValuePercentile
Range("A2:E100").FormatConditions(1).ColorScaleCriteria(2).Value = 50
Range("A2:E100").FormatConditions(1).ColorScaleCriteria(2).FormatColor.Color = RGB(0, 255, 0)
Range("A2:E100").FormatConditions(1).ColorScaleCriteria(3).Type = xlConditionValuePercentile
Range("A2:E100").FormatConditions(1).ColorScaleCriteria(3).Value = 100
Range("A2:E100").FormatConditions(1).ColorScaleCriteria(3).FormatColor.Color = RGB(255, 0, 0)
'Freezing Panes
ActiveWindow.FreezePanes = True
End Sub
Sub ConvertToPDF()
Dim myFile As Variant
Dim strFile As String
myFile = Application.GetSaveAsFilename(FileFilter:="PDF Files (*.pdf), *.pdf", Title:="Select Folder and FileName to save")
If myFile <> "False" Then
strFile = myFile
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End If
End Sub
Sub CheckSpellingMistakes()
Cells.CheckSpelling SpellLang:=1033
End Sub
https://drive.google.com/file/d/1T2jSIqNZRNKj_tngEmRcP6hI42p0jGMr/view?usp=share_link