Voorwaardelijk rijen verbergen

[emields]

daar is een representatief voorbeeld voor nodig.

 

[LucHeyndrickx]

Of een functie maken... dan heb je minder typwerk, en is makkelijker herbruikbaar:

Function Verberg(Verbergen as String, ControleCel as String)
      Range(Verbergen).EntireRow.Hidden = Not (Range(ControleCel).Value = "Nee")
End Function

De code in het werkblad wordt dan:

Private Sub Worksheet_Change(ByVal Target As Range)
     Verberg("TeVerbergen1", "JaNeeCel1")
     Verberg("TeVerbergen2", "JaNeeCel2")
End Sub

 

[cow18]

de 20e reactie is bijna klakkeloos de 2e reactie, joepie.

 

[Excelgeek]

Bij twee tabbladen dynamisch voorwaardelijk rijen verbergen

Beste Helpers,

Bedankt voor jullie hulp tot nu toe:

Ik heb nu in het ene tabblad staan:

Private Sub Worksheet_Change(ByVal Target As Range)
Range("TeVerbergen1").EntireRow.Hidden = Not (Range("JaNeeCel1").Value = "Nee")
Range("TeVerbergen2").EntireRow.Hidden = Not (Range("JaNeeCel2").Value = "Nee")
End Sub

Nu wil ik een ander tabblad hetzelfde doen. Ik gebruik dezelfde code. Echter, Excel geeft een foutmelding en verwijst naar de regel Range("TeVerbergen1")......

Wat moet ik doen?

Alvast opnieuw bedankt voor jullie hulp.

Groet,
Excelgeek

 

[cow18]

Staan die bereiken in dat werkblad ? Je moet kijken hoe je gedefinieerde namen aangemaakt zijn, zijn ze voor het werkblad of de werkmap.
Dus ik zou beginnen met enkel die namen die werkelijk in je blad voorkomen.

Je kan anders ook de change-event in thisworkbook gebruiken, dat scheelt vermoedelijk in tikwerk en in onderhoud en dan zou ik een select case gebruiken op werkblad en vervolgens een array met alle "TeVerbergen" en "JaNeeCellen".
Weinig tikwerk en veel sneller in verwerking.
.

 

[cow18]

als je maakt dat er telkens een "JaNeen_xxx" overeenstemt met een "Verbergen_xxx" dan ben je er zo klaar mee via ThisWorkbook

 

[Excelgeek]

Vraag voorwaardelijke rijen verbergen is opgelost

Beste Helpers,
Mijn vraag van voorwaardelijke rijen verbergen is opgelost.
Bedankt!
Excelgeek