Problemet med min første kode var, foruden den manglende End Sub, at den testede på numeriske værdier, og de værdier der er i arkene er X'er.
Jeg fandt en kode her:
http://www.mrexcel.com/archive/VBA/8771.htmlog tilpassede den lidt.
Koden sættes ind i arkmodulet på de ark hvor man vil skjule rækker.
Her er koden:
Option Explicit
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Dim i As Integer
Dim RStart As Range
Dim REnd As Range
Set RStart = Range("B6")
Set REnd = Sheets("uge13").Range("B65536").End(xlUp).Offset(0, 31)
Range(RStart, REnd).Select
On Error Resume Next
With Selection
.EntireRow.Hidden = False
For i = 1 To .Rows.Count
If WorksheetFunction.CountBlank(.Rows(i)) = 32 Then
.Rows(i).EntireRow.Hidden = True
End If
Next i
End With
Set RStart = Nothing
Set REnd = Nothing
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Det virker ikke fuldstændig efter hensigten.
Det er ikke alle tomme rækker der bliver skjult, men næsten.
Jeg ved ikke hvorfor det virker sådan, men det har noget at gøre med denne linje:
If WorksheetFunction.CountBlank(.Rows(i)) = 32 Then
Hvis man ændrer tallet 32 til andre værier får man en anden virkning, men ikke en bedre.
Altså - ikke helt løst, men i hvert fald nogle mere overskuelige ark.