Checkbox macro per row

[rcb007]

How could I write a macro that when its checked, it would take A1 and Paste the Value into C1?

With that, If I place a checkbox at each row, it will perform the same macro action as Row 1?

If I have the following:

A B C D
1 previous override current value original [Checkbox]
2
3

If the Values in A1 and B1 have formulas, would it still paste the formula or just paste the value?

Thank you!

 

[JB2020]

You could do this with a formula by linking each checkbox to a cell then having the formula in column C as =IF(LinkedCell, A1,"")
Otherwise you could link a this macro to all of your checkboxes:

Sub CopyValue()

Dim CheckBoxName As String
Dim SelectedCheckBox As CheckBox
Dim CheckBoxRow As Long
Dim ValueToInput As Variant

    CheckBoxName = Application.Caller
    Set SelectedCheckBox = ActiveSheet.CheckBoxes(CheckBoxName)
    CheckBoxRow = SelectedCheckBox.TopLeftCell.Row
    ValueToInput = VBA.IIf(SelectedCheckBox.Value = 1, Range("A" & CheckBoxRow).Value, "")
    Range("C" & CheckBoxRow).Value = ValueToInput

End Sub