code for hiding rows-(coloured)

[srinivasan]

Hell friends,

I want to know whether it is possible to create a code which by invoking it
to run should hide the rows which are highlighted by a particular colour.
If so any one will help me by providing it.

[Bob Phillips]

Try this

Sub Test()
Dim rw As Range

For Each rw In ActiveSheet.UsedRange.Rows
If rw.Interior.ColorIndex = 34 Then
rw.Hidden = True
End If
Next rw

End Sub



--
HTH

Bob Phillips

"srinivasan" <[email protected]> wrote in message
news:[email protected]...
> Hell friends,
>
> I want to know whether it is possible to create a code which by invoking
it
> to run should hide the rows which are highlighted by a particular
colour.
> If so any one will help me by providing it.
>
>

[srinivasan]

Mr Bob,
Thanks a lot. But as I am not familiar to VBA how it will work? Any colour
to the cell background or font colour.If I change the colour is the code has
to be changed

[Bob Phillips]

We are talking cell colour here, testing the Colorindex.

Do you want to check both cell colour and font colour? If so, what colours?

--
HTH

Bob Phillips

"srinivasan" <[email protected]> wrote in message
news:[email protected]...
>
> Mr Bob,
> Thanks a lot. But as I am not familiar to VBA how it will work? Any colour
> to the cell background or font colour.If I change the colour is the code
has
> to be changed
>

[srinivasan]

Hello,

I want to use the cell colour with pale blue(not font colour). Expecting
your kind response.

[Bob Phillips]

Sub Test()
Dim rw As Range

For Each rw In ActiveSheet.UsedRange.Rows
If rw.Interior.ColorIndex = 37 Then 'Pale blue
rw.Hidden = True
End If
Next rw

End Sub

Go to the VB IDE (alt-F11), insert a code module (Insert>Module), and paste
the code in.

Then in excel Tools>Macro>Macros... and select Test and Run.

--
HTH

Bob Phillips

"srinivasan" <[email protected]> wrote in message
news:[email protected]...
>
>
> Hello,
>
> I want to use the cell colour with pale blue(not font colour). Expecting
> your kind response.

[srinivasan]

Thank a lot Mr Bob! It works nice. But if I want to change the color what
should I do?

[Bob Phillips]

Hi Srinivasan,

You need to find the colorindex for a colour, and update it.

This simple code returns all the colorindex values as the row number

For i = 1 to 56
Cells(i,"A").Value = i
Cells(i,"B").Interior.Colorindex = i
Next i

--
HTH

Bob Phillips

"srinivasan" <[email protected]> wrote in message
news:[email protected]...
>
>
> Thank a lot Mr Bob! It works nice. But if I want to change the color what
> should I do?