Ensure the same date a year previous is a work day in Excel

############################# Video Source: www.youtube.com/watch?v=R8045amNFGI

Ensure the same date a year previous is a work day in Excel. Free templates and templates with code are available for purchase for $50 USD • https://www.easyexcelanswers.com/temp... • Click this link to check out my one-on-one training http://www.calendly.com/easyexcelanswers • For more help visit my website www.easyexcelanswers.com or email me at [email protected]. • Contact me regarding customizing this template for your needs. • Click for online Excel Consulting http://www.calendly.com/easyexcelanswers • Are you struggling to update your Microsoft SQL Server data? • I recommend using well-known Excel to update and manage your data in SQL Server using the SQL Spreads Excel add-in. • Click https://sqlspreads.com/?pid=barbhende... to find out how SQL Spreads works best for non-technical end users and download our free 14-day trial. You will get two months free when purchasing an annual subscription using our link. • I am able to provide online help on your computer at a reasonable rate. • https://www.amazon.com/shop/barbhende... • I use a Blue condenser Microphone to record my videos, here is the link • https://amzn.to/37gyyGa • Check out Crowdcast for creating your webinars • https://app.linkmink.com/a/crowdcast/83 • • I use Tube Buddy to help promote my videos • Check them out • https://www.Tubebuddy.com/easyexcelan... • Follow me on Facebook • / easyexcel.answers • TWEET THIS VIDEO • Follow me on twitter • easyexcelanswers • IG @barbhendersonconsulting • You can help and generate a translation to you own language • http://www.youtube.com/timedtext_cs_p... • *this description may contain affiliate links. When you click them, I may receive a small commission at no extra cost to you. I only recommend products and services that I've used or have experience with. • How to insert VBA code in Excel • How to insert VBA code in Excel • code • Sub lastyear() • Dim thdate, lstdate As Date • thdate = ActiveSheet.Range( B5 ).Value • 'sutract 12 months • lstdate = WorksheetFunction.EDate(thdate, -12) • 'if it is a Saturday then go back one day • If Application.WorksheetFunction.Weekday(lstdate) = 7 Then • lstdate = lstdate - 1 • End If • 'if it is a Sunday then go forward one day • If Application.WorksheetFunction.Weekday(lstdate) = 1 Then • lstdate = lstdate + 1 • End If • ActiveSheet.Cells(5, 5).Value = lstdate • End Sub

#############################

New on site