Save TextBox Entry after WorkBook is closed
Try this
Private Sub UserForm_Initialize()
TextBox1.Text =Worksheets("Sheet1").Range("A1").Value
End Sub
Private Sub UserForm_Terminate()
Worksheets("Sheet1").Range("A1").Value = TextBox1.Text
End Sub
change the worksheet area to suit.
--
HTH
Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
"wpllc2004" wrote in message
om...
Hello to all
I've got a problem with recovering textbox entries in a Userform after
the workbook is closed. I found the following code (from Tom Ogilvy),
which works perfectly when the Userform is closed, but it doesn't work
if I close and re-open the workbook. Ideally, I would like to store
(somewhere) the values that I enter in the textboxes and use them
after closing the specific workbook and opening it at another point in
time.
======<General Module =====
Public sString As String
======<Userform Module=====
Private Sub CommandButton1_Click()
sString = TextBox1.Text
Unload Me
End Sub
Private Sub UserForm_Initialize()
If Len(sString) 0 Then
TextBox1.Text = sString
Else
TextBox1.Text = ""
End If
End Sub
Can anybody help me with this one?
Many thanks in advance.
AP
|