If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
|
Thread Tools | Display Modes |
#11
|
|||
|
|||
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 |
#12
|
|||
|
|||
Hide and unhide shaded cells
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 |
#13
|
|||
|
|||
Hide and unhide shaded cells
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 |
|
Thread Tools | |
Display Modes | |
|
|