|| Macro in userform | Help ||

[jpoppet]

Hi all...

Am trying to create a purchase order form, whereby users can add their own contact. I've created a userform for this, but already have an existing table of fields, so I think the error message is related to where the new field is trying to be entered.

Included is full file, any help would be greatly appreciated!

"
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet2")

'find first empty row in database
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _ SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1"

* ' find first empty... * is the error command.

Regards :-)

[AndyLitch]

A better way to find the last used row is
LastRow = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row

[jpoppet]

thank you, added that in now getting Compile Error
> "Method or data member not found"
> ".Textbox_ad1"

this is taken from;

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.TextBox_company.Value
ws.Cells(iRow, 2).Value = Me.Textbox_ad1.Value ******
ws.Cells(iRow, 3).Value = Me.TextBox_ad2.Value
ws.Cells(iRow, 4).Value = Me.TextBox_ad3.Value
ws.Cells(iRow, 5).Value = Me.TextBox_ad4.Value
ws.Cells(iRow, 6).Value = Me.TextBox_tele.Value
ws.Cells(iRow, 7).Value = Me.TextBox_fax.Value
ws.Cells(iRow, 8).Value = Me.TextBox_contact.Value
ws.Cells(iRow, 9).Value = Me.TextBox_email.Value

:-(

[AndyLitch]

Problem with this line

ws.Cells(iRow, 2).Value = Me.Textbox_ad1.Value ****** specifically the asterisks

[JosephP]

the control is called Textbox1_ad1