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

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

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