new row code

[zaahir]

Hi
Using the ffg code should select a new row. i enter data into a userform & the code pastes it to u workbook called database. instead of selecting the second row, it overwrites the first row.

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 remove the problem!!!!!!

 

[ravishankar]

your code has fixed the row number as 1 (note: all cells have cells(1,..))

Try adding the following code
ActiveSheet.Cells.SpecialCells(xlLastCell).Select
ir = ActiveCell.Row
change cell address to cells(ir,1), cells(ir, 2) etc.

Ravi

 

[Peter_SSs]

zaahir

It would be best to stick to the original thread rather than create a new one for what is essentially the same problem.
http://www.mrexcel.com/board2/viewtopic.php?t=237954