Excel VB: Loop till empty cell found

[mxp346]

I have a form that after filled out, adds an intern name and job skills to a worksheet called interns when a button is clicked. How can I have the data of the new intern entered into the next empty row? I'm thinking I need a loop that starts with the first row and then keeps going down until cell A1 is empty(does not have a name in it). Anyone know any code for this? Thanks in advance for the help.

 

[VulcanJedi]

two methods?:
1)
loop until first cell (assume column A) is empty

counter = 1
do until cells(counter, 1) = ""
counter=counter +1
loop
maxrows = counter -1
'use maxrows as index to new entry

2)
I would presume this would work...
maxrows = application.activesheet.usedrange.rows.count (this would return the # of rows, last used in the sheet)

the index for the next entry would be maxrows+1 obviously for the next line

hope this helps Tranpkp

 

[xlbo]

On your enter button click event:

lRow = sheets("Intern&quot.range("a65536&quot.end(xlup).row
Sheets("Intern&quot.range("A" & lRow + 1).value = frmName.txtBoxName.text
Rgds
~Geoff~

 

[mxp346]

Thank you both for the help. Geoff, the code you sent me was very efficient, thank you.