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

VBA code to convert selected data into pdf applicant data

Sub printselectiontopdf()

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" & "_"

file = Format(Now(), "yyyymmdd_hhmmss")

strfile = ThisWorkbook.Path& \ "strfile"

myfile = Application.GetSaveAsFilename

initial Filename:=strfile

filefilter = "pdffile(*.pdf),*.pdf"

Title = "select folder and filename to save as pdf"

If myfile <> "false" Then

thisrng , exportfixedformettype:=xlTypePDF, Filename:=strfile

myfile , quality:=xlqualitystandrad, includedocproperties:=True

ignoreprintareas = falseopenafterpublish = True

Else

MsgBox "no file selection.pdf will not be saved", vbOKOnly, "no file selected"

End If

End Sub

check spelling mistakes in the workbook using VBA code

Sub checkspellmistake()

Dim rng As Range

For Each rng In ActiveSheet.UsedRange

If Not Application.CheckSpelling(rng.Text) Then

rng.Interior.Color = RGB(255, 0, 0)

End If

Next rng

End Sub

week challenge project work 2 https://docs.google.com/spreadsheets/d/1esbEeK0cbN5eLz3DrWtpEXV1ipZiphMy/edit?usp=sharing&ouid=110360878503139783770&rtpof=true&sd=true