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

https://1drv.ms/x/s!AgItSlJsyNKXghMnxTvYV3YcvEgp?e=zTPiux1)

Sub ConditionalFormattingExample()

‘Define Range

Dim MyRange As Range

Set MyRange = Range(“A1:A10”)

‘Delete Existing Conditional Formatting from Range

MyRange.FormatConditions.Delete

‘Apply Conditional Formatting

MyRange.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _

Formula1:="=100", Formula2:="=150"

MyRange.FormatConditions(1).Interior.Color = RGB(255, 0, 0)

End Sub
2)

Sub PrintSelectionToPDF()

'SUBROUTINE: PrintSelectionToPDF

'DEVELOPER: Ryan Wells

'DESCRIPTION: Print your currently selected range to a PDF

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

'Prompt for save location

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 'save as PDF

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
3)

Sub SpellCheckInActiveSheet()

ActiveSheet.CheckSpelling

End Sub