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

Q.1) Ans: (Link) https://docs.google.com/spreadsheets/d/1Qu7a8i3rCvKR8OuePcjjjyhPgU2kY4Qb/edit?usp=share_link&ouid=107024978318240873519&rtpof=true&sd=true

Q.2) Ans : Female & Male (Link) https://docs.google.com/spreadsheets/d/1-67-BOy0-brp8zayh0c_rZtxivHC4ZuN/edit?usp=share_link&ouid=107024978318240873519&rtpof=true&sd=true

Q.2) Ans :Flag Columns (Link)

https://docs.google.com/spreadsheets/d/11qk8gITzsTgJteNQKMNdvbzuMr7KxDeK/edit?usp=share_link&ouid=107024978318240873519&rtpof=true&sd=true

Q)3Ans: Create a Macro for Data Formatting (Conditional Formatting, Freezing Panes) of workbook as same will be applied to the data of next quarter

Public Sub DataFormatting()
Dim Note As Range
Set Note = Range("A1:DR307512")
Note.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, Formula1:="100", Formula2:="150"
Note.FormatConditions(1).Interior.Color = vbBlue
Note.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, Formula1:="100"

Note.FormatConditions(2).Interior.Color = vbRed

Note.FormatConditions(3).Interior.Color = vbGreen
Note.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, Formula1:="100"

Note.FormatConditions(2).Interior.Color = vbYellow
End Sub

Q3) Ans:Create VBA Code to convert selected data into pdf from applicant data

Sub Convert_To_Pdf()

Dim ThisRng As Range
Dim strfile As String
Dim myfile As Variant

If Selection.Count = 1 Then
Set ThisRng = Application.InputBox("Select a range", "Get Range", Type:=8)
Else
Set ThisRng = Selection
End If
'Prompt for save location
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 'save as PDF
ThisRng.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

Ans:Q) 3 Check Spelling mistakes in the workbook using VBA Code

Public Sub SpellingMistakes()
Dim Rg As Range
For Each Rg In ActiveSheet.UsedRange
If Not Application.CheckSpelling(word:=Rg.Text) Then
Rg.Active = "Animal"
End If
Next Rg
End Sub

I don't have Microsoft Outlook Object Library on my pc so I had to write code on the Sheet
And Please kindly understand my situation Sir / Madam