VBA UserForm

[meeking86]

Hi

I have build a userform to enter data onto a specific Sheet, however it will not run successfully using this code, can someone assist with what i am missing please, the Bold part being the bit its complaining about.

Private Sub Save_Click()

TargetSheet = ComboBox1.Value
If TargetSheet = "" Then
Exit Sub
End If

Worksheets("Quote Email").Activate
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(x1Up).Row

ActiveSheet.Cells(lastrow + 1, 1).Value = txtsow.Value
ActiveSheet.Cells(lastrow + 1, 2).Value = txt1stday.Value
ActiveSheet.Cells(lastrow + 1, 3).Value = txtlastday.Value
ActiveSheet.Cells(lastrow + 1, 4).Value = txtno.Value
ActiveSheet.Cells(lastrow + 1, 5).Value = txtscono.Value
ActiveSheet.Cells(lastrow + 1, 6).Value = txtcoscono.Value
ActiveSheet.Cells(lastrow + 1, 7).Value = txtpermremoval.Value
ActiveSheet.Cells(lastrow + 1, 8).Value = txttempremoval.Value
ActiveSheet.Cells(lastrow + 1, 9).Value = txtrelocation.Value
ActiveSheet.Cells(lastrow + 1, 10).Value = txtrenumbering.Value
ActiveSheet.Cells(lastrow + 1, 11).Value = txtrehanding.Value
ActiveSheet.Cells(lastrow + 1, 12).Value = txtstandalone.Value

MsgBox ("Data added successfully")

txtsow.Value = ""
txt1stday.Value = ""
txtlastday.Value = ""
txtno.Value = ""
txtscono.Value = ""
txtpermremoval.Value = ""
txttempremoval.Value = ""
txtrelocation.Value = ""
txtrehanding.Value = ""
txtstandalone.Value = ""

Worksheets("Home").Activate
Worksheets("Home").Cells(1, 1).Select

 

[Fluff]

Hi & welcome to MrExcel.
It should be xlUp (lower case L) not x1Up (numeral one)

 

[meeking86]

Hi & welcome to MrExcel.
It should be xlUp (lower case L) not x1Up (numeral one)

thankyou, such a small mistake

 

[Fluff]

You're welcome & thanks for the feedback