Project 2 - Create a report using PowerQuery, Macro VBA, List Functions and Data Validation functions for Data Reporting of Supply Chain Management companies
Sub To PDF()
Dim wb as workbook
Dim ws as worksheet
Dim rng as range
Dim path as string
Dim FName as string
set wb = Thisorkbook
set ws = wb.worksheets("report output")
set rng = ws.range("A1:J20")
Path ="c:\users\sudharsan\desktop\loan applicants data\sales PDF files\"
Fname = ws.range("M5").value & " " & format (now(),"MM-DD-YYYY")& ".PDF"
rng.export as fixed format _
Type:=xlTypePDF,_
Filename:=path & FName,_
ignoreprintareas:=True
End sub
Sub Highlightspellingmistake()
Dim as range
For each rng in Activesheet.Usedrange
If Not application.checkspelling(word:=rng.Text)Then
rng.style = "Mistake"
end if
Next rng
End sub