Hi all,

I'm trying to write a macro so that when information is entered into a form
I have created it will be inputed automatically into one of the worksheets
when I hit the submit button. I have been able to do this but need it to
recognise that if there is all ready information in that line rather than
overwriting the information, it skips down to the next line where there is no
information.

Is this possible?

set cell = Worksheets("Sheet2").Range("A2")
do while not isemtpy(cell)
set cell = cell.offset(1,0)
Loop
Cell.Value = Userform1.Textbox1.Text
cell.offset(0,1).Value = Userform1.Textbox2.Text

--
Regards,
Tom Ogilvy




"phoenixx153" wrote in message
...
Hi all,

I'm trying to write a macro so that when information is entered into a
form
I have created it will be inputed automatically into one of the worksheets
when I hit the submit button. I have been able to do this but need it to
recognise that if there is all ready information in that line rather than
overwriting the information, it skips down to the next line where there is
no
information.

Is this possible?

Sub Tst2()
Dim varnbrows As Double
Range("A1").Select
varnbrows = Selection.CurrentRegion.Rows.Count
If Selection.Value = "" Then
Exit Sub
ElseIf Selection.Offset(1, 0).Value = "" Then
Selection.Offset(1, 0).Select
Else
Selection.Offset(varnbrows, 0).Select
End If
End Sub

this code will take you to the first emty cell in column A

and once there you can paste your record
you can change the column in the cod

--
davesexce
-----------------------------------------------------------------------
davesexcel's Profile: http://www.excelforum.com/member.php...fo&userid=3170
View this thread: http://www.excelforum.com/showthread.php?threadid=51674