How to automatically goto new line when click on add

[Patriot2879]

Hi all, i have te code below but it doesnt add the data onto a new line automatically can you help me please. For example i have a userform to fill out and in that i have a command button2 that when click will transfer the data added to sheet4, but it keeps overwriting on the same line and doesnt start a new line when userform is filled out again. hope you can help please.

Private Sub CommandButton2_Click()
Dim emptyRow As Long

With ThisWorkbook.Sheets("Sheet4")
   emptyRow = Cells(Rows.Count, "A").End(xlUp).Row + 1
 
   .Cells(emptyRow, 1).Value = TextBox1.Value
   .Cells(emptyRow, 2).Value = ComboBox1.Value

End With
Unload Me

End Sub

 

[NoSparks]

put a dot in front of Cells so it refers to the With instead of the active sheet.

 

[steve the fish]

If you look at the code within your With statement you will see that for assigning emptyRow you have forgotten the dot before the Cells so you probably arent assignng the correct value to the variable.

 

[Patriot2879]

thank you , as you can probaly tell i am quite new to this