| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
spreadsheet do not update
hello all, i'm just a beginner at excel & vB so i could use some help here. I've this code that allows me to enter some information through a form and it should write to a row in the sheet. Even though it says "a record has been added!", nothing appears on the sheet. Confused by this! Will someone help me in this? Thanks! Private Sub CommandButton1_Click() Dim LastRow As Object Set LastRow = Sheet1.Range("a65536").End(xlUp) LastRow.Offset(1, 0).Value = TextBox1.Text LastRow.Offset(1, 1).Value = TextBox2.Text LastRow.Offset(1, 2).Value = TextBox3.Text MsgBox "One record written to Sheet1" response = MsgBox("Do you want to enter another record?", _ vbYesNo) If response = vbYes Then TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox1.SetFocus Else Unload Me End I -- rach8 ----------------------------------------------------------------------- rach85's Profile: http://www.excelforum.com/member.php...fo&userid=1655 View this thread: http://www.excelforum.com/showthread.php?threadid=31415 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
spreadsheet do not update
The first post made it through ok.
rach85 wrote: hello all, i'm just a beginner at excel & vB so i could use some help here. I've this code that allows me to enter some information through a form and it should write to a row in the sheet. Even though it says "a record has been added!", nothing appears on the sheet. Confused by this! Will someone help me in this? Thanks! Private Sub CommandButton1_Click() Dim LastRow As Object Set LastRow = Sheet1.Range("a65536").End(xlUp) LastRow.Offset(1, 0).Value = TextBox1.Text LastRow.Offset(1, 1).Value = TextBox2.Text LastRow.Offset(1, 2).Value = TextBox3.Text MsgBox "One record written to Sheet1" response = MsgBox("Do you want to enter another record?", _ vbYesNo) If response = vbYes Then TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox1.SetFocus Else Unload Me End If -- rach85 ------------------------------------------------------------------------ rach85's Profile: http://www.excelforum.com/member.php...o&userid=16557 View this thread: http://www.excelforum.com/showthread...hreadid=314154 -- Dave Peterson |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
spreadsheet do not update
Hi Rach,
Is there any other code in any other modules? Sounds like screenupdating is set to off. David "rach85" wrote: hello all, i'm just a beginner at excel & vB so i could use some help here. I've this code that allows me to enter some information through a form and it should write to a row in the sheet. Even though it says "a record has been added!", nothing appears on the sheet. Confused by this! Will someone help me in this? Thanks! Private Sub CommandButton1_Click() Dim LastRow As Object Set LastRow = Sheet1.Range("a65536").End(xlUp) LastRow.Offset(1, 0).Value = TextBox1.Text LastRow.Offset(1, 1).Value = TextBox2.Text LastRow.Offset(1, 2).Value = TextBox3.Text MsgBox "One record written to Sheet1" response = MsgBox("Do you want to enter another record?", _ vbYesNo) If response = vbYes Then TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox1.SetFocus Else Unload Me End If -- rach85 ------------------------------------------------------------------------ rach85's Profile: http://www.excelforum.com/member.php...o&userid=16557 View this thread: http://www.excelforum.com/showthread...hreadid=314154 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Automatic update of spreadsheet & automatic update between workboo | Excel Worksheet Functions | |||
| Spreadsheet Update | Excel Discussion (Misc queries) | |||
| Automatically update spreadsheet from another spreadsheet | Excel Worksheet Functions | |||
| Can I 'auto update' my spreadsheet ? | Excel Worksheet Functions | |||
| How do I set up a spreadsheet where it will automatically update? | Excel Worksheet Functions | |||
Linear Mode
