• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 194
  • Last Modified:

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
0
Andreas Hermle
Asked:
Andreas Hermle
  • 2
1 Solution
 
nutschCommented:
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

0
 
Andreas HermleTeam leaderAuthor Commented:
Hi Thomas,

super, vielen Dank. This did the trick. Great!
0
 
nutschCommented:
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

0
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.

Join & Write a Comment

Featured Post

Get expert help—faster!

Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now