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
Public Sub convertPdf()
Dim wb As Workbook
Dim ws As Worksheet
Dim Rng As Range
Dim path As String
Dim fname As String
Set wb = ThisWorkbook
Set ws = wb.Worksheets("vbapdf")
Set Rng = ws.Range("A1:N19")
path = "C:\Users\652ko\onedrive\Documents\"
fname = ws.Range("D23").Value & ".pdf"
Rng.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=path & fname, _
IgnorePrintAreas:=True
End Sub
Check Spelling mistakes in the workbook using VBA Code
Public Sub SpellCheck()
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
- Sachin Maheshwarican you send the project 2 file please bro..