count non bolded items

  • Thread starter Thread starter Annette
  • Start date Start date
A

Annette

Is it possible to write a macro on the above subject line .. and insert
blank row in A1 so as to put in the result?
 
Annette,

Here is one way.

Dim i As Long
Dim cLastRow As Long
Dim cNonBold As Long

cLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To cLastRow
If Not Cells(i, "A").Font.Bold Then
cNonBold = cNonBold + 1
End If
Next i
Range("A1").EntireRow.Insert
Range("A1").Value = "Num non-bold cells = " & cNonBold

--

HTH

RP
(remove nothere from the email address if mailing direct)
 
This is just too clever ... thank you!

Bob Phillips said:
Annette,

Here is one way.

Dim i As Long
Dim cLastRow As Long
Dim cNonBold As Long

cLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To cLastRow
If Not Cells(i, "A").Font.Bold Then
cNonBold = cNonBold + 1
End If
Next i
Range("A1").EntireRow.Insert
Range("A1").Value = "Num non-bold cells = " & cNonBold

--

HTH

RP
(remove nothere from the email address if mailing direct)
Click to expand...
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Concantenate which keeps bold of some parts. 5
Word Removing unwanted "lines" within a MS Word 10 table 1
Mid column sum formulas with varied ranges to sum 17
Need a UDF to count blank cells 5
Removing unwanted "lines" within a MS Word 10 table 2
automatically insert rows 2
Macro for Multiple Worksheets 6
Curious general format rounding 2

Back
Top