Userform Problem

[Phil C]

I have created a userform that enters data into an excel spreadsheet. The form has an "Enter data" and a "Next Record" button both buttons work fine when the form is loaded. The problem is that when I exit the form and then reload it, it starts at the first cell and replaces the previous record. I need code that will select the first empty row. Here is some of the code for the form:

Option Explicit
Dim rownumber As Integer

rivate Sub cmdNext_Click()
rownumber = rownumber + 1
txtDate.SetFocus
End Sub

Private Sub UserForm_Initialize()
rownumber = 38
txtDate.SetFocus
End Sub

Using this code the data is entered from rownumber 38. What I need is code to replace the 38 with first empty row. Can anyone help with this?

thanks in advance

 

[Ivan F Moala]

On 2002-04-11 03:01, Phil C wrote:

Option Explicit
Dim rownumber As Integer

rivate Sub cmdNext_Click()
rownumber = rownumber + 1
txtDate.SetFocus
End Sub

Private Sub UserForm_Initialize()
rownumber = 38
txtDate.SetFocus
End Sub

Using this code the data is entered from rownumber 38. What I need is code to replace the 38 with first empty row. Can anyone help with this?

thanks in advance

Try
rownumber = [A65536].End(xlUp).Row

Assuming data is in Column A


_________________
Kind Regards,<font size=+2><font color="red"> I<font color="blue">van<font color="red"> F M</font color="blue">oala</font></font></font>
<font color="green">[url]http://www.gwds.co.nz/ - Under Construction[/url]
This message was edited by Ivan F Moala on 2002-04-11 04:04

 

[Phil C]

Thankyou
This worked perfectly.