Vraagje over een macro/ Visual Basic

[Roffeldinho]

Wie kan mij helpen???

Ik heb een macro opgenomen in een bestand. Deze Macro zorgt ervoor dat mijn Excelsheet "inklapt" en alleen alles selecteerd wat in kolom N boven of onder 0 is. Echter als ik in de kolommen G t/m K getallen invoer en de RIJ is in Kolom N 0 dan moet hij deze wel selecteren.
Ik krijg dit echter niet voor elkaar in de macro:
Dit is de macro

Sub Inklappen()

Sheets("TIJD_IB").Select
ActiveSheet.Unprotect
Selection.AutoFilter
Range("N5:N250").Select
Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd
Range("A7").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("TIJD_IB").Select

Sheets("TIJD_IB").Select
End Sub

Het zit 'm in het dik gedrukte volgens mij, maar ik kom er dus niet uit!!

Wie o Wie kan mij helpen???

 

[Wigi]

Hang het bestand eens bij hier, dat werkt gemakkelijker. Zip het eerst en laat onnodige details weg.

 

[Roffeldinho]

Bij deze......

Het betreft om het icoontje INKLAPPEN. Als je deze gebruikt zul je zien dat hij het 3e project niet laat zien, terwijl er wel getallen in deze reeks zijn ingevuld.......

 

[Wigi]

Gebruik een Advanced Filter ipv een Autofilter.

 

[Justes]

Hallo Roffeldinho,

Dat komt omdat de cellen N8 enz. leeg zijn, dus nul uren.

Gr Justes

 

[Wigi]

Gebruik een Advanced Filter ipv een Autofilter.

Zie bijlage voor een concrete uitwerking. Ik heb het gevoel dat het simpeler moet kunnen, maar voorlopig lukt het mij niet om de condities samen te voegen. Maar het werkt wel.

Wigi

 

[Roffeldinho]

bijna goed.

Alvast bedankt voor deze oplossing Wigi. Volgens mij heb je gelijk dat het simpeler moet kunnen, maar ook daar ben ik nog niet achter.

Ik heb in jou oplossing wel een bijkomend probleem gevonden. Als ik na het inklappen weer uitklap dan krijgen al regels van rij 2 ook een Autofiler erbij. En die gaan dan niet meer weg.

Dit was volgens mij toch niet echt je bedoeling hoop ik????

Kun je aangeven waar dit probleem zit??

 

[Wigi]

Ik heb in jou oplossing wel een bijkomend probleem gevonden. Als ik na het inklappen weer uitklap dan krijgen al regels van rij 2 ook een Autofiler erbij. En die gaan dan niet meer weg.

Ik heb enkel naar Inklappen gekeken.

Haal deze regel weg bij uitklappen:

Range("N5:N250").AutoFilter Field:=1

Het feit dat ze niet weggaan komt doordat je zelf Beveiliging toepast in je macro's.

Wigi

PS: delete ook module2; ik had die tijdelijk aangemaakt, maar je hebt die nu niet meer nodig.

 

[Roffeldinho]

Ik heb de regel verwijderd, ik heb ook Module 2 verwijderd.
Echter veranderd dit nog helemaal niets aan de situatie.....

En die beveiliging zit erop, omdat het een algemeen bestand moet worden waar niets aan veranderd mag worden. En moeten straks veel mensen gebruik van maken.

Ik weet het nu dus even niet meer.....

 

[Wigi]

Haal eerst de Autofilter weg vooraleer je de code uitvoert.

Gebruik dan deze code:

Sub Inklappen()
    ActiveSheet.Unprotect
    Range("G6:N250").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("G320:N336")
    Range("A7").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
End Sub

Sub Uitklappen()
    Sheets("TIJD_IB").Select
    ActiveSheet.Unprotect
    Range("A7").Select
    Worksheets("TIJD_IB").ShowAllData
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Lukt het dan?

Wigi

 

[Roffeldinho]

Wigi,

Bedankt!! Hij werkt nu goed. Op naar het volgende probleem.........