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

https://1drv.ms/x/s!AoNQ_8VlhX1Vk8wPDq8Vuu4R5rTkyg?e=o8uBWT

• Create a macro for conditional formatting & freezing panes

Public Sub m1()

Dim ws As Worksheet

Dim rng As Range

Dim threshold As Double

Set ws = ThisWorkbook.Sheets("Applicant Data")

Set rng = ws.Range("H1:H307512")

threshold = 68000

With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlLess, Formula1:=threshold)

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

End With

ws.Activate

ws.Range("B2").Select

ActiveWindow.FreezePanes = True

End Sub

• Create VBA Code to convert selected data into pdf from applicant data

Public Sub m2()

Dim ws As Worksheet

Dim rng As Range

Dim pdfName As String

Set ws = ThisWorkbook.Sheets("Applicant Data")

Set rng = ws.Range("A1:A100")

pdfName = "C:\Users\navmi\OneDrive\Desktop\chey\macro.pdf"

Call ExportRangeToPDF(rng, pdfName)

End Sub

Public Sub ExportRangeToPDF()

rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFileName, Quality:=xlQualityStandard

MsgBox "PDF export complete. File saved as: " & pdfFileName, vbInformation

End Sub

• Check Spelling mistakes in the workbook using VBA Code

Public Sub m3()

Dim cell As Range

For Each cell In ActiveSheet.UsedRange

If Not Application.CheckSpelling(cell.Value) Then

cell.Interior.Color = RGB(255, 204, 204)

End If

Next cell

End Sub