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/1gcPqGibr8pl19BNPImNogTS_H3TJC6Kb/edit?usp=sharing&ouid=100199355260732257852&rtpof=true&sd=true

Project2

!)

Public Sub DataFormatting()
Dim MyRange As Range
Set MyRange = Range("A1:DR307512")
MyRange.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="100", Formula2:="=150"
MyRange.FormatConditions(1).Interior.Color = RGB(156, 0, 0)
MyRange.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
Formula1:="100"
MyRange.FormatConditions(2).Interior.Color = vbGreen
MyRange.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="150"
MyRange.FormatConditions(3).Interior.Color = vbZViolet
MyRange.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
Formula1:="100"
MyRange.FormatConditions(2).Interior.Color = vbOrange
End Sub

2)

Public Sub SavetoPdf()
Dim ThisRange 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, _
myfileFilter:="PDF Files(*.pdf),*.pdf", _
Tittle:="Select Folder and File Name to Save as PDF")

If myfile <> "False" Then
ThisRng.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
myfile, Quality:=xlQualiyuStandard, IncludeDocproperties:=True, _
IgnirePrintAreas:=False, OpenAfterPublish:=True
Else
MsgBox "No File Selected. PDF will not be saved", vbOKOnly, "No File Selected"
End If
End Sub

3)

Public Sub SpellingCheck()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
If Not Application.CheckSpelling(Word:=cell.Text) Then
cell.Style = "Bad"
End If
Next cell
End Sub