Excel 2007 : Getting a run-time 424 error when running a userform

[slumdog10]

Hi, I am new here and have just joined , I am working on a project in excell 2007 and have created a user form but when I run it it shows and then after I add date and click submit it brings back an error sayng

run-time error '424'; Object Required

then when I click on the debug it highlights the first line of code.

Here is my code

Private Sub CommandButton1_Click()
eRow = PupilDetailsDB.Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).Row1
Cells(eRow, 1) = TextBox1.Text
Cells(eRow, 2) = TextBox2.Text
Cells(eRow, 3) = TextBox3.Text
Cells(eRow, 4) = TextBox4.Text
Cells(eRow, 5) = TextBox5.Text
Cells(eRow, 6) = TextBox6.Text
Cells(eRow, 7) = TextBox7.Text
Cells(eRow, 8) = TextBox8.Text
Cells(eRow, 9) = TextBox9.Text
Cells(eRow, 10) = TextBox10.Text
Cells(eRow, 11) = TextBox11.Text

End Sub

This is the first time I have used this form and still learning,

Any help would be great thanks.

[royUK]

It's not recognising the sheet

Use

eRow = Worksheets("PupilDetailsDB").Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).Row1

[slumdog10]

Hi I have tried the code you mentioned and it still now coming back with the error

run-time error '1004';
Application-defined or object definederror

I have uploaded my file I think. I am trying to use the form to allow me to add pupils details to the pupil db sheet,

new instructor workbook.xlsm

Please help

Thanks

[abousetta]

Hi,

Maybe try this:

With Worksheets("PupilDetailsDB")
    eRow = Range("A" & Rows.Count).End(xlUp).Row + 1
    For x = 1 To 11
        .Cells(eRow, x) = Controls("TextBox" & x).Text
    Next x
End With

[slumdog10]

Hia abousetta that worked perfectly your a star..

Is there anyway that the data in the boxes can disapear after clicking the submit button so I can keep adding data, currently it just stays there and I have to delete each text box area.

thanks again

[abousetta]

You can either add another button and add this code to it:

Unload Me

or you can just add it to the end of the routine above before the End Sub. If you are going to add more names before you close the form, may suggest something like adding:

Controls("TextBox" & x).Text = ""

before the line

Next x

This will clear the form each time you click the current button. Of course then you need to create a second button to close the userform (unload) when you are done adding all the information.

Good luck.

abousetta

[slumdog10]

That worked a treat using the controls code before the next bit.

Thanks that has had me stumped for days.

[abousetta]

Glad I could help. If you are satisfied with the responses the please mark the thread as solved.

Good luck.

[slumdog10]

Hi how do I mark this as solved.?

[abousetta]

The instructions are in the forum rules, and also in the FAQ

Thanks.