Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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
|
|||
|
|||
![]()
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
|
|||
|
|||
![]()
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 | |
|
|
![]() |
||||
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 |