Default value in Txtbox

[Baxter]

I have a userform with multiple text boxes, dropdown lists, buttons etc. I want each text box to have a default value pulled from a certain cell until a user changes the value in the text box at which point the new value in the text box will change the value of the cell. I can already take the value of my textbox and input it into the cell, I just can't get a default value when I start.

Private Sub cmdApply_Click()

'copy the data to the database
Worksheets("Cover").Range("B2").Value = Me.SysName.Value


End Sub

[Leith Ross]

Hello Baxter,

Whenever you want to set an edit control's default value, you should do so during the UserForm_Activate event. Assign the string you want to the edit control's (TextBox or ComboBox) .Text property. This string will be overwritten when the user types in the edit portion of the control.

Assign Default Value:

Private Sub UserForm_Activate()

ComboBox1.Text = "Vendors"
TextBox1.Text = "Enter Address"
... etc

End Sub
_________________________________________________________________

Hope this helps,
Leith Ross