Challenge

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

1)Create a macro for conditional formatting & freezing panes

Sub Macro2()
'
' Macro2 Macro
'

'
Columns("E:E").Select
Selection.FormatConditions.Add Type:=xlTextString, String:="N", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Columns("F:F").Select
Selection.FormatConditions.Add Type:=xlTextString, String:="Y", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Columns("D:D").Select
Selection.FormatConditions.Add Type:=xlTextString, String:="M", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Columns("C:C").Select
ActiveWindow.FreezePanes = True
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=-21
ActiveWindow.LargeScroll ToRight:=0
End Sub

3)Check Spelling mistakes in the workbook using VBA Code

Sub SpellCheckInActiveSheet()
ActiveSheet.CheckSpelling
End Sub
2)Create VBA Code to convert selected data into pdf from applicant data

Sub SaveActiveSheetsAsPDF()

Dim saveLocation As String

saveLocation = "C:\Users\marks\OneDrive\Documents\myPDFFile.pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

Filename:=saveLocation

End Sub

Your portfolio, next

Ship work like this
in your own course.

Talk to a career counsellor

Free 20-minute call. We'll map the right course to where you want to work.

By submitting you agree to our Terms and Privacy Policy.