rijen verbergen bij gevalideerde celwaarde ="nee"

[DXELECTRO]

Goedemiddag,
Heelwat topics ingekeken rond deze vraagstelling maar draai ferm in visieuze cirkel
Ik wil gewoon enkele rijen verbergen (in dit geval RIJ 2+3+4) als er in een gevalideerde cel "nee" wordt gekozen(in dit geval dus E1)
nothing else

voorbeeldje in bijlage
hartelijk dank alvast voor de antwoorden op deze voor jullie lachwekkende vraag

Fijne middag nog aan allen
Xavier

 

[OctaFish]

Dat zul je toch met VBA moeten doen; rijhoogte is geen instelling die je met een cel kunt aanpassen.

 

[DXELECTRO]

ja,dat dacht ik wel
't zijn VBA-voorbeelden die ik bekeek :-( maar werd er niet wijzer van
kan u mij op weg helpen ?

 

[edmoor]

Test deze maar eens:
Bekijk bijlage Map1.xlsm

 

[DXELECTRO]

Dank u wel ED
werkt natuurlijk.
doch....
snap niet zo goed hoe hij de ja/neen info uit cel E1 haalt...(zie dus de link niet dus)
Ik zie trouwens als je in F1 ja ingeeft dat hij dat ook uitvoert.
Ik wil deze toepassingen meerdere keren gebruiken in een document vandaar....
Er worden dus diverse ja/neen vragen gesteld met daaropvolgend enkele "sub-vragen"
Ik had dus met datzelfde event zitten zoeken deze middag maar dan wel verwijzend naar een cel.....
Ik weet het best dat ik elementaire zaken mis van VBA
Ik voeg alvast nog even een 2e file toe als model

 

[edmoor]

Ik heb er maar 1 regel code in gezet, dat zou toch makkelijk te lezen moeten zijn.

Rows("2:4").EntireRow.Hidden = IIf(Target.Address = "$E$1" And Target.Value = "nee", True, False)

 

[DXELECTRO]

ja maar kzie de link niet met de cel
ah...had je nieuwe code niet opgemerkt sorry

 

[edmoor]

Dit is de link met de cel:
Target.Address = "$E$1"

 

[DXELECTRO]

ik maakte er dit van
maar krijg dan "dubbelzinnige naam gevonden"

Private Sub Worksheet_Change(ByVal Target1 As Range)
If Target1.Value = "nee" Then

Rows("2:4").EntireRow.Hidden = IIf(Target.Address = "$E$1" And Target1.Value = "nee", True, False)

End If

End Sub

Private Sub Worksheet_Change(ByVal Target2 As Range)
If Target2.Value = "nee" Then
Rows("8:10").EntireRow.Hidden = IIf(Target.Address = "$E$7" And Target2.Value = "nee", True, False)


End If


End Sub

 

[DXELECTRO]

dit werkt dan weer maar niet zoals het moet



Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Value = "nee" Then
Rows("2:4").EntireRow.Hidden = IIf(Target.Address = "$E$1" And Target.Value = "nee", True, False)

Else

Rows("8:10").EntireRow.Hidden = IIf(Target.Address = "$E$7" And Target.Value = "nee", True, False)

End If

End Sub

 

[edmoor]

Doe het maar eens zo:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 5 Then
        Select Case Target.Row
            Case 1
                Rows("2:4").EntireRow.Hidden = IIf(Target.Value = "nee", True, False)
            Case 7
                Rows("8:10").EntireRow.Hidden = IIf(Target.Value = "nee", True, False)
        End Select
    End If
End Sub

 

[DXELECTRO]

DAT IS HET Ed
nu kan ik verder uitbreiden...snap het volledig
voor alles is een oplossing blijkbaar in VBA
1000 keer bedankt hoor
en bedankt voor uw geduld met de leek
Fijne avond nog
Xavier

 

[edmoor]

Graag gedaan en hetzelfde gewenst

 

[DXELECTRO]

kolom AA is toch wel degelijk = kolom 27 ?

 

[edmoor]

Ja, hoezo?

 

[DXELECTRO]

op mijn doc werkt het niet maar ben aan't uitzoeken of het niks te maken heeft met de filter die in kolom 1 zit

 

[DXELECTRO]

op mijn doc staan de ja/nee op samengevoegde cel (kolG+H)
dacht dat het daaraan lag
Ik heb die waarden dan maar overgezet naar kolom AA=kolom 27
maar 't werkt nog niet
nog even doorzoeken en dan ga ik toch in het zetletje duiken
zegt men in België

 

[edmoor]

Plaats anders je document even hier, dan kun je waarschijnlijk des te eerder in je zeteltje duiken

 

[DXELECTRO]

heb dat al geprobeerd vorige week...remember....u vroeg toen welke foutmelding ik kreeg...maar helaas GEEN
ik kan het wel on-line zetten op de website maar wil je avond niet ontnemen....uw zeteltje ...
er staat nu een file on-line ...is niet de meest recente...van deze ochtend
www.domoticsystems.be
op homepage klik je "bereken zelf"

 

[DXELECTRO]

alvast even uitleggen wat ik juist wil doen
doc bestaat uit 1 zichtbaar blad = "checklist" + een aantal verborgen sheets

Ik wil dus ervoor zorgen dat rij 16tem18 verborgen wordt als G1="neen"
20 verborgen wordt als G19="neen"
en nog 2 blokken maar dat maakt niet uit
Nu maak ik die te verbergen rijen zwart met "voorwaardelijke opmaak" en dat wil ik dus weg zodanig dat het document veel "lichter" wordt voor de gebruiker ervan

zo ziet mijn code er op dit ogenblik dus uit

Private Sub Worksheet_Change(ByVal Target As range)
If Target.Column = 27 Then
Select Case Target.Row
'case is in dit geval de rij-nr
Case 15
Rows("16:18").EntireRow.Hidden = IIf(Target.Value = "ja", False, True)
Case 19
Rows("20:20").EntireRow.Hidden = IIf(Target.Value = "ja", False, True)
Case 21
Rows("22:23").EntireRow.Hidden = IIf(Target.Value = "ja", False, True)
Case 24
Rows("25:26").EntireRow.Hidden = IIf(Target.Value = "ja", False, True)
End Select
End If
End Sub