Date Picker show based on a combobox value

[Blanchetdb]

Hi,

I created a UserForm that requires a datepicker to show based on the value of combobox

I tried
Sub End_Date ()
If Me.TxtTenure.value = "Term" Then DTTenure.Show
Else
DTTenure.Hide
End Sub

that didn't work and looked through previous posts and couldn't find exactly what I needed

If one selects "Term" from a dropdown in Combo Box - TextTenure then the date picker shows and they are required to select a date.

can someone help me?

thank you

 

[John_w]

Try this, changing ComboBox1 to the name of your combo box.

Private Sub ComboBox1_Change()

    If ComboBox1.Value = "Term" Then
        DTTenure.Visible = True
    Else
        DTTenure.Visible = False
    End If
    Me.Repaint

End Sub

 

[Blanchetdb]

thanks for the response....

I inserted the coding but there is no change. I am wondering if it because it isn't at the correct place. I presently inserted the coding in the UserForm coding. Should it be somewhere else with a trigger that actions that coding?

 

[John_w]

The code should go in the userform module and both instances of "ComboBox1" should be changed to the name of your combo box. So if your combo box is named "MyComboBox" the code should be:

Private Sub MyComboBox_Change()

    If MyComboBox.Value = "Term" Then
        DTTenure.Visible = True
    Else
        DTTenure.Visible = False
    End If
    Me.Repaint

End Sub

 

[Blanchetdb]

thank you.....

It works now.....I had to change one of the properties for date picker box (visible = False) so that it wasn't always visible.

the only issue I have now is that when the information transfers over to the "Inventory" spreadsheet; if the date picker is visible, the date populates the cell (great) but if it isn't , the date doesn't show but the cell is populated with the time 12:00 am .......any thoughts on how to prevent that?

 

[John_w]

Populating the cell or not depends on your code. Do a simple check like this (in the userform module) in the code which populates the cell:

If Me.DTPicker1.Visible Then ActiveSheet.Range("B2").Value = Me.DTPicker1.Value