Kan een andere macro de rijen sneller sluiten??

Status
Niet open voor verdere reacties.

samui

Verenigingslid
Lid geworden
26 mei 2012
Berichten
207
Beste helpers in nood,

Bijgevoegd bestand doet een macro die rijen sluiten waar in kolom A niks staat.
Dit geldt vanaf regel 5 t/m 611 ( waarom zoveel regels? Dit is nodig voor toekomstig verwachte personen die hier ingevuld worden )

Echter als ik de macro uitvoer duurt dit best wel lang. Is er een manier om dit veel sneller te laten uitvoeren?

Alvast bedankt voor reacties. :thumb:

met vriendelijke groet,

Frank
 

Bijlagen

  • map2.xlsm
    1,2 MB · Weergaven: 27
Bv
Code:
Sub VenA()
  Dim r As Range
  For j = 5 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(j, 1) = "" Then
      If r Is Nothing Then Set r = Cells(j, 1) Else Set r = Union(r, Cells(j, 1))
    End If
  Next j
  If Not r Is Nothing Then r.EntireRow.Hidden = True
End Sub

Om naar de datum van vandaag te gaan
Code:
Sub VenA()
  x = Application.Match(Cells(3, 3), Range("F3:NZ3"), 0)
  If IsNumeric(x) Then Application.Goto Cells(3, x + 5), True
End Sub
 
Laatst bewerkt:
Thanks VenA.

Zal straks kijken wat het doet. in iedergeval bedankt voor de snelle reactie.
Zie dat je ook nog een snellere toevoeging hebt gemaakt om naar de datum van vandaag tegaan. :)
Zal de vraag nog even open laten staan.
 
VenA helemaal toppie. Bedankt voor beiden.
Vraag is gesloten
 
Andere methode.
Code:
Sub hsv()
Application.ScreenUpdating = True
 Range("xfd1").Resize(2) = Application.Transpose(Array(Range("a4").Value, "<>"))
 Range("a4:a612").AdvancedFilter 1, Range("xfd1:xfd2")
 Range("xfd1:xfd2").Clear
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan