Save TextBox Entry after WorkBook is closed
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 |
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 |
All times are GMT +1. The time now is 09:55 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com