Finding blank row and entering data in row from userform

[Guest]

I'm building a userform for test data entry that currently asks for 22 pieces
of information. I'm trying to take that information and enter it into the
next blank row in the spreadsheet. This seems like a rather basic task, but
I'm struggling. Please help! Thanks!

Mark

 

[Guest]

blankrow = cells(rows.count,"A").End(xlup).offset(1,0).row

uses column 1 to find the next blank cell. Adjust to suit.

 

[Guest]

Thanks, Tom. The problem I'm having is the next step. Having found the next
blank row, now how do I enter data into that row?

 

[Guest]

In a standard module include:

Sub Foo()
Dim blankrow As Long
blankrow = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row ' Toms line
Range("A" & blankrow).Value = "something" 'Adjust
to suit
End Sub

Jim

 

[Guest]

That worked beautifully. Thanks, Tom and Jim!

In a standard module include:

Sub Foo()
Dim blankrow As Long
blankrow = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row ' Toms line
Range("A" & blankrow).Value = "something" 'Adjust
to suit
End Sub

Jim