Status: Solved
Priority: Medium
Security: Public
Views: 194
Last Modified: 2012-05-11

Hide certain rows on tables

Dear experts:

I got a sheet with several data lists (from 2 to n) formatted as tables.

I wonder whether it is possible to ...
... loop thru all tables and
....hide rows 3 and 6 of each table using VBA

Help is much appreciated. Thank you very much in advance.

Regards, Andreas

I have attached a sample file for your convenience.

Hide-Rows-On-Tables.xls

Andreas Hermle

Asked: 2011-03-08

Advertise Here

Microsoft Excel

1 Solution

LVL 39

nutschCommented: 2011-03-08

Ja, voll möglich. Try the attached code:

Sub Makro9()

Dim loTable As ListObject

For Each loTable In ActiveSheet.ListObjects
    loTable.Range.Cells(3, 1).EntireRow.Hidden = True
    loTable.Range.Cells(6, 1).EntireRow.Hidden = True
Next
End Sub

Open in new window

Andreas HermleTeam leaderAuthor Commented: 2011-03-08

Hi Thomas,

super, vielen Dank. This did the trick. Great!

LVL 39

nutschCommented: 2011-03-08

Glad to help. Thanks for the grade.

Thomas

PS to speed up the macro, change the screenupdating parameters

Sub Makro9()
application.screenupdating=false

Dim loTable As ListObject

For Each loTable In ActiveSheet.ListObjects
    loTable.Range.Cells(3, 1).EntireRow.Hidden = True
    loTable.Range.Cells(6, 1).EntireRow.Hidden = True
Next

application.screenupdating=true
End Sub

Open in new window

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Expand your skills with this month's free Premium course.

Hide certain rows on tables

Join & Write a Comment Already a member? Login.

Featured Post