on excel 2007, i have a visual basic code for an interface that contains 2
pushbuttons and 2 text boxes. the code for the one of the pushbuttons is as
follows:


Private Sub CommandButton1_Click()

Dim LastRow As Object

Set LastRow = Sheet1.Range("a65536").End(xlUp)


LastRow.Offset(13, 0).Value = TextBox1.Text
LastRow.Offset(13, 1).Value = TextBox2.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 = ""

TextBox1.SetFocus

Else
Unload Me
End If

End Sub

in the second line of the program ive got 'End(xlUp)' which makes my second
input into the text boxes appear 10 cells below the first input. i want to
make my seecond input appear a cell below the first input. HOW ??????? :))

Cannot see it ending up 10 rows down? You are instructing it to enter data
13 rows down, therefore 12 below the last entry. If you change the 13 to 1,
you should write to the next line.

--
HTH

Kassie

Replace xxx with hotmail


"bo2loz el meba2laz" wrote:

on excel 2007, i have a visual basic code for an interface that contains 2
pushbuttons and 2 text boxes. the code for the one of the pushbuttons is as
follows:


Private Sub CommandButton1_Click()

Dim LastRow As Object

Set LastRow = Sheet1.Range("a65536").End(xlUp)


LastRow.Offset(13, 0).Value = TextBox1.Text
LastRow.Offset(13, 1).Value = TextBox2.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 = ""

TextBox1.SetFocus

Else
Unload Me
End If

End Sub

in the second line of the program ive got 'End(xlUp)' which makes my second
input into the text boxes appear 10 cells below the first input. i want to
make my seecond input appear a cell below the first input. HOW ??????? :))

Simply change this line
Code:
--------------------

LastRow.Offset(13, 1).Value = TextBox2.Text

--------------------
for this
Code:
--------------------

LastRow.Offset(14, 0).Value = TextBox2.Text

--------------------
the (13, 1) means 13 rows down 1 column across changing it to (14,0) is
14 rows down but none across just like your first textbox.


bo2loz el meba2laz;306804 Wrote:
on excel 2007, i have a visual basic code for an interface that contains
2
pushbuttons and 2 text boxes. the code for the one of the pushbuttons
is as
follows:



Code:
--------------------

Private Sub CommandButton1_Click()

Dim LastRow As Object

Set LastRow = Sheet1.Range("a65536").End(xlUp)


LastRow.Offset(13, 0).Value = TextBox1.Text
LastRow.Offset(13, 1).Value = TextBox2.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 = ""

TextBox1.SetFocus

Else
Unload Me
End If

End Sub

--------------------

in the second line of the program ive got 'End(xlUp)' which makes my
second
input into the text boxes appear 10 cells below the first input. i
want to
make my seecond input appear a cell below the first input. HOW
??????? :))


--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=85785

On Apr 14, 8:09*am, Simon Lloyd
wrote:
Simply change this line
Code:
--------------------

* LastRow.Offset(13, 1).Value = TextBox2.Text

--------------------
*for this
Code:
--------------------

* LastRow.Offset(14, 0).Value = TextBox2.Text

--------------------
*the (13, 1) means 13 rows down 1 column across changing it to (14,0) is
14 rows down but none across just like your first textbox.


NON SENSE...

Just do what Kassie suggested.

thanks a lot, it WORKED :))

"Kassie" wrote:

Cannot see it ending up 10 rows down? You are instructing it to enter data
13 rows down, therefore 12 below the last entry. If you change the 13 to 1,
you should write to the next line.

--
HTH

Kassie

Replace xxx with hotmail


"bo2loz el meba2laz" wrote:

on excel 2007, i have a visual basic code for an interface that contains 2
pushbuttons and 2 text boxes. the code for the one of the pushbuttons is as
follows:


Private Sub CommandButton1_Click()

Dim LastRow As Object

Set LastRow = Sheet1.Range("a65536").End(xlUp)


LastRow.Offset(13, 0).Value = TextBox1.Text
LastRow.Offset(13, 1).Value = TextBox2.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 = ""

TextBox1.SetFocus

Else
Unload Me
End If

End Sub

in the second line of the program ive got 'End(xlUp)' which makes my second
input into the text boxes appear 10 cells below the first input. i want to
make my seecond input appear a cell below the first input. HOW ??????? :))

Thanks DK

--
HTH

Kassie

Replace xxx with hotmail


"dk" wrote:

On Apr 14, 8:09 am, Simon Lloyd
wrote:
Simply change this line
Code:
--------------------

LastRow.Offset(13, 1).Value = TextBox2.Text

--------------------
for this
Code:
--------------------

LastRow.Offset(14, 0).Value = TextBox2.Text

--------------------
the (13, 1) means 13 rows down 1 column across changing it to (14,0) is
14 rows down but none across just like your first textbox.


NON SENSE...

Just do what Kassie suggested.