Regels zichtbaar - Pagina 2

Malawi · #11 5 februari 2012, 21:07

Jullie worden bedankt. Het werkt voor mij nu uitstekend. Met het laatste van Daniel heb ik nu toegepast.

Malawi

RedHead · #12 5 februari 2012, 21:49

@Trucker10, en wat denk je hiervan?

Code:

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

...ben je het hele IF-statement kwijt.

Groet, Leo

trucker10 · #13 5 februari 2012, 21:57

@ Leo , als ik het tegen de volgende keer nog onthouden heb , heb ik vandaag terug iets geleerd .
Ik zie aan het einde van je macro " .ScreenUpdating = True " komt de ScreenUpdating niet automatisch terug op True ?

RedHead · #14 5 februari 2012, 22:05

Citaat:

Oorspronkelijk geplaatst door trucker10

Ik zie aan het einde van je macro " .ScreenUpdating = True " komt de ScreenUpdating niet automatisch terug op True ?

Dát is een gevalletje 'tja'... Er zijn al vele discussies over geweest. En er wordt inderdaad gezegd dat het niet nodig is zolang de procedure netjes wordt beëindigd. Ik zet 'm dus wel in zodat ik er zeker van ben dat het ook werkelijk gebeurt. Nog beter is het om met het uitschakelen van de Application-objecten er een On Error GoTo bij te zetten. Als de boel dan toch onverhoopt klapt kan je via een sprong in de code toch naar die laatste regels springen en de gebruiker niet met een voor haar/hem onwerkbare onwerkbare Excel laten zitten.

Dus zoiets....

Code:

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

Groet, Leo

trucker10 · #15 5 februari 2012, 22:28

Leo , mooie uiteenzetting

Als ik naar de macro's van Ron de Bruin kijk en deze die we op de forums zien langskomen is er ook steeds een enorm verschil qua fout afvang .
De vraag is , voor een doorsnee hobby gebruiker zoals ik met een database van ? 1 Gb op jaarbasis ( uurtjes bijhouden , vroeger waren het uren van meerdere chauffeurs , nu enkel nog die van mij sinds mijn overstap ) is het nodig om .... Als je de boeken erop naleest moet je " workbooks("****").worksheets ("****").**** programmeren .
Vorige week een code van WiGi gezien op een vraag wegschrijven op andere tabbladen > was ook gestroomlijnd ( kort ) , denk dan maar aan de super korte codes van SNB .

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