Hide and unhide shaded cells

Well, it is Sunday (where I'm sitting!)

Gord Dibben wrote:

Thanks for the feedback.

More religious referencesg

That's for Dave

Gord

On Sun, 8 Mar 2009 10:15:32 +0000, Sylve
wrote:


Gord Dibben;806747 Wrote:
For any one color............

EditFindFormatFormat....choose a color and OK find all.

CTRL + a to select all "found" items.

On menu bar FormatRowHide

If you have many colors to do you may want to use VBA instead.

Sub hide()
Dim rng1 As Range
Set rng1 = Range(Cells(, 1), Cells(Rows.Count, _
Cells(, 1).Column).End(xlUp))
For Each cell In rng1
If cell.Interior.ColorIndex xlNone Then
cell.EntireRow.Hidden = True
End If
Next
End Sub


Gord Dibben MS Excel MVP



Thank you God... I mean thank you Gord
The VBA code works like a charm !
I'm really greatful to Mr. Dibben. Thanks again

--

Dave Peterson

Sunday here also.

With my newly elevated position I could re-write that 11th chapter in 2nd
Samuel and paint King David with a different brush............if you wishg




On Sun, 08 Mar 2009 15:25:59 -0500, Dave Peterson
wrote:

Well, it is Sunday (where I'm sitting!)

Gord Dibben wrote:

Thanks for the feedback.

More religious referencesg

That's for Dave

Gord

On Sun, 8 Mar 2009 10:15:32 +0000, Sylve
wrote:


Gord Dibben;806747 Wrote:
For any one color............

EditFindFormatFormat....choose a color and OK find all.

CTRL + a to select all "found" items.

On menu bar FormatRowHide

If you have many colors to do you may want to use VBA instead.

Sub hide()
Dim rng1 As Range
Set rng1 = Range(Cells(, 1), Cells(Rows.Count, _
Cells(, 1).Column).End(xlUp))
For Each cell In rng1
If cell.Interior.ColorIndex xlNone Then
cell.EntireRow.Hidden = True
End If
Next
End Sub


Gord Dibben MS Excel MVP



Thank you God... I mean thank you Gord
The VBA code works like a charm !
I'm really greatful to Mr. Dibben. Thanks again

It would be tough to rewrite that to make that guy likeable. I can see why
you'd be upset!

http://www.biblegateway.com:80/passa...=11&version=31

Gord Dibben wrote:

Sunday here also.

With my newly elevated position I could re-write that 11th chapter in 2nd
Samuel and paint King David with a different brush............if you wishg

On Sun, 08 Mar 2009 15:25:59 -0500, Dave Peterson
wrote:

Well, it is Sunday (where I'm sitting!)

Gord Dibben wrote:

Thanks for the feedback.

More religious referencesg

That's for Dave

Gord

On Sun, 8 Mar 2009 10:15:32 +0000, Sylve
wrote:


Gord Dibben;806747 Wrote:
For any one color............

EditFindFormatFormat....choose a color and OK find all.

CTRL + a to select all "found" items.

On menu bar FormatRowHide

If you have many colors to do you may want to use VBA instead.

Sub hide()
Dim rng1 As Range
Set rng1 = Range(Cells(, 1), Cells(Rows.Count, _
Cells(, 1).Column).End(xlUp))
For Each cell In rng1
If cell.Interior.ColorIndex xlNone Then
cell.EntireRow.Hidden = True
End If
Next
End Sub


Gord Dibben MS Excel MVP



Thank you God... I mean thank you Gord
The VBA code works like a charm !
I'm really greatful to Mr. Dibben. Thanks again

--

Dave Peterson