Hide unbolded rows in specific column

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

Annette

How would I write the code to hide only rows that do not have bolded items
in column K ...
 
For i = 1 To Cells(Rows.Count,"K").End(xlUp).Row
Rows(i).Hidden <> Cells(i,"K").Font.Bold
Next i

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)
 
Sub HideNotBold()

Dim ColK As Range
'find last row of data in column k plus 1
Dim lngLastRowk As Long
lngLastRowk = Range("k65536").End(xlUp).Rows
Set ColK = Range("k1:k" & lngLastRowk + 1)

'check each cell value
For Each c In ColK
If c.Font.Bold = True Then
c.EntireRow.Hidden = True
End If
Next c
End Sub
 
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

Using VBA coding to count color Occurrences 4
hiding blank rows 3
Hide / Unhide each row from StartRow to LastRow for multiple conditions 6
How to change entire row colour when row is selected? 6
Excel EXCEL - using a date dependant formula to hide rows 3
Hiding Rows with Blank cells 5
Hide rows issue 3
How to write a macro to hide an entire row 9

Back
Top