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,
Ivan F Moala
http://<font color="green"><a href="...r Construction

[ This Message was edited by: Ivan F Moala on 2002-04-11 04:04 ]

[Phil C]

Thankyou
This worked perfectly.