Userform, textbox copy to sheet

[jamescooper]

Private Sub ToggleButton2_Click()
 
Me.TextBox1.Copy
Sheets("Data Sheet").Range("L" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

Struggling to achieve a simple copy to the next available row in column L from a textbox in a userform.

It is failing on line 2.

Any ideas please?

Thanks.

 

[rpaulson]

try


Sheets("Data Sheet").Range("L" & Cells(Rows.Count, "L").End(xlUp).Row+1).PasteSpecial Paste:=xlPasteValues

 

[Fluff]

How about

Sheets("Data Sheet").Range("L" & Rows.Count).End(xlUp).Offset(1, 0).Value = Me.TextBox1

 

[jamescooper]

Thanks Fluff, works nicely.

 

[Fluff]

Glad we could help & thanks for the feedback