ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Finding blank row and entering data in row from userform (https://www.excelbanter.com/excel-programming/391185-finding-blank-row-entering-data-row-userform.html)

MAWII

Finding blank row and entering data in row from userform
 
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

Tom Ogilvy

Finding blank row and entering data in row from userform
 
blankrow = cells(rows.count,"A").End(xlup).offset(1,0).row

uses column 1 to find the next blank cell. Adjust to suit.
--
Regards,
Tom Ogilvy


"MAWII" wrote:

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


MAWII

Finding blank row and entering data in row from userform
 
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?

"Tom Ogilvy" wrote:

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

uses column 1 to find the next blank cell. Adjust to suit.
--
Regards,
Tom Ogilvy


"MAWII" wrote:

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


JMay

Finding blank row and entering data in row from userform
 
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


"MAWII" wrote:

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?

"Tom Ogilvy" wrote:

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

uses column 1 to find the next blank cell. Adjust to suit.
--
Regards,
Tom Ogilvy


"MAWII" wrote:

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



All times are GMT +1. The time now is 08:22 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com