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!!!!!!
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!!!!!!