rijen blijvend verbergen

[Stroal]

beste,

In mijn meetstaat heb ik tabellen ingevoegd waarvan in de bovenste rij telkens verberg.

Als ik nu een groepering van rijen maak en deze uit en inschakel komt telkens de bovenste rij van de kolom terug zichtbaar.

Hoe kan ik deze bovenste rij definitief verbergen zodat deze niet meer zichtbaar wordt.


In de bijlage een voorbeeldje.

Bekijk bijlage rijen verbergen.xlsx

MVG Frederik

 

[Excellerend]

Beste Stroal,

Ik kom niet verder dan dit te doen met twee macro's:

Sub Sluiten()
Application.ScreenUpdating = False
Worksheets("Gyproc").Outline.ShowLevels rowLevels:=1, columnLevels:=1
Range("A8").EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub

Sub Openen()
Application.ScreenUpdating = False
Worksheets("Gyproc").Outline.ShowLevels rowLevels:=2, columnLevels:=2
Range("A8").EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub

Het nadeel is dat je de macro's aan een sneltoets of een commandobutton 'moet' koppelen.
Een stukje VBA code te triggeren op het moment dat je de groepering in- of uitklapt is me (met mijn zeer beperkte VBA kennis) niet gelukt. Ik ben hier ergens gestrand ...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Worksheets("Gyproc").Outline.ShowLevels Then
Range("A8").EntireRow.Hidden = True
End If
End Sub

... maar ik het de forumleden al diverse malen aan het werk gezien, één van hun gaat dit vast wel lukken.

Succes.

Peter

 

[snb]

Private Sub Worksheet_Calculate()
    Sheets("Gyproc").Rows(8).Hidden = True
End Sub

 

[Excellerend]

Haha, geweldig snb. Ik leer dagelijks weer wat nieuws dankzij jou / jullie.

Zou je indeze nog gebruik maken van Application.ScreenUpdating? (ziet er iets netter uit op de voorgrond)