checkbox to command value change

[simonplus]

I created a checkbox and placed it at the end of each row of a table.

Once I check it off, I would like the value in cell M16 to change to zero, and the cells from N16 to Q16 to clear the values within them and change color (black).

What the VBA code would be for something like this?

I hope this is clear.

Your help would be much appreciated.

Thanks

[Kenneth Hobson]

Is it a Forms or ActiveX control? Forms controls require that a macro be attached. ActiveX control's code is located in the sheet they are on. The Developer tab is an easy way to edit your controls.

Is the font color or interior cell's color changed to black?

Be sure that your control's top left corner is within the cell. A zoom view might be needed to ensure that.

[simonplus]

Its Active X. Lets make it easier. Once I check the box off (cell r16), I would like the entire row to turn green (A16:Q16).

Thanks

S

[Kenneth Hobson]

Right click the sheet's tab, View Code, and paste. Add more checkbox subs to suit like 1 and 2.

Private Sub CheckBox1_Click()
  cCells CheckBox1
End Sub

Private Sub CheckBox2_Click()
  cCells CheckBox2
End Sub

Private Sub cCells(s As msforms.CheckBox)
  Dim r&, c&
  With s
    r = .TopLeftCell.Row
    c = .TopLeftCell.Column
    If r < 16 Or c <> 18 Then Exit Sub
    If .Value = True Then
      Range(Cells(r, "A"), Cells(r, "Q")).Interior.Color = 5287936
      Else
      Range(Cells(r, "A"), Cells(r, "Q")).Interior.Color = xlNone
    End If
  End With
End Sub