To indicate today’s date in a different color : If weekend_different_color = True And left> = 95 Then In this procedure we set the weekend colors with the following codes We created a procedure named date_setting() that to set the userform size according to the number of days and to set color changes on the userform. For the weekends color change, we first add Const weekend_different_color As Boolean = True constant at the top of the userform code. Today’s date and weekends are indicated in different colors on the userform. While entering the date into the cell, one of from the date format of mm.mm.yyyy or mm.dd.yyyy can be selected. We added the month names to the dropdown list with the following loop :ĭate format can be selected with option button controls on userform. Me.Controls('label' & m).Caption = WeekdayName(n, True, 2)

We specified that we want to show the userform in column B with Target.Column = 2 section of the codes, but with Target.Row > 1 code snippet we ensured that B1 (1st cell) will be excluded from this operation.ĭay and month names in the date userform are created according to the system language of the user.We added with a For-Next loop to the Userform_Initialize procedure to assign day names to label controls : If Target.Column = 2 And Target.Row > 1 Then Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) For this purpose, we added the following codes: In our example template, we decided that it is appropriate to display the userform by double clicking on any cell except cell 1 in column B. If it is wanted to add a date on which sheet using the date form, the necessary VBA codes should be added to the Worksheet_BeforeDoubleClick procedure of that sheet. By double-clicking the cells in the selected column, the date userform opens and when one of from the buttons that created for each day of the month are clicked, the date is added to the cell. Our userform is a useful alternative to date picker that doesn’t need any. We have developed a small but very resourceful userform to add and change the date to the active cell.

Userform excel vba code