Create an Automated Calendar Notepad in Excel with Formulas, Schedule Maker / Diary, Perpetual Ca...
In this course, we will learn how to create a calendar notepad in Excel.
http://bong.byus.net - Excel Resources
Creating a Calendar Notepad
Selecting Today's Date
Opening File on Boot
Selecting Today's Date Event
Private Sub Workbook_Open()
Dim i As Integer
Dim j As Integer
Dim dDate As Date
Dim nSrow As Integer
Dim nErow As Integer
Sheets(1).Select
dDate = Date
nSrow = (Month(dDate) - 1) * 15 + 4
nErow = Cells(200, 1).End(xlUp).Row
For i = nSrow To nErow
For j = 1 To 7
If dDate = Cells(i, j) Then
Cells(i, j).Select
i = nErow
j = 7
End If
Next
Next
End Sub