Apply check mark in cell when the mouse is clicked.

[craigwojo]

Hi everyone,
Looking for "how to" place a "checkmark" in a cell with just a mouse click. If it is pressed again, then the "checkmark" is removed. I know little about the radio buttons but don't know if that would work.

thank you and God bless,
Craig

Excel Subscription 365

 

[mumps]

I would suggest using a double click instead of a single click to insert the check mark. This would prevent you from accidentally inserting a check mark if you mistakenly click the cell. If you want to use a single click, then do the following: right click the tab name for your sheet and click 'View Code'. Paste the first macro below into the empty code window that opens up. Close the code window to return to your sheet. If you want to use a double click, use the second macro instead. Please note that the code is written to use cell A1 as the target cell. Change the target cell (in red) to suit your needs.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    If Target = "" Then
        Target.Value = ChrW(&H2713)
    Else
        Target.ClearContents
    End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    If Target = "" Then
        Target.Value = ChrW(&H2713)
    Else
        Target.ClearContents
    End If
End Sub

 

[craigwojo]

I would suggest using a double click instead of a single click to insert the check mark. This would prevent you from accidentally inserting a check mark if you mistakenly click the cell. If you want to use a single click, then do the following: right click the tab name for your sheet and click 'View Code'. Paste the first macro below into the empty code window that opens up. Close the code window to return to your sheet. If you want to use a double click, use the second macro instead. Please note that the code is written to use cell A1 as the target cell. Change the target cell (in red) to suit your needs.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    If Target = "" Then
        Target.Value = ChrW(&H2713)
    Else
        Target.ClearContents
    End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    If Target = "" Then
        Target.Value = ChrW(&H2713)
    Else
        Target.ClearContents
    End If
End Sub

 

[craigwojo]

Hi mumps,
Simple question... If I wanted to extend the range down the column, (let's say G5 through G100) what would I do?

 

[craigwojo]

Hi mumps,
Simple question... If I wanted to extend the range down the column, (let's say G5 through G100) what would Figurted

 

[craigwojo]

I figured it out (well remembered) G5:G100.
Thank you

 

[mumps]

You are very welcome. You could simply use G:G so you don't have to worry about where the last row of data is.