VBA Find unbold data

[sksanjeev786]

Hi Team,

I have data in which green, Blue shaded data should be in Bold and grey shaded should be in unbold

but in below data while doing manual bold and unbold some greeen shadded coloer bold is miss

so i want to find out where ever i have miss bold

Book1
	B	C	D	E	F	G
2	41%	16.1	43%	15.3	63%	8.7
3
4	39%	15.2	39%	4.2	49%	20.2
5	45%	20.4	45%	6.5	64%	12.9
6
7	93%	0.9	90%	4.4	95%	-4.1
8	36%	13.9	37%	12.5	49%	20.5
9	12%	12.1	12%	22.2	27%	6.4
10	44%	14.2	44%	15.1	61%	12.9
11	162/881		168/819		106/288
Sheet1

 

[Micron]

Is this not a continuation of this issue?

VBA support true and false color

Hi Team I need help checking the color of cells from F to J and O to S column inlduing Bold data as welll EFGHIJKLMNOPQRSTUVWXYZ6Brand Consideration37%+15.946%+15.537%15.946%15.5TRUETRUETRUETRUETRUE7TRUETRUETRUETRUETRUE8Brand Favorability34%+16.742%+15.434%16.742%15.4TRUETRUETRUETRUETRUE9Brand...

www.mrexcel.com

Isn't your choice of bold or not governed by the conditional formatting you show in that thread?

 

[Akbarov]

Below code is basic example what you should do.
It will check each cell in range C1:C10
IF cell color is green AND if it is not BOLD and show that cell address.
You can change range and add Loop to check for each column.

Sub is_BOLD()
Dim wb As Workbook
Dim ws As Worksheet
Dim rg As Range

Set ws = ActiveSheet
Set rg = ws.Range("C1:C10")

For Each cell In rg
If cell.Font.Bold = False And _
cell.Interior.Color = RGB(150, 193, 29) Then

MsgBox (cell.Address)

End If

Next
End Sub

 

[sksanjeev786]

Is this not a continuation of this issue?

VBA support true and false color

Hi Team I need help checking the color of cells from F to J and O to S column inlduing Bold data as welll EFGHIJKLMNOPQRSTUVWXYZ6Brand Consideration37%+15.946%+15.537%15.946%15.5TRUETRUETRUETRUETRUE7TRUETRUETRUETRUETRUE8Brand Favorability34%+16.742%+15.434%16.742%15.4TRUETRUETRUETRUETRUE9Brand...

www.mrexcel.com

Isn't your choice of bold or not governed by the conditional formatting you show in that thread?

Hi Micro,

This is a different scenario i have copied the data from PPT file and would like to find unbold data under shaded

Regards
Sanjeev

 

[sksanjeev786]

Below code is basic example what you should do.
It will check each cell in range C1:C10
IF cell color is green AND if it is not BOLD and show that cell address.
You can change range and add Loop to check for each column.

Sub is_BOLD()
Dim wb As Workbook
Dim ws As Worksheet
Dim rg As Range

Set ws = ActiveSheet
Set rg = ws.Range("C1:C10")

For Each cell In rg
If cell.Font.Bold = False And _
cell.Interior.Color = RGB(150, 193, 29) Then

MsgBox (cell.Address)

End If

Next
End Sub

Hi,

Thank you so much this works for us but for blue color it didnt came (Cell E19) in Msg box

just wanted to check can we have Mgs box cell address in cell border where ever we miss to bold

Regards
Sanjeev

 

[Akbarov]

This will check for both colors.

Sub is_BOLD()
Dim wb As Workbook
Dim ws As Worksheet
Dim rg As Range

Set ws = ActiveSheet
Set rg = ws.Range("E1:E10")

For Each cell In rg
If cell.Font.Bold = False And _
cell.Interior.Color = RGB(150, 193, 29) Then

MsgBox ("Green cell is unbold:" & cell.Address)

ElseIf cell.Font.Bold = False And _
cell.Interior.Color = RGB(14, 173, 195) Then

MsgBox ("Blue cell is unbold:" & cell.Address)

End If

Next
End Sub

If you want to check cell no matter of color, you will need to delete this parts:
"And _
cell.Interior.Color = RGB(150, 193, 29) "

"
And _
cell.Interior.Color = RGB(14, 173, 195) "

 

[sksanjeev786]

This will check for both colors.

Sub is_BOLD()
Dim wb As Workbook
Dim ws As Worksheet
Dim rg As Range

Set ws = ActiveSheet
Set rg = ws.Range("E1:E10")

For Each cell In rg
If cell.Font.Bold = False And _
cell.Interior.Color = RGB(150, 193, 29) Then

MsgBox ("Green cell is unbold:" & cell.Address)

ElseIf cell.Font.Bold = False And _
cell.Interior.Color = RGB(14, 173, 195) Then

MsgBox ("Blue cell is unbold:" & cell.Address)

End If

Next
End Sub

If you want to check cell no matter of color, you will need to delete this parts:
"And _
cell.Interior.Color = RGB(150, 193, 29) "

"
And _
cell.Interior.Color = RGB(14, 173, 195) "

Thanks you so much

 

[sksanjeev786]

Thanks you so much

Just wanted to check can we get border line shown in example

Book1
	B	C	D	E	F	G
2	41%	16.1	43%	15.3	63%	8.7
3
4	39%	15.2	39%	4.2	49%	20.2
5	45%	20.4	45%	6.5	64%	12.9
6
7	93%	0.9	90%	4.4	95%	-4.1
8	36%	13.9	37%	12.5	49%	20.5
9	12%	12.1	12%	22.2	27%	6.4
10	44%	14.2	44%	15.1	61%	12.9
Sheet1

 

[sksanjeev786]

Thanks you so much

Just wanted to check can we get border line shoe

 

[Akbarov]

You are welcome.
I don't really understand your question about borders.
If you want to check cells which is not bold by border color. For that you can just replace cell.Interior.Color with cell.Border.Color
But also, you will need replace RGB code with color code of borders.