next open row

[joacro]

Hi there,

Someone assist me in this code, where the entries of txtboxes go into the next availible open row:

Private Sub CmdAdd_Click()

LR = Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & LR) = txtPrin
Range("A" & LR + 1) = txtSpouse
Range("A" & LR + 2) = txtCh1
Range("A" & LR + 3) = txtCh2
Range("A" & LR + 4) = txtCh3
Range("A" & LR + 5) = txtCh4
Range("A" & LR + 6) = txtCh5
Range("A" & LR + 7) = txtCh6
End Sub

It is working perfectly, however I need txtTotal to go into the same Row as txtPrin but in Colum "I"

Hope someone can assist me in this

Kind regards

Joacro

 

[VoG]

Try like this

[co9de]
Range("I" & Rows.Count).End(xlUp).Offset(1).Value = Val(txtTotal)
[/code]

 

[joacro]

Thank you.

Any Idee on how I can get txtTotal format as a number

 

[VoG]

Range("I" & Rows.Count).End(xlUp).Offset(1).Value = Format(Val(txtTotal),"0.332£
[/code]