Excel: Sort by Font Type 2

[bamundsen]

I received a spreadsheet which contains part # updates. Unfortunately, the sender marked all new or modifed part #'s with bold font (the entire row is in bold). Is there anyway I can sort the spreadsheet by font type or return a value of 1 if a cell has bold font? Thanks,

Brett

 

[SkipVought]

Hi,

Not without VBA code.

copy 'n' paste this code into a MODULE and then

Function MarkBold(rng As Range)
    If rng.Font.Bold Then
        MarkBold = 1
    Else
        MarkBold = 0
    End If
End Function

use it like any other spreadsheet function with a cell reference.

Skip,

_{[red]Be advised:[/red] The dyslexic, agnostic, insomniac, lays awake all night wondering...
"Is there really a DOG?"}

 

[DaleWatson123321]

Brett,

This will do as you requested - places the value 1 into Column B. As noted below, you can easily adjust for whatever column you prefer.

Sub BoldFont_Identify()
[a1:a1000].Select 'adjust for number rows
r = Selection.Rows.Count
For i = 1 To r
If Cells(i, 1).Font.Bold = True Then
Cells(i, 2).Value = 1 '2 = Column B
End If
Next i
[a1].Select
End Sub

Regards, Dale Watson

 

[gizmo1973]

There are add ins out there that you can purchase that will sort by Font, Colour etc etc

DigDB is on of them or ASAP utilities

Regards, Phil.

M.U.F.C. Show your true support here:

http://shareholdersunited.org/join.php?ref=125059000

"Shares not Shirts

 

[bamundsen]

Thank you for your replies. I got DaleWatson's to work for me. I will have to look into DigDb. Thanks again...