Storing TextBox info in cells, then retrieving on next load-up

[jlroper]

I would like to store whatever is in a form, into the cells on a
spreadsheat. Then have the spreadsheet restore the information on the
next loadup. the code I have is as follows:

Code:
--------------------
Sub Autpen()

CRF_Form.TextBox1.SetFocus

Worksheets("Sheet1").Activate

ActiveWorkbook.Saved = False

Range("J1").Value = CRF_Form.TextBox1.Text
Range("J2").Value = CRF_Form.TextBox2.Text
Range("J3").Value = CRF_Form.TextBox3.Text
Range("J4").Value = CRF_Form.TextBox4.Text
Range("J5").Value = CRF_Form.TextBox5.Text
Range("J6").Value = CRF_Form.TextBox6.Text
Range("J7").Value = CRF_Form.TextBox7.Text
Range("J8").Value = CRF_Form.TextBox8.Text
Range("J9").Value = CRF_Form.TextBox9.Text
Range("J10").Value = CRF_Form.TextBox10.Text
Range("J11").Value = CRF_Form.TextBox11.Text
Range("J12").Value = CRF_Form.TextBox12.Text
Range("J13").Value = CRF_Form.TextBox13.Text
Range("J14").Value = CRF_Form.TextBox14.Text
Range("J15").Value = CRF_Form.TextBox15.Text
Range("J16").Value = CRF_Form.TextBox16.Text
Range("J17").Value = CRF_Form.TextBox17.Text
Range("J18").Value = CRF_Form.TextBox18.Text
Range("J19").Value = CRF_Form.TextBox19.Text
Range("J20").Value = CRF_Form.TextBox20.Text
Range("J21").Value = CRF_Form.TextBox21.Text
Range("J22").Value = CRF_Form.TextBox22.Text
Range("J23").Value = CRF_Form.TextBox23.Text
Range("J24").Value = CRF_Form.TextBox24.Text
Range("J25").Value = CRF_Form.TextBox25.Text

CRF_Form.Show
Unload CRF_Form

End Sub
--------------------



Code:
--------------------
Private Sub Save_Button_Click()

Application.DefaultSaveFormat = xlExcel2003Workbook
' Set NewBook = Workbooks.Add

Worksheets("Sheet1").Activate
CRF_Form.TextBox1.Text = Range("J1").Value
CRF_Form.TextBox2.Text = Range("J2").Value
CRF_Form.TextBox3.Text = Range("J3").Value
CRF_Form.TextBox4.Text = Range("J4").Value
CRF_Form.TextBox5.Text = Range("J5").Value
CRF_Form.TextBox6.Text = Range("J6").Value
CRF_Form.TextBox7.Text = Range("J7").Value
CRF_Form.TextBox8.Text = Range("J8").Value
CRF_Form.TextBox9.Text = Range("J9").Value
CRF_Form.TextBox10.Text = Range("J10").Value
CRF_Form.TextBox11.Text = Range("J11").Value
CRF_Form.TextBox12.Text = Range("J12").Value
CRF_Form.TextBox13.Text = Range("J13").Value
CRF_Form.TextBox14.Text = Range("J14").Value
CRF_Form.TextBox15.Text = Range("J15").Value
CRF_Form.TextBox16.Text = Range("J16").Value
CRF_Form.TextBox17.Text = Range("J17").Value
CRF_Form.TextBox18.Text = Range("J18").Value
CRF_Form.TextBox19.Text = Range("J19").Value
CRF_Form.TextBox20.Text = Range("J20").Value
CRF_Form.TextBox21.Text = Range("J21").Value
CRF_Form.TextBox22.Text = Range("J22").Value
CRF_Form.TextBox23.Text = Range("J23").Value
CRF_Form.TextBox24.Text = Range("J24").Value
CRF_Form.TextBox25.Text = Range("J25").Value

Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False
ActiveWorkbook.SaveAs Filename:=fName
ActiveWorkbook.Saved = True

End Sub
--------------------


Can someone tell me what I'm doing wrong (it just doesn't save the data
into the cells)?

Thank you so much for any input (me being a newbie doesn't help, I
really need a piece of knowledge here).

 

[Tom Ogilvy]

It looks like you have your assignments backwards.

the AutoOpen writes the control values to the cells.

the button click creates a new workbook. assign the controls on the forms
the value of the cells (which are blank) and saves the workbook.

 

[jlroper]

It works fine now, thanks