Hide / unhide Rows

[NullVBA]

Good Afternoon,

i am little bit new to VBA code.



I am working on an excel sheet with different contract Articles, I need to have a code when i double click on the Article heading it hides all its sub Articles, and double click again it unhides them. the problem is i need to repeat this code to all the Articles i have which would be like 100 Article heading. All the codes i find online is fixing the rows to hide like A3:A9 !. i need a criteria to stop the hide maybe until it reaches a blank space.

it is easier for me if i just double click on the Cell that contains the Article name.

Any idea ??? Please help

[charlesdh]

Hi,

Can you provide a workbook? It will make it easier for the members.
Also if you posted on another forum let us know.

[charlesdh]

HI,

Try this code in the worksheet code module.
When you double click in "A1" the code will hide all of the rows to the "1st" empty row.
If you need to do this several time then you will need a different code.
That's why I asked for file to look at. In the file indicate where you need the "Hide" action to take place.

When you double click on range "A1" again it will unhide the rows.

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Long
i = Range("A1").End(xlDown).Row
If Target.Column = 1 Then
    Cancel = True
    If Range("A" & Target.Row + 1).Rows.Hidden Then
        Range("A:A").Rows.Hidden = False
    Else
        Range("A" & Target.Row + 1 & ":A" & i + 1).Rows.Hidden = True
    End If
End If
End Sub

[NullVBA]

I thought I did yesterday, probably wasn't a successful post. Find attached a similar excel sheet. I want to be able to hide/ un hide the sun articles by double clicking of their main article.

Yes I did post in other forum but didn't receive a reply yet.

Thank you.

[macropod]

Originally Posted by NullVBA

Yes I did post in other forum but didn't receive a reply yet.

Since you've cross-posted on other forums, please provide the relevant links - plus links to this forum on those other forums as well.

This is all part of the standard cross-posting etiquette, for which please read: http://www.excelguru.ca/content.php?184