Macro is te traag.

[dennis1724]

Beste excel experts,

Ik heb een macro gemaakt maar als ik deze uitvoer dan duurt het laden heel erg lang is hier een oplossing voor?


Sub rijen()
Dim c As Range


For Each c In ThisWorkbook.ActiveSheet.Range("a1:bk495")
If Cells(c.Row, "c") = "" Then

c.EntireRow.Hidden = True
Else

c.EntireRow.Hidden = False
End If

Next c

End Sub



Groet Dennis

 

[Jack Nouws]

Hallo Dennis,

Je moet je screenupdating uitschakelen dat scheelt al een behoorlijk stuk.
Dus...

Sub rijen()
Dim c As Range
[COLOR="Red"]Application.screenupdating = False[/COLOR]
For Each c In ThisWorkbook.ActiveSheet.Range("a1:bk495")
If Cells(c.Row, "c") = "" Then

c.EntireRow.Hidden = True
Else

c.EntireRow.Hidden = False
End If

Next c

[COLOR="red"]Application.screenupdating = True[/COLOR]
End Sub

of

Sub RijenVerbergen()

   Sheets("Blad1").Range("C1", [C65536].End(xlUp)).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

End Sub

Met vr gr
Jack

 

[dennis1724]

het werkt super

thanks