compile error with checkbox sub

[LadyRed2]

Hello all,
I am attempting to add a check box to the form I created in excel. What I want the macro to do is if the checkBox is checked (= true) then I want the information in cell B13 to be inserted into cell F13. If the checkBox is not checked (= false) then I do not want anything to be done.

I am very new at this so I may need to have things explained to me.

Here is what I have now

Sub CheckBox1_Click()
 
If CheckBox1.Value = True Then
    Cell(F13) = Cell(B13)
Else
'do nothing
End If
 
End Sub
 

Thanks for the help
Deirdre

[Dököll]

Hello all,
I am attempting to add a check box to the form I created in excel. What I want the macro to do is if the checkBox is checked (= true) then I want the information in cell B13 to be inserted into cell F13. If the checkBox is not checked (= false) then I do not want anything to be done.

I am very new at this so I may need to have things explained to me.

Here is what I have now

Sub CheckBox1_Click()
 
If CheckBox1.Value = True Then
    Cell(F13) = Cell(B13)
Else
'do nothing
End If
 
End Sub
 

Thanks for the help
Deirdre

Nice code, what is it not doing, looks okay to me. I'll give it a whirl see what I have...


What if you did this!

 
Private Sub TransportData_Click() 'make a button called "TransportData"
If CheckBox1.Value = True Then 'your checkbo still remains "CheckBox1"
    Cell(F13) = Cell(B13)
Else
'do nothing
End If
 
End Sub
 

Though, I wondered if Enabled would not work here:

 
Private Sub TransportData_Click() 'make a button called "TransportData"
If CheckBox1.Enabled = True Then 'your checkbo still remains "CheckBox1"
    Cell(F13) = Cell(B13)
Else
'do nothing
End If
End Sub
 

In a bit!

[cryoburned]

never said what version.. snd..

whats wrong with your original code?

[Dököll]

Nice code, what is it not doing, looks okay to me. I'll give it a whirl see what I have...


What if you did this!

 
Private Sub TransportData_Click() 'make a button called "TransportData"
If CheckBox1.Value = True Then 'your checkbo still remains "CheckBox1"
    Cell(F13) = Cell(B13)
Else
'do nothing
End If
 
End Sub
 

Though, I wondered if Enabled would not work here:

 
Private Sub TransportData_Click() 'make a button called "TransportData"
If CheckBox1.Enabled = True Then 'your checkbo still remains "CheckBox1"
    Cell(F13) = Cell(B13)
Else
'do nothing
End If
End Sub
 

In a bit!

You could also need to add it like this:

 
ActiveSheet.CheckBox1.Value =1
 
 

Perhaps:

 
Private Sub TransportData_Click() 'make a button called "TransportData"
If ActiveSheet.CheckBox1.Value =1 Then 'checkbox "CheckBox1"
    Cell(F13) = Cell(B13)
Else
'do nothing
End If
End Sub
 

Got side-tracked a bit, but try it. Please stay tuned, you should get some hits form memebers here. In a bit!