Project 2 - Create a report using PowerQuery, Macro VBA, List Functions and Data Validation functions for Data Reporting of Supply Chain Management companies
1)Public Sub exceltopdf()
Dim rng As Range
Dim file As String
Dim myfile As String
If Selection.Count = 1 Then
Set rng = Application.InputBox("Select the range", Type:=8)
Else: Set rng = Selection
End If
file = "Selection" & "_" _
& Format(Now(), "yyyymmdd_hhmmss") _
& ".pdf"
myfile = ThisWorkbook.Path & "\" & file
myfile = Application.GetSaveAsFilename _
(InitialFileName:=file, _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="Select Folder and file Name to Save as PDF")
If myfile <> "False" Then
rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
myfile, Quality:=QualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
Else
MsgBox "No File Selected. PDF will not be saved", vbOKOnly, "No files Selected"
End If
End Sub
. Public Sub Spellingcheck()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
If Not Application.CheckSpelling(word:=cell.Text) Then
End If
Next cell
End Sub
this is my google drive link