Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Worksheet is not updated
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Worksheet is not updated
I'd change this (at least for testing):
MsgBox "One record written to Sheet1" to MsgBox "One record written to Sheet1 to row " & lastrow.Row + 1 Any chance your data is missing stuff from column A. Maybe you're going too far up column A. And you're using the codename for sheet1. Are you sure that you're looking at the correct worksheet? Rachael 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 -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Links to other worksheet not updated or showing #VALUE! | Excel Worksheet Functions | |||
This worksheet contains links that cannot be updated | Excel Discussion (Misc queries) | |||
Display date when worksheet last updated? | Excel Worksheet Functions | |||
How do I enter updated data into Excel worksheet? | Excel Worksheet Functions | |||
worksheet last updated | Excel Programming |