Project 2 - Create a report using PowerQuery, Macro VBA, List Functions and Data Validation functions for Data Reporting of Supply Chain Management companies
* Create VBA Code to convert selected data into pdf from applicant data
ans.
Sub PDFconversion()
Dim r As Range
Dim s As String
If Selection.Count = 1 Then
Set r = Application.InputBox("Select a range", "Get Range", Type:=8)
Else
Set r = Selection
End If
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
r.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
*Check Spelling mistakes in the workbook using VBA Code.
ans.
Public Sub Highlight()
Dim RNG As Range
For Each RNG In ActiveSheet.UsedRange
If Not Application.CheckSpelling(WORD:=RNG.Text) Then
RNG.Font.Color = vbRed
RNG.Interior.Color = vbYellow
End If
Next RNG
End Sub
https://docs.google.com/spreadsheets/d/1ISpO471iRug0KsQ5GtmdtyKMu7LNV3SR/edit?usp=share_link&ouid=102992467978182995981&rtpof=true&sd=true