conditional formating bold is true not bold false how

[victorio0704]

What I want to do is for it to look if it finds the text in BOLD then it is
true if the text is not in Bold then is false

 

[paul.robinson]

Hi
not sure if this is what you want. Probably not.

Sub tester()
If ActiveCell.Font.Bold = True Then
MsgBox "Cell text is Bold"
Else
MsgBox "Cell text is not Bold"
End If
End Sub

macro tests if active cell is bold or not.
regards
Paul

 

[victorio0704]

The macro is ok but I need to apply it on a excel cell not in a program; how
do i put it in a cell

 

[Gord Dibben]

Function IsBold(Cell)
IsBold = Cell.Font.Bold
End Function

Note: a change of font format will not trigger a re-calculation.


Gord Dibben MS Excel MVP

 

[Joakin86]

Hi,

I have the same problem too.

At the moment I have these cells (2 rows and 5 columns):

A B C
D E
Bangladesh (Bangladesh Taka)* TRUE Bangladesh
Chittagong (Agrabad, St. Martin, 108 7,380 FALSE Sonargaon)
Peninsula) TRUE Peninsula)

* A1 is bold

My D column evaluates =EXACT(A1,"") such that for every new country, in this
case Bangladesh, if D1 is true E1 will copy the name of the new country.

the problem arises in the third line: Since I have to copy all the countries
in this database, some lines take more than one line space such in this case
and when I use my formula E3 gets the name of A3. Yet, this is a flaw I am
trying to fix testing for bold in the cell A3. I am using
IsBold(A3,A3.Font.Bold) but it does not work.

Any suggestions?

Thanks a lot