Kolommen en Rijen automatisch verbergen

[marsclone]

Graag zou ik kolommen en rijen automatisch willen verbergen als de waarde nul is, dit om het overzicht, wat compacter te maken. Elke klant heeft weer zijn eigen indeling.

Kolom dient te worden verborgen als de som van de waarden in R48 + R96 = 0.
In dit testbestand dus de kolommen H/K-N/P-AC.

Tevens zou ik de rijen willen verbergen, welke in kolom X waarde nul hebben.
In dit testbestand dus de rijen 13-14/20-23, etc.

Is dit te realiseren middels VBA?

Alvast bedankt.
Gr. Marcel

Bekijk bijlage Test.kolommen.xlsx

 

[VenA]

Rijen kan je eenvoudig verbergen door gebruik te maken van een filter. Alleen de kolommen verbergen:

Sub VenA()
  Dim r As Range, j As Long
  For j = 5 To Blad43.UsedRange.Columns.Count
    If Cells(48, j) + Cells(96, j) = 0 Then
      If r Is Nothing Then Set r = Cells(1, j) Else Set r = Union(r, Cells(1, j))
    End If
  Next j
  If Not r Is Nothing Then r.Columns.Hidden = True
End Sub