Rijen verbergen of zichtbaar maken afhankelijk van waarde in een cel

[balosa]

ik heb een kasboekje in excel hij werkt op zich goed, maar ik zou graag de lege rijen (rijen zonder mutaties) automatisch willen laten verbergen, mocht er na een import actie wel mutaties voorkomen dan moet de rij automatisch weer zichtbaar worden en in het overzicht getoond worden

de zoekfunctie heeft mij geen resultaten opgeleverd dus ik hoop dat iemand mij kan helpen of wat tips kan geven

alvast bedankt

 

[danny147]

Beste balosa

Verbergen van rijen waar niks in staat, dat gaat wel lukken met VBA code maar hoe wil je ze terug zichtbaar maken als je er niks kan intypen ???

U schrijft:

"ik wil de rijen zonder mutaties (dus rij 5 en r 11) automatisch laten verbergen, mocht er toch een bedrag inkomen dan moet hij ook weer automatisch zichtbaar worden"

Groetjes Danny. :thumb:

 

[balosa]

dit is slechts 1 tabblad van het bestand, er is ook een blad IMPORT die de .CSV van mijn bank inleest en alles bij de juiste post plaatst en optelt, dus de automatische import bij het openen van het bestand vult vanzelf de bedragen in

 

[HSV]

Zoiets zou kunnen.

 

[snb]

With sheets(1).columns(1)
  .specialcells(xlcelltypeconstants).entirerow.hidden =false
  .specialcells(xlcelltypeblanks).entirerow.hidden =true
End with

 

[balosa]

With sheets(1).columns(1)
  .specialcells(xlcelltypeconstants).entirerow.hidden =false
  .specialcells(xlcelltypeblanks).entirerow.hidden =true
End with

deze code werkt helaas niet, als er een formule in de cel staat dan ziet hij hem niet als "blank"

 

[danny147]

Beste balosa

Heb je het bestandje van HSV al eens gecontroleerd ?

Groetjes Danny. :thumb:

 

[balosa]

Beste balosa

Heb je het bestandje van HSV al eens gecontroleerd ?

Groetjes Danny. :thumb:

jazeker, en die werkt op zich goed, ik had het alleen via een VBA code willen hebben als dat mogelijk was, maar daar heb ikzelf helaas onvoldoende kennis van, ik zal de manier van HSV eens verwerken in me complete bestand en kijken hoe dat bevalt

allemaal bedankt voor de hulp !

 

[trucker10]

jazeker, en die werkt op zich goed, ik had het alleen via een VBA code willen hebben als dat mogelijk was, maar daar heb ikzelf helaas onvoldoende kennis van,
allemaal bedankt voor de hulp !

De code van snb werkt mits een kleine aanpassing , het is een beetje de bedoeling dat de TS de code naar zijn eigen wens aanpast , zo kan die der ook wat van opsteken .
In bijlage de code van snb aangepast aan de vraag van TS

 

[HSV]

jazeker, en die werkt op zich goed, ik had het alleen via een VBA code willen hebben als dat mogelijk was, maar daar heb ikzelf helaas onvoldoende kennis van, ik zal de manier van HSV eens verwerken in me complete bestand en kijken hoe dat bevalt

allemaal bedankt voor de hulp !

Volgens mij werkt mijn manier via VBA als je op de knoppen "rijen verbergen" & rijen zichtbaar maken" klikt, (druk Alt+F11 en zie de code).
Of doe je het via de filterknop misschien?

 

[balosa]

de manier van HSV werkt het beste voor mij, omdat de vba code van snb cellen met een formule erin niet als "blank" ziet en dus dan ook gewoon laat staan in het overzicht

ik ben weer een beetje wijzer geworden, iedereen bedankt !

 

[trucker10]

Dan is er nog een toepassing nl

.SpecialCells(xlCellTypeFormulas).EntireRow.Hidden = True
.SpecialCells(xlCellTypeFormulas).EntireRow.Hidden = False

deze ziet de formules wel

 

[balosa]

nu doet hij het precies zoals ik wilde (gekoppeld aan Private Sub Worksheet_Activate() en Private Sub Worksheet_Deactivate() ), bedankt !!

 

[snb]

Belangrijker is dat je begrijpt waardoor/waarom.

 

[balosa]

ik begrijp wel hoe het werkt nu, maar ik zou er zelf niet achter gekomen zijn, ik kan wel een beetje met formule's goochelen, maar van VBA heb ik niet veel kaas gegeten

 

[snb]

Daar valt wat aan te doen (vraag Trucker10 maar eens).

 

[trucker10]

Daar valt wat aan te doen (vraag Trucker10 maar eens).

Veel kilometers rijden en naar de code's van snb ( correctie ook Wigi , Warme bakkertje en andere gerenommeerde posters ) kijken :thumb: en af en toe een poging doen en hopen dat ze deze nadien verbeteren als ik er goed naast zit

 

[balosa]

van afkijken kan je inderdaad veel leren :thumb:

maar voor huis-tuin-en-keuken-gebruikers is het veel abracadabra soms, een afgekeken code toepassen is één verhaal maar een code maken waarvan je het bestaan nog niet eens afweet is een heel ander verhaal, ik hoop dat anderen er ook wat aan hebben nu

 

[trucker10]

van afkijken kan je inderdaad veel leren :thumb:

maar voor huis-tuin-en-keuken-gebruikers is het veel abracadabra soms, een afgekeken code toepassen is één verhaal maar een code maken waarvan je het bestaan nog niet eens afweet is een heel ander verhaal, ik hoop dat anderen er ook wat aan hebben nu

Het bestaan van een deel van de code was me al bekend daar ik deze in mijn opmaak ( facturatie ) in gebruik heb enkel om de xlCellTypeBlanks te verbergen

Sub Verbergen()
    [ingave!C2:C1000].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub
Sub Zichtbaar()
    [ingave!C2:C1000].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False
End Sub

En op de 10 maand dat ik met excel bezig ben met behulp van het forum en handboeken vba ben ik al een einde verder gekomen , ik weet ondertussen al van het bestaan van ..........

 

[balosa]

ik gebruik Excel al jaren, maar met VBA ben ik nog maar net mee begonnen, ik zal dan ook graag gebruik maken van de al aanwezige kennis op dit forum!