Auto hide and unhide an entore selction of rows

[wlj777]

Hi, I have a task which I am having trouble finding a solution.

I have an worksheet (B) which is populated by data from another worksheet (A)

The data in sheet A is put into a number of different tables in sheet B based on a particular value (in this case if the data is weekly, monthly, quarterly.....etc)

Say for example the 'weekly table' in sheet B is made up of 10 rows, but only 2 rows have been updated and populated with data from sheet A, I want the remaining 8 rows to be hidden in that table.

But if data from sheet A now has 3 rows of weekly data, then I want that to updated in sheet B and therefor 3 rows are visible and 7 rows are hidden in the respective weekly table.

I hope that makes sense.

 

[Yongle]

Place in SHEET module (right-click on sheet tab \ View Code \ paste in code window)

Before you add further rows to the table run this (amend table name):

Sub TableRowsHide()
   Me.Range("Table1").Rows.Hidden = True
End Sub

To reveal all rows:

Sub TableRowsShow()
   Me.Range("Table1").Rows.Hidden = False
End Sub

VBA Hides \ Shows all rows except title row