|
Storing TextBox info in cells, then retrieving on next load-up
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 ... jlroper Wrote: 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). -- T-Žex ------------------------------------------------------------------------ T-Žex's Profile: http://www.excelforum.com/member.php...o&userid=26572 View this thread: http://www.excelforum.com/showthread...hreadid=400687 |
| All times are GMT +1. The time now is 12:34 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com