Meerdere rijen tegelijk verbergen / zichtbaar maken

[MeltedForest]

Hallo,

Ik heb hier een Excelbestandje met 15 kolommen en 2500 records, waar een aantal lege rijen in zitten. Zo nu en dan worden de gegevens in de records opnieuw geladen, waardoor het aantal lege rijen varieert, net als de posities van deze lege rijen. Nu wil ik voor de gegevens opnieuw geladen worden de boel zichtbaar maken, en nadat deze geladen zijn weer verbergen.

Nu heb ik de volgende code er op losgelaten (voor het verbergen):

Sub HideRows()

totalrows = ActiveSheet.UsedRange.Rows.Count

For Row = 11 To totalrows
    If Cells(Row, 2).Value = "" Then
        Rows(Row).Hidden = True
    End If
Next Row

End Sub

Alleen nu zit ik 5 minuten te wachten tot hij hiermee klaar is :shocked:.

Er is vast een snellere manier, maar hoe?

En is er een manier om 2500 rows in één keer zichtbaar te maken?

 

[MeltedForest]

En is er een manier om 2500 rows in één keer zichtbaar te maken?

Ik kan het volgende gebruiken:

[B1:B2500].EntireRow.Hidden = False

Maar stel dat er nu méér dan 2500 records inkomen, valt dat nog op te vangen?

 

[cow18]

kun je niet gewoon een filter gebruiken

 

[exhelp]

Verbergen: eerst de lege rijen toevoegen aan een range en pas na de Loop de rijen verbergen --> dit gaat heet wat sneller.

Sub HideRows()

Dim totalrows as Long
Dim a As Integer
Dim hide As Range

With ActiveWorkbook.Sheets(1)
totalrows = ActiveSheet.UsedRange.Rows.Count

For a = 2 To lastrow
    If .Cells(a, "B") = "" Then
        If hide Is Nothing Then
            Set hide = .Cells(a, "B").Cells
        Else
            Set hide = Application.Union(hide, .Cells(a, "B").Cells)
        End If
    End If
Next a

If Not hide Is Nothing Then hide.EntireRow.Hidden = true

End With
End Sub

Voor het terug zichtbaar maken

Sub ShowRows()
Dim totalrows as Long
totalrows = ActiveSheet.UsedRange.Rows.Count
Range("B1:B" & totalrows).EntireRow.Hidden = False
End Sub

 

[MeltedForest]

Bedankt, ik ga er even mee puzzelen :thumb:

Is opgelost