View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.misc
FARAZ QURESHI FARAZ QURESHI is offline
external usenet poster
 
Posts: 553
Default Choose Font In A Formula

You are quite right the codes are actually 251 & 252. Thanx!
--

Best Regards,
FARAZ A. QURESHI


"Stefi" wrote:

Check char codes for Checkmark Symbol and Cross Symbol! In my Excel 2003 241
and 242 are emmpty up and down arrows!
Stefi


€˛Stefi€¯ ezt Ć*rta:

Enter this formula in the result cell:
=IF(OR(A1=0,B1=0),"Incomplete Data",CHAR(IF(A1=B1,241,242)))

and install this event sub:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column <= 2 Then
Range("C1").Font.Name = _
IIf(Range("A1") = 0 Or Range("B1") = 0, "Times New Roman",
"Wingdings")
End If
End Sub

Regards,
Stefi


€˛FARAZ QURESHI€¯ ezt Ć*rta:

Is there anyway to form a result in Wingdings if Yes, else in normal/standard
text.
For example I want the result to be reflecting the Checkmark Symbol (242) of
Wingdings if =A1=B1, else if =A1<B1 the Cross Symbol (241) of Wingdings, and
finally in case of =OR(A1=0,B1=0) the result being in default Times New Roman
"Incomplete Data".

Your expert advice is sought and shall be obliged. Thanx in advance.

--

Best Regards,
FARAZ A. QURESHI