Project 2 - Create a report using PowerQuery, Macro VBA, List Functions and Data Validation functions for Data Reporting of Supply Chain Management companies
https://drive.google.com/file/d/16L2OXzF_oYpH0yqbLbQxgODUoJ3I7r_F/view
Public Function CheckItNew (z As Range) As Boolean
Dim MyText As String
MyText = (1).Text
Dim xlAp As Object
Set oxlap Createdbject("Excel.Application") CheckItNew oxlAp. Checkäpelling (MyText) Set oxlap Nothing
oxlAp.Quit
End Function
Public Sub PDF ()
ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
ActiveSheet.ExportAsFixedFormat
Filename:"C:\temp.pdf",
Quality:-xlQualitystandard,
IncludeDocsroperties:-True,
IgnorePrintareas: False.
OpenAfterPublish:-True