VBA - Userform - DT picker not showing today date by default

**emonge** · 10-16-2019, 11:45 AM

Hello, below is the code for my userform. My users want to have today date as default but I can't make it happen. Help!!! PLS

Private Sub CommandButton1_Click()

Dim TargetRow As Integer

TargetRow = Sheets("Engine").Range("B3").Value + 1

Sheets("Sheet1").Range("Data_Start").Offset(TargetRow, 1).Value = DTPicker1
Sheets("Sheet1").Range("Data_Start").Offset(TargetRow, 2).Value = DTPicker2
Sheets("Sheet1").Range("Data_Start").Offset(TargetRow, 3).Value = ComboBox1
Sheets("Sheet1").Range("Data_Start").Offset(TargetRow, 4).Value = ComboBox2
Sheets("Sheet1").Range("Data_Start").Offset(TargetRow, 5).Value = ComboBox3
Sheets("Sheet1").Range("Data_Start").Offset(TargetRow, 6).Value = ComboBox4
Sheets("Sheet1").Range("Data_Start").Offset(TargetRow, 7).Value = ComboBox5
Sheets("Sheet1").Range("Data_Start").Offset(TargetRow, 8).Value = ComboBox6
Sheets("Sheet1").Range("Data_Start").Offset(TargetRow, 9).Value = TextBox1
Sheets("Sheet1").Range("Data_Start").Offset(TargetRow, 10).Value = TextBox2
Unload Me
MsgBox "Data was added to the tracker", 0, "Complete"
UserForm1.Show

End Sub

Private Sub CommandButton2_Click()

Unload UserForm1

End Sub

**mehmetcik** · 10-16-2019, 12:08 PM

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)