Results 1 to 6 of 6
  1. #1
    5 Star Lounger
    Join Date
    Jun 2001
    Location
    USA
    Posts
    708
    Thanks
    48
    Thanked 1 Time in 1 Post

    Insert Special Characters

    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!
    Attached Images Attached Images

  2. #2
    3 Star Lounger Supershoe's Avatar
    Join Date
    Apr 2014
    Location
    Austin, TX
    Posts
    252
    Thanks
    1
    Thanked 36 Times in 34 Posts

  3. The Following User Says Thank You to Supershoe For This Useful Post:

    Jon5 (2014-09-29)

  4. #3
    Lounger
    Join Date
    Jul 2014
    Posts
    33
    Thanks
    7
    Thanked 3 Times in 3 Posts
    I do something similar with Wingdings 2 font
    shift O for a cross and shift P for a tick

    R

  5. The Following User Says Thank You to Rathril For This Useful Post:

    Jon5 (2014-09-29)

  6. #4
    5 Star Lounger
    Join Date
    Jun 2001
    Location
    USA
    Posts
    708
    Thanks
    48
    Thanked 1 Time in 1 Post
    Thanks, guys!

  7. #5
    Gold Lounger Maudibe's Avatar
    Join Date
    Aug 2010
    Location
    Pa, USA
    Posts
    2,640
    Thanks
    115
    Thanked 651 Times in 593 Posts
    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

    checks.png

    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
    Attached Files Attached Files

  8. The Following User Says Thank You to Maudibe For This Useful Post:

    Jon5 (2014-09-29)

  9. #6
    Star Lounger
    Join Date
    Feb 2009
    Location
    Kings Park, Victoria, Australia
    Posts
    90
    Thanks
    15
    Thanked 5 Times in 5 Posts
    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
    Maria
    Simmo7
    Victoria, Australia

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •