userform

[Mauro]

Hello,

I need to create a sheet of 7 columns. To avoid errors I would like an
userform to be used to input the data. How can I make sure that the data
inserted in the userform goes into the next available row? I use office 11.

Thanks a lot

 

[Lonnie M.]

Hi, you can use the code below to give you the last used cell in that
column, then insert the data in the next cell by adding 1:

' the "A" value in Cells(Rows.Count, "A") represents the
' column where you wish to find the last used cell
CountData = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Cells(CountData + 1, 1) = myVariable

HTH--Lonnie M.