Check Box macro

[titan2x]

Is there a way to create a macro that when a check box is ticked the corresponding value can be entered in another worksheet?

 

[Joe Was]

What value?
What address get that value?

 

[titan2x]

Lets say I have several values on a spreadsheet that change continously, but I only want one value to be used on another worksheet. So if I create a check box beside all the items and there values so that when the check box is ticked that corresponding value is entered into a desired cell in another worksheet. Can this be done?

i.e

Apples $50.00
Grapes $80.00
Peaches$20.00

So the value of the apples is ticked and the item name and value are entered under a different worksheet. Hope this helps.

 

[Joe Was]

There are two checkbox's that can be placed on a worksheet without using a UserForm. The Control Menu CheckBox and the Forms Menu CheckBox, each codes differently!
Which do you use?

Once again how is the code to know which Sheet and which cell gets the value from the cell with the CheckBox Checked?


The sample below shows the use of both CheckBox types: [The sample adds a strike-through line to the text in the selected cell if the CheckBox is Checked or clears the strike-through.]

The "cbCheck" Sub must be run to work. The other is a Click Event and works automatically!


Sub cbCheck()
'Sheet module code!
'For a "Form CheckBox" used on a sheet.
'This is the assigned macro for that checkbox!
'myClick is the checkbox state indicator!

Static myClick

If myClick = "" Then
'ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
ActiveCell.Select
Selection.Font.Strikethrough = True
myClick = "Yes"
Else
ActiveCell.Select
Selection.Font.Strikethrough = False
myClick = ""
End If
End Sub

Private Sub CheckBox1_Click()
'Sheet module code!
'For a "Control Tool Box CheckBox" used on a sheet.
'Automatically runs code on CheckBox change.

If CheckBox1.Value = -1 Then
'ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
ActiveCell.Select
Selection.Font.Strikethrough = True
Else
Selection.Font.Strikethrough = False
End If
End Sub