Regels zichtbaar

Malawi · #1 5 februari 2012, 16:26

Hallo

Ik zoek een macro waar ik van een hoeveelheid rijen de rijen zichtbaar kan maken en kan verbergen afhankelijk van de waarde van de eerste cel. Wanneer de waarde van de eerste cel groter is dan 0 moet deze regel zichtbaar zijn.
Het gaat dus om een gedeelte op een excelblad

Bijvoorbeeld om rij 70 t/200.

Malawi

RedHead · #2 5 februari 2012, 16:31

En wat is er mis het het autofilter???

Groet, Leo

Malawi · #3 5 februari 2012, 17:12

Met autofilter is er niets mis. In mijn geval is de waarde in de eerste cel een zoekwaarde, welke ik uit een ander blad haal. Wanneer is naar het blad toe ga via een button, dan zou ik graag willen dat de functie regels verbergen automatsch verloopt. En dit alleen voor regel 70 t/m 200

Malawi

trucker10 · #4 5 februari 2012, 18:04

In deze topic eens kijken staat vast iets bruikbaars in

Malawi · #5 5 februari 2012, 19:18

Dank je wel. Deze is bruikbaar, maar het gaat heel langzaam. Regel voor regel. Ik heb 150 regels welke hij moet nazien.
Is dit proces te versnellen.

Malawi

HSV · #6 5 februari 2012, 19:35

Met een .xls bestandje kunnen de helpers meer Malawi.

Malawi · #7 5 februari 2012, 20:12

Ik heb een test bestand toegevoegd. Hier in gaat het nog redelijk. Maar in mijn complete bestand gaat het echt 1 voor 1. Hier in staan per regel veel meer data. Ik zoek in het testbestand op 1 cretiria. In het origineel zoek ik met 3 cretiria.
Is deze macro sneller te maken.

Malawi

HSV · #8 5 februari 2012, 20:46

Met een autofilter gaat het stukken sneller

Code:

Sub Eindgroepregels_verbergen()
   Sheets("Datablad").Range("A3:A150").AutoFilter 1, ">0", , , False
End Sub

Code:

Sub Eindgroepregels_zichtbaar()
    Sheets("Datablad").ShowAllData
End Sub

trucker10 · #9 5 februari 2012, 20:49

Via macro geen winst aan snelheid

Code:

Sub Test()
Dim i As Single
For i = 4 To 150
    If Range("A" & i).Value = 0 Then
        Rows(i).EntireRow.Hidden = True
    Else: Rows(i).EntireRow.Hidden = False
    End If
Next i

End Sub

trucker10 · #10 5 februari 2012, 20:58

even bij Mr Excel gaan piepen en deze doet het sneller

Code:

Sub test()
With Application
    .EnableEvents = False
    .ScreenUpdating = False
End With
Dim rCell As Range
For Each rCell In Range("A4:A150")
    If rCell = "0" Then
        rCell.EntireRow.Hidden = True
    Else
        rCell.EntireRow.Hidden = False
    End If
Next rCell
Application.EnableEvents = True
End Sub

De winst qua snelheid zit hem in

Code:

With Application
    .EnableEvents = False
    .ScreenUpdating = False
End With

Logisch je zet het tijdelijk uit

Discussietools
Printversie tonen Deze pagina e-mailen
Weergave
Lineaire weergave Switchen naar hybride weergave Switchen naar vertakte weergave

Soortgelijke discussies
Discussie	Auteur	Forum	Reacties	Laatste bericht
Macro regels verbergen werkt niet meer als ik regels invoeg	rkoorem	Afgehandelde vragen	14	30 januari 2012 12:15
Regels sorteren, dubbele optellen en overige regels verwijderen	AvS1	Afgehandelde vragen	16	18 oktober 2011 14:19
regels automatisch zichtbaar maken	remkog	Afgehandelde vragen	4	28 april 2011 08:27
regels toevoegen met vaste tekst aan variable regels	Botje17	Afgehandelde vragen	0	30 augustus 2010 21:42
#N/B niet zichtbaar	pie	Afgehandelde vragen	4	4 februari 2009 15:18