Typing Check Marks into Excel

This piece of code will toggle a tick (check mark) on of off when double clicking any cell in the specified column (column 2 (B) in the sample -- edit as needed). I've tried it out in a test workbook, and found it works nicely.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
Cancel = True
Target.Font.Name = "Wingdings"
If Target.Value = "" Then
Target.Value = "ü"
Else
Target.Value = ""
End If
End If
End Sub

I found it at https://trumpexcel.com/check-mark/ which site covers a number of methods including many already mentioned in this tip. The site includes these instructions for use:
"You need to copy and paste this code in the code window of the worksheet in which you need this functionality. To open the worksheet code window, left-click on the sheet name in the tabs and click on 'View Code'"

this seems like a lot of work either way. Why don't you just select Insert > Symbol, then scroll to an available checkmark and select it. Better yet, go to macros start a macro and then do the above step. Then you would have your symbol with one key combination always.

=IF(ISBLANK(B2)," ",IF(B2=0,"","X"))

IN THE SECOND IF STATEMENT, I NEED A CHECK MARK BETWEEN THE "". I CAN PUT A C THERE FOR CORRECT BUT I WOULD RATHER USE A CHECK MARK.

I was asked to set up a system that allowed users to click into a cell and it changed to a tick, if they clicked again it changed into a cross, and clicking a third time blanked the cell. After formatting an area of the sheet as Wingdings I used this simple routine to perform the required task.

If ActiveCell.FormulaR1C1 = "" Then
ActiveCell.FormulaR1C1 = "þ"
ElseIf ActiveCell.FormulaR1C1 = "þ" Then
ActiveCell.FormulaR1C1 = "ý"
Else
ActiveCell.FormulaR1C1 = ""
End If

What happens if you utilise a font that is not available on the client/target system? Will it generate one of the rectangular 'system char' things? looks a bit like " [] ". My concern is that displaying the sheet on another OS (Mac or *nix rather than Win, for example) may not display the chosen character correctly.

I think this person may want to add a checkbox control. Here is a helpful article on that ...
https://support.office.com/en-us/article/Add-a-check-box-option-button-or-toggle-button-to-a-worksheet-1b4a1c18-e99a-4a49-abc5-ca2c120f426f

I use the square root symbol as check mark. This way, you are font-independent. (Can be found under Mathematical Operators). I've defined an autocorrect, when I type "xr" this is replaced by the square root/check mark.

Useful tip - thanks. It would also be useful to know how to change the Un-checked checkbox into a checked box (for a distributed task list, or for an indicator that something was completed) Guessing that it might involve some VBA using onClick and changing the character.

Thanks.

Tom

Quicker and easier:

1. On the "Insert" ribbon tab, click "Symbol"
2. Dialog box appears, scroll down and click the checkmark
3. Click Insert!

I've been using the Monotype Sorts font for years. Typing a "4" in that font gives you a nice big tick. "6" gives you a cross.

For a tick, I have always used 'a' in Marlett, which is easy to remember. It's also a nice bold tick.

For a cross, I generally just use an X in the current font (unless using an 'odd' font).

It was excellent.

Great tip - always wondered how to get ticks and crosses in a spreadsheet. Thanks!