Check mark

[bacpa]

I want to click on a cell and a check mark put in the cell. Is that possible.

 

[ColinKJ]

Hi bacpa,

It is possible, but it would involve some VBA code in the Sheet Selection_Change event handler.

Which cells do you require this to happen in.?

 

[GTO]

An easy way is to change the font of the cell(s) and figure out what letter/number gives you the symbol you want; then use the double-click event.

Option Explicit
    
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Count = 1 And Not Application.Intersect(Target, Range("A1:A20")) Is Nothing Then
        Cancel = True
        If Target.Value = vbNullString Then
            Target.Value = "R"
        Else
            Target.ClearContents
        End If
    End If
End Sub

 

[bacpa]

This maybe above me, but I would like to be able to put a check mark in say cells A1-A10 and C1-C10

 

[doofusboy]

I would like to be able to put a check mark in say cells A1-A10 and C1-C10 <!-- / message -->

This should do what you need:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing _
    Or Not Application.Intersect(Target, Range("C1:C10")) Is Nothing Then
        Target.Font.Name = "Marlett"
        Target.Value = "a"
    End If
 
End Sub

 

[ColinKJ]

You will need to add the "Else" if you want to be able to remove the check by Double Clicking.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing _
    Or Not Application.Intersect(Target, Range("C1:C10")) Is Nothing Then
        Target.Font.Name = "Marlett"
        Target.Value = "a"
    Else
         Target.ClearContents
    End If
 
End Sub

 

[Haldoug]

Font windings2 and the Capital P is checkmark that is a little bigger.
Can you format those cells for windings2 and just type a Capital P, or Marlett and small a, or will something else go in the cells.

 

[T. Valko]

Font windings2 and the Capital P is checkmark that is a little bigger.
Can you format those cells for windings2 and just type a Capital P, or Marlett and small a, or will something else go in the cells.

Here's a bunch of ideas...

http://tinyurl.com/mdgxfy

I particularly like Dave Peterson's idea in post #11.

 

[lenze]

I posted code for this on VBAExpress several years ago
CheckBox Alternative

lenze