New Row

zaahir

Are you able to show us your existing code?

hi
Sure.....

Private Sub cmdAccept_Click()
Workbooks.Open Filename:= _
"\\User-reception\all cmf docs\CMFS Electronic System\DataBase\CMFClientInfo.xls"
Sheets("CMFClientInfo").Cells(3, 1) = Me.txtName.Text
ActiveWorkbook.Save
ActiveWorkbook.Close
txtName.Text = ""
Unload Me
frmNewClientInfo.Hide
End Sub

The offset Code returns "= missing"
pls help me with a correct code to select the next row & enter data.

zaahir

For the second and subsequent entries, instead of
Sheets("CMFClientInfo").Cells(3, 1) = Me.txtName.Text
try
Sheets("CMFClientInfo").Cells(1, 1).End(xlDown).Offset(1, 0) = Me.txtName.Text

The offset Code returns "= missing"

Click to expand...

I cannot see what this is referring to. ??

thanx
but as i said before, i need this to function to execute and run thru afew columns.
Using the above off-set moves from row1 col A to row2 colA, but not in the other colums. it diverts back to row1col b then overwrites all the previous data.

here is the entire code!!!!
Sheets("CMFClientInfo").Cells(1, 1).End(xlDown).Offset(1, 0) = Me.txtName.Text
Sheets("CMFClientInfo").Cells(1, 2).End(xlDown).Offset(1, 0) = Me.txtStreet1.Text
Sheets("CMFClientInfo").Cells(1, 3).End(xlDown).Offset(1, 0) = Me.txtStreet2.Text
Sheets("CMFClientInfo").Cells(1, 4).End(xlDown).Offset(1, 0) = Me.txtStreet3.Text
Sheets("CMFClientInfo").Cells(1, 5).End(xlDown).Offset(1, 0) = Me.txtStreetCode.Text
Sheets("CMFClientInfo").Cells(1, 6).End(xlDown).Offset(1, 0) = Me.txtPost1.Text
Sheets("CMFClientInfo").Cells(1, 7).End(xlDown).Offset(1, 0) = Me.txtPost2.Text
Sheets("CMFClientInfo").Cells(1, 8).End(xlDown).Offset(1, 0) = Me.txtPost3.Text
Sheets("CMFClientInfo").Cells(1, 9).End(xlDown).Offset(1, 0) = Me.txtPostCode.Text
Sheets("CMFClientInfo").Cells(1, 10).End(xlDown).Offset(1, 0) = Me.txtContact.Text
Sheets("CMFClientInfo").Cells(1, 11).End(xlDown).Offset(1, 0) = Me.txtVAT.Text
Sheets("CMFClientInfo").Cells(1, 12).End(xlDown).Offset(1, 0) = Me.txtTel.Text
Sheets("CMFClientInfo").Cells(1, 13).End(xlDown).Offset(1, 0) = Me.txtFax.Text

Please help!!!!!!

zaahir

Not tested, but see if this helps

<font face=Courier New><SPAN style="color:#00007F">Dim</SPAN> myText(13) <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> myRow <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> c <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>

myText(1) = Me.txtName.Text
myText(2) = Me.txtStreet1.Text
myText(3) = Me.txtStreet2.Text
<SPAN style="color:#007F00">' Add the other 10 values here</SPAN>

myRow = Sheets("CMFClientInfo").Cells(1, 1).End(xlDown).Row + 1
<SPAN style="color:#00007F">For</SPAN> c = 1 <SPAN style="color:#00007F">To</SPAN> 3 <SPAN style="color:#007F00">'Change this to 13 when all the text entries above have been added</SPAN>
    Cells(myRow, c).Value = myText(c)
<SPAN style="color:#00007F">Next</SPAN> c</FONT>

hi Peter

Thanx, works grand!!!!!!!!!!
Appreciate it.
ciao