Excel VBA Tips n Tricks #16 Make a Calendar in Excel VBA скачать в хорошем качестве

Excel VBA Tips n Tricks #16 Make a Calendar in Excel VBA

📊 Free Workbooks: https://www.excelvbaisfun.com/links?u... 🥷Join Excel Ninja Pro: https://www.excelvbaisfun.com/ninjapr... Months FREE On Annual Plan Auto Applied) 🥷Excel Ninjas FB Group: https://www.excelvbaisfun.com/xlninjas (Free downloads, Trainings, Live Q&A and more) Make a CALENDAR from scratch in Excel using VBA. This is dynamic, so when you choose a different month, it will erase the last one and plug in the new one. The great part about it is, learning these concepts will help you master the ability to customize and tweak this lesson's codes to your needs. Thanks and enjoy! Here's the (fixed) code: Sub CreateCalendar() Dim csheet As Worksheet Set csheet = ThisWorkbook.Sheets("Sheet1") selDate = [b1] fMon = DateSerial(Year(selDate), Month(selDate), 1) lMon = CDate(Application.WorksheetFunction.EoMonth(fMon, 0)) stRow = 4 'clear last cal Rows(4).ClearContents Rows(9).ClearContents Rows(14).ClearContents Rows(19).ClearContents Rows(24).ClearContents Rows(29).ClearContents 'determine what weekday 1st is. . . If Weekday(fMon) = 1 Then stCol = 2 ElseIf Weekday(fMon) = 2 Then stCol = 3 ElseIf Weekday(fMon) = 3 Then stCol = 4 ElseIf Weekday(fMon) = 4 Then stCol = 5 ElseIf Weekday(fMon) = 5 Then stCol = 6 ElseIf Weekday(fMon) = 6 Then stCol = 7 ElseIf Weekday(fMon) = 7 Then stCol = 8 End If For x = 1 To Day(lMon) If FirstT = Empty Then csheet.Cells(stRow, stCol) = fMon FirstT = 1 Else fMon = fMon + 1 csheet.Cells(stRow, stCol) = fMon End If If stCol = 8 Then stCol = 2 stRow = stRow + 5 Else stCol = stCol + 1 End If Next x End Sub Fantastic Developer Tools: 🔒 Transform Any Excel File Into A Locked EXE: https://www.excelvbaisfun.com/secure-... (25% off with code ‘25OFF’) 🟡 Create Custom Installers: https://www.excelvbaisfun.com/custom-... 👋 Business Inquiries, Consulting, Comments, etc: https://www.excelvbaisfun.com/contact/