Best to post a spreadsheet with dummy data.
Here is a print screen. When I complete the form the data populates the next empty row. I would like the F3 to populate with =D3/E3 once the data is submitted. You will find the form code below. Thanks for your help and let me know if you need any other information.
-- removed inline image ---
Form code:
Private Sub cmdsubmit_Click()
Dim RowCount As Long
'Range("A3").Value = txtdate.Text
'Range("B3").Value = txttemps.Text
'Range("C3").Value = txtpériode.Text
'Range("D3").Value=txtsystolic.Text
'Range("E3").Value=txtdiastolic.Text
'Range("G3").Value=txtheartrate.Text
'Range("H3").Value=txtbloodsugar.Text
'Range("J3").Value=txtweight.Text
'Range("K3").Value=txtmusclemass.Text
'Range("L3").Value=txtbodyfat.Text
'Range("M3").Value=txttbw.Text
'Range("N3").Value=txtbmr.Text
RowCount = Worksheets("JBR").Range("A1").CurrentRegion.Rows.Count
With Worksheets("JBR").Range("A1")
.Offset(RowCount, 0) = Me.txtdate.Value
.Offset(RowCount, 1) = Me.txttemps.Value
.Offset(RowCount, 2) = Me.txtpériode.Value
.Offset(RowCount, 3) = Me.txtsystolic.Value
.Offset(RowCount, 4) = Me.txtdiastolic.Value
.Offset(RowCount, 6) = Me.txtheartrate.Value
.Offset(RowCount, 7) = Me.txtbloodsugar.Value
.Offset(RowCount, 9) = Me.txtweight.Value
.Offset(RowCount, 10) = Me.txtmusclemass.Value
.Offset(RowCount, 11) = Me.txtbodyfat.Value
.Offset(RowCount, 12) = Me.txttbw.Value
.Offset(RowCount, 13) = Me.txtbmr.Value
End With
End Sub
Private Sub lbldate_Click()
End Sub
Private Sub lbltime_Click()
End Sub
Private Sub lblmedicalconditions_Click()
End Sub
Private Sub lblpériode_Click()
End Sub
Private Sub lblrife_Click()
End Sub
Private Sub UserForm_Activate()
txtdate.Text = Format(Now(), "MM/DD/YY")
End Sub
Private Sub txtdate_Change()
txttemps.Text = Format(Now(), "hh:mm")
End Sub
Private Sub txtsystolic_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii > 47 And KeyAscii < 58) Or KeyAscii = 46 Or KeyAscii = 32 Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
MsgBox "Invalid Key"
End If
End Sub
Private Sub txtdiastolic_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii > 47 And KeyAscii < 58) Or KeyAscii = 46 Or KeyAscii = 32 Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
MsgBox "Invalid Key"
End If
End Sub
Private Sub txtheartrate_txtheartrate_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii > 47 And KeyAscii < 58) Or KeyAscii = 46 Or KeyAscii = 32 Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
MsgBox "Invalid Key"
End If
End Sub
Private Sub txtbloodsugar_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii > 47 And KeyAscii < 58) Or KeyAscii = 46 Or KeyAscii = 32 Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
MsgBox "Invalid Key"
End If
End Sub
Private Sub txtweight_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii > 47 And KeyAscii < 58) Or KeyAscii = 46 Or KeyAscii = 32 Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
MsgBox "Invalid Key"
End If
End Sub
Private Sub txtmusclemass_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii > 47 And KeyAscii < 58) Or KeyAscii = 46 Or KeyAscii = 32 Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
MsgBox "Invalid Key"
End If
End Sub
Private Sub txtbodyfat_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii > 47 And KeyAscii < 58) Or KeyAscii = 46 Or KeyAscii = 32 Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
MsgBox "Invalid Key"
End If
End Sub
Private Sub txttbw_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii > 47 And KeyAscii < 58) Or KeyAscii = 46 Or KeyAscii = 32 Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
MsgBox "Invalid Key"
End If
End Sub
Private Sub txtbmr_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii > 47 And KeyAscii < 58) Or KeyAscii = 46 Or KeyAscii = 32 Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
MsgBox "Invalid Key"
End If
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub ComboBox1_Change()
End Sub