Re: Rijen verbergen met macro

[Cobbe]

Francesca schreef op 11/05/2006 :
> Hallo,
>
> Ik heb een werkblad gemaakt met een dropdown lijst, waar gebruikers
> "ja" of "nee" moeten kiezen. Hierdoor ontstaat er in cel C34
> (afhankelijk van de keuze) een 1 of 2. Nu wil ik graag een macro die
> als het keuze 1 is rij 10 t/m 14 verbergt en rij 16 t/m20 laat zien, en
> als het keuze 2 is rij 10 t/m 14 laat zien en rij 16 tm 20 verbergt.
> Kan iemand mij hiervoor aan een macro helpen?
>
> Groeten,
> Francesca

Francesca,
Wat zou dit voor u kunnen betekenen?

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("C34") = 1 Then
Rows("10:14").EntireRow.Hidden = True
Rows("16:20").EntireRow.Hidden = False
Else
If Range("C34") = 2 Then
Rows("10:14").EntireRow.Hidden = False
Rows("16:20").EntireRow.Hidden = True
End If: End If

End Sub

Cobbe

[Francesca]

Het principe werkt, maar alleen als ik de macro handmatig uitvoer (via
run macro nadat ik de Private Sub veranderd heb in Sub Hide_Row) en
niet automatisch als de cel C34 veranderd met de drop down. Verder doet
hij het maar 1 keer, dus als ik de waarde weer terugzet dan doet hij
het niet. Heb je daar nog ideeen voor?

[Cobbe]

Francesca formuleerde op donderdag :

Francesca,
Niet alleen het principe werkt ook de code op zich werkt.
Als je deze code in je werkblad zet moet die het doen.
Tenminste als de vraag juist was gesteld.
Cel C34 is afhankelijk van een validering uit een andere cel en neemt
naargelang de waarde 1 of 2 aan.
Als C34 = 1 dan zijn de rijen 10:14 onzichtbaar en de rijen 16:20
zichtbaar.
Als C34 = 2 dan zijn de rijen 10:14 zichtbaar en de rijen 16:20
onzichtbaar.

Cobbe

[Francesca]

Klopt, en wat hij doet doet hij ook goed (ik deed iets fout kwam ik
later achter). Alleen werkt het niet direct nadat ik de dropdown heb
gewijzigd. Ik moet de macro handmatig runnen om te werken. Is er ook
een manier om hem direct na wijzigen van de waarde in cel c34 te
runnen?

[Joost]

Cobbe,
Een paar weken terug heb je Francesca met het onderstaande geholpen. Nu heb
ik een vraag die hier veel op lijkt:

Ik heb een tabel met 3 kolommen (A1 t/m C20). In één van de kolommen (C)
staan getallen. Ik wil dat automatisch de gehele regel verborgen wordt als in
de betreffende de cel in kolom C deze regel het getal 0 is. Door middel van
koppelingen uit een blad kan de betreffende cel later weer van waarde
veranderen. Als dit gebeurt moet de gehele regel weer automatisch zichtbaar
worden.

Kun jij me hiermee helpen aan de kode?
Alvast bedankt.

Joost

"Cobbe" schreef:

[Cobbe]

Joost schreef :

Omdat ge het zo schoon vraagt. :oÞ

Private Sub Worksheet_Calculate()
For Each c In Range("c1:c20")
If c.Value = 0 Then
c.EntireRow.Hidden = True
Else
c.EntireRow.Hidden = False
End If
Next
End Sub

Succes, Cobbe

[Joost]

Cobbe,

Heel erg bedankt voor je snelle reactie. Het werkt prima.

Joost

"Cobbe" schreef: