fresh learner need help!
 

I began to study VBA just from yesterday. I strike in a program from
the book, the code is like this:

[code]:

Private Sub CommandButton1_Click()
Range("D8").Select
Selection.End(xlDown).Select
Selection.End(xlToLeft).Select

ActiveCell.Offset(1, 0).Range("A1") = TextBox1.Text
ActiveCell.Offset(1, 0).Range("B1") = TextBox2.Text
ActiveCell.Offset(1, 0).Range("C1") = TextBox3.Text
ActiveCell.Offset(1, 0).Range("D1") = TextBox4.Text
ActiveCell.Offset(1, 0).Range("E1") = TextBox5.Text


End Sub

Private Sub CommandButton2_Click()
End
End Sub

Private Sub CommandButton3_Click()
TextBox1.Text = "88"
TextBox2.Text = "Michael"
TextBox3.Text = "123455"
TextBox4.Text = "1322"
TextBox5.Text = "Record for test"
End Sub

when I try to run it. it reports an error: Run time error '1004'
application-defined or object-defined error . When I debug it, it shows
something wrong with this sentence:
ActiveCell.Offset(1, 0).Range("A1") = TextBox1.Text. But after
doublecheck, I still can not find any problem. I copy it from the book
exactly.

Anybody's help is appreciated!

fresh learner need help!
 

Hi Flamingo,

You would encounter this problem if there were no data below cell D8.

This is because the instruction;

Selection.End(xlDown).Select

would then select the column D cell in the last row on the sheet and, then,
the instruction:

ActiveCell.Offset(1, 0).Range("A1") = TextBox1.Text

would be seeking to address a row below the last row - which is impossible.

For your test purposes enter some data in, say, cells D8:D9 and try again.


---
Regards,
Norman



"Flamingo" wrote in message
ups.com...
I began to study VBA just from yesterday. I strike in a program from
the book, the code is like this:

[code]:

Private Sub CommandButton1_Click()
Range("D8").Select
Selection.End(xlDown).Select
Selection.End(xlToLeft).Select

ActiveCell.Offset(1, 0).Range("A1") = TextBox1.Text
ActiveCell.Offset(1, 0).Range("B1") = TextBox2.Text
ActiveCell.Offset(1, 0).Range("C1") = TextBox3.Text
ActiveCell.Offset(1, 0).Range("D1") = TextBox4.Text
ActiveCell.Offset(1, 0).Range("E1") = TextBox5.Text


End Sub

Private Sub CommandButton2_Click()
End
End Sub

Private Sub CommandButton3_Click()
TextBox1.Text = "88"
TextBox2.Text = "Michael"
TextBox3.Text = "123455"
TextBox4.Text = "1322"
TextBox5.Text = "Record for test"
End Sub

when I try to run it. it reports an error: Run time error '1004'
application-defined or object-defined error . When I debug it, it shows
something wrong with this sentence:
ActiveCell.Offset(1, 0).Range("A1") = TextBox1.Text. But after
doublecheck, I still can not find any problem. I copy it from the book
exactly.

Anybody's help is appreciated!

fresh learner need help!
 

Hi Norman,

thanks a lot. it works after I modify it according to your suggestion!
You really do me a favor. Very appreciate it.