Hello,

I need a code so from my user form when I check a box and filled in my user form and then transfer data to my spreadsheet

I can get the text all to transfer and it clears the user form but what code do I need to use help me clear the check boxes

Below is the code I have used to transfer the text from my user form to cell b10 and all the text in text box one is all transferred over

Private Sub TRANSFER_DATA_Click()
With TextBox1
Sheets("sheet1").Range("B10").Value = .Text
.Text = ""
End With
End Sub



Currently with my check box once I click on it so it highlights a cell it does it straight away wait until I have pressed my button.

Have I got the code in the wrong place and also what is the correct code. I have pasted my coding sorry for it being soo long.


Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Worksheets("Sheet1").Range("H4") = "TRACE DRIVER"
Else
Worksheets("Sheet1").Range("H4").ClearContents
End If

End Sub

Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
Worksheets("Sheet1").Range("H5") = "CCTV REQUEST"
Else
Worksheets("Sheet1").Range("H5").ClearContents
End If
End Sub

Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
Worksheets("Sheet1").Range("d2") = "YES"
Else
Worksheets("Sheet1").Range("D2").ClearContents
End If
End Sub

Private Sub CheckBox4_Click()
If CheckBox4.Value = True Then
Worksheets("Sheet1").Range("H6") = "ACTION REQUIRED"
Else
Worksheets("Sheet1").Range("H6").ClearContents
End If
End Sub

Private Sub CheckBox5_Click()

End Sub


Private Sub Close_Form_Click()
Unload data_entry
End Sub


Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Worksheets("Sheet1").Range("d2") = "YES"
Else
Worksheets("Sheet1").Range("D2").ClearContents
End If
End Sub

Private Sub OptionButton2_Click()
If OptionButton1.Value = True Then
Worksheets("Sheet1").Range("d2") = "YES"
Else
Worksheets("Sheet1").Range("D2").ClearContents
End If

End Sub




Private Sub TRANSFER_DATA_Click()
With TextBox1
Sheets("sheet1").Range("B10").Value = .Text
.Text = ""
End With
With TextBox2
Sheets("sheet1").Range("B14").Value = .Text
.Text = ""
End With
With TextBox3
Sheets("sheet1").Range("B16").Value = .Text
.Text = ""
End With
With TextBox4
Sheets("sheet1").Range("B19").Value = .Text
.Text = ""
End With
With TextBox5
Sheets("sheet1").Range("g19").Value = .Text
.Text = ""
End With
With TextBox6
Sheets("sheet1").Range("g10").Value = .Text
.Text = ""
End With
With TextBox9
Sheets("sheet1").Range("g14").Value = .Text
.Text = ""
End With
With TextBox7
Sheets("sheet1").Range("a23").Value = .Text
.Text = ""
End With
With TextBox8
Sheets("sheet1").Range("a29").Value = .Text
.Text = ""
End With
With TextBox10
Sheets("sheet1").Range("B2").Value = .Text
.Text = ""
End With
With CheckBox5.Value = True
Sheets("sheet1").Range("g56").Value
.Text = ""
End With



End Sub