Regels onzichtbaar/zichtbaar als in cel met een waarde wordt ingevoerd.

[DJdoubleA]

Ik heb een in B14 eel lijst met namen (via Gegevensvalidatie).

De eerst is "Kies" dan moeten de rijen 16 t/m 73 onzichtbaar zijn. (1 is de zelfde voorwaarde als (Kies).
Zodra de lijst word aangepast naa b.v. "2" dan dienen er mogen maar een paar regels zichtbaar zijn zeg maar (16 t/m 18).
Zodra de lijst word aangepast naa b.v. "3" dan dienen er mogen maar een paar regels zichtbaar zijn zeg maar (16 t/m 18 en 25 t/m 29).

enz.

Ik gebruik VBA..
Wie kan mij hiermee helpen..


DJdoubleA.
Alexander

 

[Cobbe]

aangepast naa b.v. "3" dan dienen er mogen maar een paar regels

Geldt dit enkel voor de gevorderde lezers?

 

[DJdoubleA]

Cobbe,

Cobbe, Maakt mij niet uit vooe wie! Ik kom er niet uit vandaag mijn vraag.

 

[edmoor]

Plaats een voorbeeld documentje.

Wat Cobbe bedoelt is dat de taalfouten in #1 bijzonder irritant lezen en dat ben ik met hem eens.
Kijk een stukje even goed na voordat je deze plaatst.
Hoe duidelijker het stukje, hoe beter het begrip bij de lezer en hoe sneller en beter het antwoord dat je krijgt.

 

[DJdoubleA]

Sorry hierbij excel

Sorry Cobbe,

Hierbij de excel.. (stuk uit groot document)

Gaat op de B14

FS2040 moet de volgende rijen hebben (15 t/m 18)
FS2040 + Ext moet de rijen hebben (15 t/m 22)

een
FS2060 moet de volgende rijen hebben (15 t/m 18 + 34 t/m 53)
GS2060 + Ext moet de volgende rijen hebben (15 t/m 173)

Ik hoop graag dat jullie voor mij dit kunnen maken...
Daarna kan ik het wel 16 keer als ik een aan een gesloten rij en en niet aan eengesloten rijen heb dan kan ik het zelf dupliceren.

DJdoubleA
Alexander

 

[Cobbe]

Komt dit in de buurt?

 

[DJdoubleA]

THX perfect

Thx Cobbe,

Perfect.

 

[DJdoubleA]

Hoe kan ik de formule zien?

Hoe kan ik de formule zien?

 

[Cobbe]

Door Alt-F11 te drukken.

Daar staat de code die daar voor verantwoordelijk is.

 

[DJdoubleA]

Thx

Heb hem

 

[DJdoubleA]

Cobbe

Beste Cobbe,

Wat moet ik in de formule veranderen als ik BV 2 regels wil overslaan bij bij FS2020 wil ik de regels 15+16 en 19+20 laten zien?

Dit werkt niet

If [B14] = "FS2020 + Ext" Then Rows("15:16);(19:20").Hidden = False

 

[Cobbe]

Je kan dat zo eenvoudig aanpassen:

Private Sub Worksheet_Change(ByVal Target As Range)
 Rows("15:494").Hidden = True
 [COLOR="#FF0000"] If [B14] = "FS2020 + Ext." Then Rows("15:16").Hidden = False
  If [B14] = "FS2020 + Ext." Then Rows("19:20").Hidden = False[/COLOR]
  If [B14] = "FS2040" Then Rows("15:18").Hidden = False
  If [B14] = "FS2040 + Ext." Then Rows("15:22").Hidden = False
  If [B14] = "FS2060" Then Rows("34:53").Hidden = False
  If [B14] = "FS2060 + Ext." Then Rows("15:173").Hidden = False
End Sub