Verbergen header

[HammerJohn]

Goedenavond

Ik heb een klein stukje bestand geplaatst met 2 buttons....om de lege regels te verbergen.
Nu is mijn vraag een bepaald project is leeg daar wordt niet aan gewerkt, nu zou ik die header automatisch willen verbergen.
Het mag met vba omdat in het bestand meer headers lege regels eronder hebben, heb van alles geprobeerd... nu komen
de namen uit een ander bestand. Dus de cellen van de namen zijn gevuld met formules die elders ingevuld worden.

Misschien kunnen jullie mij op weg helpen met hoe of wat....!!

Alvast bedankt

 

[emields]

bedoel je zoiets?

 

[HammerJohn]

Super bedankt dat is inderdaad wat ik bedoelde, alleen duurde het lang voordat hij alle regels had gedaan.
Heb toen maar dit toegevoegd.

Application.Screenupdating = false

Toen liep het iets soepeler, maar super bedankt voor de hulp.

 

[cow18]

in 1 keer alle rijhoogtes veranderen ipv in tig keer

Sub Sneller()
   Set c = Range("B1")                                               'starten met een cel buiten het bereik dat je wenst te onderzoeken (in verband met UNION)
   With Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)        'het gewenste bereik
      .EntireRow.RowHeight = 15                                      'vooraf even alle rijhoogten op 15 zetten

      t = Timer                                                      'chronometer indrukken
      a = .Value2                                                    'bereik inlezen in een array
      For i = 1 To UBound(a)                                         'alle waarden aflopen
         Select Case a(i, 1)                                         'kijk naar de inhoud
            Case "": Set c = Union(c, .Cells(i))                     'lege cel toevoegen aan verzamelbereik
            Case "naam": If i < UBound(a) Then If a(i + 1, 1) = "" Then Set c = Union(c, .Cells(i))   'deze cel is "naam" volgende is leeg = toevoegen aan verzamelbereik
         End Select
      Next
      Set c = Intersect(c, .Offset(0))                               'verzamelbereik beperken tot oorspronkelijke bereik
      If Not c Is Nothing Then c.EntireRow.RowHeight = 0             'indien cellen in verzamelbereik, dan rijhoogte op 0
   End With
   MsgBox Timer - t                                                  'lees chronometer uit
End Sub