vba kolommenbergen van VenA ook verstelbaar om rijen te verbergen?

[Ropw]

is dit ook toepasbaar op rijen ?

Bekijk bijlage test.xls

beste VenA,
ik zag een vba toepassing voor kolommen van jouw hand, kan je zoiets voor mij opzetten om rijen te verbergen?

in mijn bestand staan rijen met onregelmatig in de eerste cel van de eerste kolom het woordje "exit" (zonder aanhalingstekens). daarachter staan o.a. ook bedragen die in de berekeningen wel steeds meegenomen dienen te worden. Ik heb al diverse knoppen in mijn bestand. Kan ik dan button1 vervangen met b.v. button3 ?

Regels beginnend met exit moeten dus bij gelegenheid uit beeld verdwijnen en wanneer gewenst weer teruggebracht worden.
mvrgr Rop

 

[gast0660]

is dit ook toepasbaar op rijen ?

Dit kan zeker maar post een gelijkend vb bestandje, dan kunnen de helpers gerichter helpen en wordt je sneller geholpen.

 

[snb]

zijn het kolommenbergen (voor de wintersport) of wil je kolommenbergen (als opslag voor later) ? :d

 

[Ropw]

haha zag het te laat kon het niet meer aanpassen.

 

[HSV]

Sub hsv()
With Cells(1, 3)
 .Offset(, -2).Resize(2) = "x"
 .CurrentRegion.Offset(, -2).Resize(, .CurrentRegion.Columns.Count + 2).AutoFilter 1, "<>exit"
 .Offset(, -2).Resize(2).ClearContents
 End With
End Sub

Twee vliegen.

Sub hsv()
With ActiveSheet
 If .FilterMode Then
   .ShowAllData
  Else
    With .Cells(1, 3)
     .Offset(, -2).Resize(2) = "x"
     .CurrentRegion.Offset(, -2).Resize(, .CurrentRegion.Columns.Count + 2).AutoFilter 1, "<>exit"
     .Offset(, -2).Resize(2).ClearContents
     End With
 End If
End With
End Sub

 

[Ropw]

dank voor je reactie, maar ik zie nog niet dat de rijen waar exit in staat tegelijk uit beeld verdwijnen.

 

[HSV]

Goed kijken.

 

[Ropw]

je hebt gelijk, nu doet hij het opeens wel (ik keek denk ik even scheel), maar de totalen van de geldkolommen veranderen en dat is niet de bedoeling!

 

[HSV]

Welke totalen veranderen?
cellen?

 

[Ropw]

ja sorry stond niet in het voorbeeld, wel gebrekkig in de omschrijving.
Ik begrijp dat het niet echt logisch is om de totalen incl exists te zien. De exits zijn bv personen die niet meer in het huis verblijven, maar wel hun deel hebben betaald.
Overigens ben ik nu al tevreden met het gevonden resultaat. hartelijk dank

 

[HSV]

Ik zie in het bestand nergens formules die verwijzen naar totalen.
Als dit in jouw echte bestand wel zo is gebruik dan de formule subtotaal.

 

[Ropw]

wordt dit nog gelezzen, nadat de vraag is afgesloten ?

Dit heb ik nog gevonden en die laat de waarden in de kolommen nog meetellen in de totalen

Sub EXITVERBERGEN()
'
' EXITVERBERGEN Macro
'
' Sneltoets: Ctrl+Shift+E
'
    Dim myPassword As String
    Dim cell As Range
    
    myPassword = ""
    Application.ScreenUpdating = False

'   Unprotect sheet
    ActiveSheet.Unprotect Password:=myPassword
    
'   Loop through cells
    For Each cell In Range("A6:A500")
        Rows(cell.Row).Hidden = (cell = "exit")
    Next cell
 Application.ScreenUpdating = True
'   Protect sheet again
    ActiveSheet.Protect Password:=myPassword

End Sub

 

[snb]

columns(1).autofilter 1,"<>exit"

 

[HSV]

@snb,

Dat werkt goed ondanks die twee lege cellen.

 

[Ropw]

Bij het opnieuw stellen vd vraag stelde ik het volgende::
Is dit aan te passen, zodat de rijen met exit weer getoond worden als je weer op de knop drukt?
Ik begrijp niet goed waar ik

columns(1).autofilter 1,"<>exit"]

tussen moet lassen om het foutloos te laten lopen of moet ik een regel hiermee vervangen??

 

[HSV]

Voor niet en wel zichtbaar.

Sub hsv()
With ActiveSheet
 If .FilterMode Then
   .ShowAllData
  Else
    .columns(1).autofilter 1,"<>exit"
 End If
End With
End Sub

 

[Ropw]

dit werkt als een speer. Super en ook de totaalberekening van een kolom blijft in stand!
Alleen op rij 1 stonden mijn macroknoppen en die verwijnen en worden pas weer zichtbaar als ik CTR SHIFT L doe (uitschakelen autofilter) ?!?

 

[snb]

Maak rij 1 gewoon wat hoger

 

[Ropw]

snb bedankt. Een simpele oplossing, maar ik wil toch graag het autofilter stoppen in de VBA. Is het dan iets van

AutoFilter off

?

 

[VenA]

Aangezien ik bergen aan kolommen heb:d

Activesheet.FilterMode = 0 'of False