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:

Please Login or Register  to view this content.

Please Login or Register  to view this content.

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).

[T-Žex]

If Auto_Open is the sub that loads the values from the cell to the form and Save_Button_Click is the sub that saves the values from the textboxes to the sheet, then you need to exchange the left and ride side expressions of your assignment statements.

Change

Range("J1").Value = CRF_Form.TextBox1.Text
Range("J2").Value = CRF_Form.TextBox2.Text
...

To

CRF_Form.TextBox1.Text = Range("J1").Value
CRF_Form.TextBox2.Text = Range("J2").Value
...

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:

Please Login or Register  to view this content.

Please Login or Register  to view this content.

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.

--
Regards,
Tom Ogilvy


"jlroper" <[email protected]> wrote in
message news:[email protected]...
>
> 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 Auto_Open()
>
> 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).
>
>
> --
> jlroper
> ------------------------------------------------------------------------
> jlroper's Profile:
http://www.excelforum.com/member.php...o&userid=26709
> View this thread: http://www.excelforum.com/showthread...hreadid=400687
>

[jlroper]

It works fine now, thanks.