Lege rijen in meerdere tabellen op werkblad verbergen

[johhnnyboy]

Ik heb een Excel document waarop op 1 tabblad meerdere tabellen zijn opgenomen.
Nu wil ik graag een macro laten uitvoeren waarbij de lege regels in deze verschillende tabellen verborgen worden.

Nu heb ik deze code gevonden:

Range("tabel").EntireRow.Hidden = True

Echter op 1 tabblad kan ik maar 1 label met dezelfde naam benoemen, terwijl ik meerdere tabellen onder elkaar heb op een tabblad.

Iemand suggesties?

 

[Elsendoorn2134]

Johhnnyboy,

Je kode werkt op de gehele tabel, dus op alle regels ongeacht of zij gevuld zijn of niet hier zal je dus wat anders op moeten zien
te vinden.

Iedere tabel heeft een nummer, standaard is dit tabel1, tabel2, tabel3 etc. in de naam kun je dus een loop opnemen tot
er een foutmelding optreed.
Ook kun je alle tabellen afgaan met de volgende kode:

Public Sub Test()

Dim LO As ListObject

For Each LO In ActiveWorkbook.Sheets("Blad1").ListObjects
    Range(LO.Name).EntireRow.Hidden = True
Next
End Sub

Alleen werkt je code dus op alle regels niet alleen op de lege regels.

Veel Succes.

 

[johhnnyboy]

Thnx

Bedankt!