Is there a font that shows a Y as a tick and an N as a cross?

  • Thread starter Thread starter julie cooke
  • Start date Start date
You could use event code to return a tick or a cross depending on a Y or N typed
into a cell.


Gord Dibben MS Excel MVP
 
You could use (insert) another column alongside the input column, and have
that "helper" column display those characters.

Say the Y and N is entered in Column G.
Format Column H to "WingDings 2",
Then enter this formula in H1:

=IF(G1="N",CHAR(200),IF(G1="Y",CHAR(80),""))

And copy down as needed.
 
Unfortunately none of the suggestions are suitable for my needs - although I
would welcome other responses.

Users are inputting 'Y's or 'n's into cells as previously instructed,
however our director would prefer to see ticks!

These entries are then counted to enable the sheet to show the % that are
yes for each column.

We cannot add any other columns as both the inputters and users of the
report need to be able to see the same columns.

I can format an 'a' as a tick under Marlett font and there are various other
ways of displaying ticks and crosses - from symbols to other fonts (ie
Monotype sorts) although many of these require a complex - ie not single
input - character.

Additionally all users will need to see a tick or y/n displayed.

My question is probably more aimed at Microsoft - could 'they' (or some
other technical bod) create a font which shows single entries as specific
symbols (but within the cell, so counta/countif still works. ie Y= a tick,
N= a cross $= a Euro symobol, etc. Obviously this font would then need to be
available to all users (although this could be via a 'patch' or update pack
from Microsoft.
 
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Me.Range("D:D")) Is Nothing Then Exit Sub
On Error GoTo CleanUp
Application.EnableEvents = False
If Target.Value = "Y" Then
With Target
.Font.Name = "Marlett"
.Font.Size = 12
.Value = "a"
End With
End If
If Target.Value = "N" Then
With Target
.Font.Name = "Arial"
.Font.Size = 12
.Value = "X"
End With
End If
CleanUp:
Application.EnableEvents = True
End Sub


=COUNTIF(D1:D20,"X")

=COUNTIF(D1:D20,"a")


Gord Dibben MS Excel MVP
 
Back
Top