Insert Special Characters

Topic

New Reply

Hi there –

Does anyone know how to insert characters in Excel that look exactly like the green checks and red “X”s in the attached chart?

Thanks!

Reply | Quote

Replies

http://office.microsoft.com/en-us/visio-help/insert-a-check-mark-symbol-HA001116601.aspx

Reply | Quote

I do something similar with Wingdings 2 font
shift O for a cross and shift P for a tick

R

Reply | Quote

Thanks, guys!

Reply | Quote

You could do it automatically, Clicking in a cell in the Range of A2 to A100 automatically places a green check. Clicking in a cell in the Range of B2 to B100 automatically places a red X. Clicking on it again removes the symbol. Place in a sheet module.

HTH,
Maud

38008-checks

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range(“A2:A100”)) Is Nothing Then
        Target.Font.Name = “Marlett”
        If Target = vbNullString Then
           Target = “a”
        Else:
           Target = vbNullString
        End If
    ElseIf Not Intersect(Target, Range(“B2:B100”)) Is Nothing Then
        Target.Font.Name = “Symbol”
        If Target = vbNullString Then
           Target = “C”
        Else:
           Target = vbNullString
        End If
    End If
End Sub

Reply | Quote

I use the Wingdings characters 251 & 252 in the following macro’s.

Code:Sub XMark()
‘
‘ XMark Macro
‘ Insert X in Wingdings font
‘

‘
ActiveCell.FormulaR1C1 = “û”
With Selection.Font
.Name = “Wingdings”
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With

With Selection
.HorizontalAlignment = xlCenter
End With
ActiveCell.Offset(0, 1).Select
End Sub
Sub TickMark()
‘
‘ TickMark Macro
‘ Insert Tick in Wingdings Font
‘

‘
ActiveCell.FormulaR1C1 = “ü”
With Selection.Font
.Name = “Wingdings”
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With

With Selection
.HorizontalAlignment = xlCenter
End With
ActiveCell.Offset(0, 1).Select
End Sub

You can then modify to use the colours you want.

Regards,
Maria

Reply | Quote