Generating PDF from excel


Generating PDF from excel.. Sub CreatePDF()         Dim wksSheet As Worksheet     Dim blnFlag As Boolean     Dim intI As Integer     Dim intResult As Byte         intI = 0     intResult = Application.InputBox(“Type 1 for Entire Workbook and Type 0 For Active Worksheets”)     If intResult = 0 Then     Set wksSheet = ActiveSheet…

How to Calculate Date Difference :


Try this Functionif A1 is Project Start date and A2 is  Project End Data . You can calculate aging between them in Year,Month and date :Use this in A3=DatedDiff(A1,A2) Function DatedDiff(dtStart As Date, dtEnd As Date) As String       Dim ArrStart    Dim ArrEnd    Dim ArrResult       ArrStart = Array(Year(dtStart), Month(dtStart), Day(dtStart)) …