Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Alternate Column Shading to be applied only to visible columns
Dear Experts:
Below macro applies alternate shading to the used range considering ONLY visible rows (alternate row shading to visible rows). Could somebody please re-write the code to perform COLUMN banding (alternate column shading) instead of row banding (alternate row shading) . Only visible columns should be considered. Help is much appreciated. Thank you very much in advance. Regards, Andreas Sub ColorRows() Dim c As Range Dim CI(0 To 1) As Long Dim i As Long Dim Rng As Range CI(0) = xlColorIndexNone CI(1) = 15 'I actually changed this from her's for light grey i = 0 Set Rng = ActiveSheet.UsedRange Rng.Interior.ColorIndex = CI(i) For Each c In Rng.Columns("A").SpecialCells(xlCellTypeVisible) Rng.Rows(c.Row).Interior.ColorIndex = CI(i) i = 1 - i Next c End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Alternate to Sheet_Calc when Filter applied. | Excel Programming | |||
Alternate Row Shading (Visible Rows Only) | Excel Worksheet Functions | |||
Alternate row shading | Excel Programming | |||
Alternate Shading | Excel Discussion (Misc queries) | |||
Alternate shading based on series of numbers in 3 columns | Excel Programming |