check box

[KeithQuigley]

does anyone have a simple way of adding a check/tick to a cell? i have an order sheet and the products are in a list in column 1A and the sizes of the product is in the first row. i want to be able to tick each one?


and total the final ones which i can probably manage, unless adding the check box/tick is tricky

 

[baitmaster]

try this

set the font to Martlett. In this font, "a" is a tick

Add the following code (right-click on sheet tab, select "view code"):

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value = "" Then
Target = "a"
Else
If Target.Value = "a" Then Target = ""
End If
Cancel = True
End Sub

Double-clicking any cell will swap between "a" and a blank cell. You can use the a in any formulas needed to retrieve your results, e.g. If, Sumif, Sumproduct etc

Note this code changes ANY cell. You should add additional error handling to ensure that only the cells you want are changed, say, by asking if target.column = 1