Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Make textbox1.value default
I have a form that contains a textbox. How can I make the entered value
appear in the textbox the next time the form is opened? As in I would like to be able to control the default value of the textbox. Thanks The Doctor |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Make textbox1.value default
Bob Phillips answered a similar question just now:
David, The method that I use is a hidden worksheet. Store the values when the form is unloaded, then retrieve them when the form is re-loaded. There are many alternatives, use the registry, a text file, or even Excel names, but a hidden worksheet is the simplest IMO. Sample code Private Sub UserForm_Initialize() With Worksheets("SavedValues") Me.TextBox1.Text = .Range("A1").Value If .Range("A2").Value < "" Then Me.ListBox1.ListIndex = .Range("A2").Value End If End With End Sub Private Sub UserForm_Terminate() With Worksheets("SavedValues") .Range("A1").Value = Me.TextBox1.Text .Range("A2").Value = Me.ListBox1.ListIndex End With End Sub -- HTH Bob Phillips -- Regards, Tom Ogilvy "Dr.Schwartz" wrote in message ... I have a form that contains a textbox. How can I make the entered value appear in the textbox the next time the form is opened? As in I would like to be able to control the default value of the textbox. Thanks The Doctor |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Make textbox1.value default
Thanks Tom and Bob, just what I was looking for.
The Doctor "Tom Ogilvy" wrote: Bob Phillips answered a similar question just now: David, The method that I use is a hidden worksheet. Store the values when the form is unloaded, then retrieve them when the form is re-loaded. There are many alternatives, use the registry, a text file, or even Excel names, but a hidden worksheet is the simplest IMO. Sample code Private Sub UserForm_Initialize() With Worksheets("SavedValues") Me.TextBox1.Text = .Range("A1").Value If .Range("A2").Value < "" Then Me.ListBox1.ListIndex = .Range("A2").Value End If End With End Sub Private Sub UserForm_Terminate() With Worksheets("SavedValues") .Range("A1").Value = Me.TextBox1.Text .Range("A2").Value = Me.ListBox1.ListIndex End With End Sub -- HTH Bob Phillips -- Regards, Tom Ogilvy "Dr.Schwartz" wrote in message ... I have a form that contains a textbox. How can I make the entered value appear in the textbox the next time the form is opened? As in I would like to be able to control the default value of the textbox. Thanks The Doctor |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I make make comment format default? | Excel Discussion (Misc queries) | |||
TextBox1 to Label4 | Excel Discussion (Misc queries) | |||
alternative to TextBox1.Activate | Excel Programming | |||
x = textbox1.value (somethings wrong) | Excel Programming | |||
UserForm1.Textbox1.SetFocus Question | Excel Programming |