VBA, Userform with checkboxes - How to change the value from "Yes" to "1"

You could use something like this, which will put 1 in C10 if the checkbox is checked, 0 otherwise.

Range("C10").Value = Iif(Checkbox5.Value, 1, 0)

PS Are you sure your checkboxes return Yes/No? All of mine return True/False.

With if statements.

If CheckBox1.Value = True Then
    Range("A1").Value = 1
Else
    Range("A1").Value = 0
End If

You're right they are "TRUE" and "FALSE"
What does "Range" refer to? If I use C10, will every new field added overwrite the existing values in C10 or will it carry on with adding it to the next available row?

*EDIT* If I remove the cell so only "" shows will this keep it in flow with adding to last row?

If CheckBox1.Value = True Then
    Range("").Value = 1
Else
    Range("").Value = 0
End If

C10 is a hard coded reference I used in the example code I posted.

I don't know where you want the 1/0 to go so change it however you need to.

What code were you using previously to put the data from the userform on the worksheet?

PS Range("") is wrong.

Here's the full code.
I'm dubious of deleting the frame_click but I'm pretty sure I don't need them?

Private Sub Added_text_Change()

End Sub

Private Sub Date_Label_Click()

End Sub

Private Sub Employee_Text_Change()

End Sub

Private Sub Frame1_Click()

End Sub

Private Sub Frame2_Click()

End Sub

Private Sub Frame4_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub save_button_Click()

Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("RAW")


'find first empty row in database
iRow = ws.Cells(Rows.Count, "A").End(xlUp).Row + 1

'check for a Name number
If Trim(Me.Employee_Text.Value) = "" Then
Me.Employee_Text.SetFocus
MsgBox "Please complete the form"
Exit Sub
End If

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.Date_Text.Value
ws.Cells(iRow, 2).Value = Me.Employee_Text.Value
ws.Cells(iRow, 3).Value = Me.Sickness_Check.Value
ws.Cells(iRow, 4).Value = Me.SicknessPhone_Check.Value
ws.Cells(iRow, 5).Value = Me.Holiday_Check.Value
ws.Cells(iRow, 6).Value = Me.Lateness_Check.Value
ws.Cells(iRow, 7).Value = Me.Absent_Check.Value
ws.Cells(iRow, 8).Value = Me.Disc_Check.Value
ws.Cells(iRow, 9).Value = Me.SelfCert_Text.Value
ws.Cells(iRow, 10).Value = Me.HolidayForm_Text.Value
ws.Cells(iRow, 11).Value = Me.DiscLetter_Text.Value
ws.Cells(iRow, 12).Value = Me.LateTime_Text.Value
ws.Cells(iRow, 13).Value = Me.Added_text.Value



MsgBox "Data added", vbOKOnly + vbInformation, "Data Added"
'clear the data
Me.Employee_Text.Value = ""
Me.Sickness_Check.Value = ""
Me.SicknessPhone_Check.Value = ""
Me.Holiday_Check.Value = ""
Me.Lateness_Check.Value = ""
Me.Absent_Check.Value = ""
Me.Disc_Check.Value = ""
Me.SelfCert_Text.Value = ""
Me.HolidayForm_Text.Value = ""
Me.DiscLetter_Text.Value = ""
Me.LateTime_Text.Value = ""
Me.Added_text.Value = ""
Me.Employee_Text.SetFocus

Range("Sick_Note").Value = IIf(Sickness_Check.Value, 1, 0)
Range("Sick_No_Note").Value = IIf(SicknessPhone_Check.Value, 1, 0)
Range("Holiday").Value = IIf(Holiday_Check.Value, 1, 0)
Range("Late").Value = IIf(Lateness_Check.Value, 1, 0)
Range("Absent").Value = IIf(Absent_Check.Value, 1, 0)
Range("Disciplinary").Value = IIf(Disc_Check.Value, 1, 0)


End Sub

Private Sub exit_button_Click()

Unload Me

End Sub

Private Sub Employee_Click()

End Sub

Private Sub SicknessPhone_Check_Click()

End Sub

Private Sub UserForm_Click()

End Sub

Obviously you can see that I've changed the range, I created a name range for each column but it's just added all values in all rows of each column :P

Why have you created the ranges?

You should just need to change this code,

ws.Cells(iRow, 3).Value = Me.Sickness_Check.Value
ws.Cells(iRow, 4).Value = Me.SicknessPhone_Check.Value
ws.Cells(iRow, 5).Value = Me.Holiday_Check.Value
ws.Cells(iRow, 6).Value = Me.Lateness_Check.Value
ws.Cells(iRow, 7).Value = Me.Absent_Check.Val

like this.

ws.Cells(iRow, 3).Value = Iif(Me.Sickness_Check.Value,1,0)
ws.Cells(iRow, 4).Value = Iif(Me.SicknessPhone_Check.Value,1,0)
ws.Cells(iRow, 5).Value = Iif(Me.Holiday_Check.Value,1,0)
ws.Cells(iRow, 6).Value = Iif(Me.Lateness_Check.Value,1,0)
ws.Cells(iRow, 7).Value = Iif(Me.Absent_Check.Value,1,0)

Also, I think you can get rid of this, and the names.

Range("Sick_Note").Value = IIf(Sickness_Check.Value, 1, 0)
Range("Sick_No_Note").Value = IIf(SicknessPhone_Check.Value, 1, 0)
Range("Holiday").Value = IIf(Holiday_Check.Value, 1, 0)
Range("Late").Value = IIf(Lateness_Check.Value, 1, 0)
Range("Absent").Value = IIf(Absent_Check.Value, 1, 0)
Range("Disciplinary").Value = IIf(Disc_Check.Value, 1, 0)

PS It should be OK to delete the empty subs like Frame1_Click, in fact if you goto Debug>Compile Project they might disappear.