Rijen verbergen met Formule (??)

[Stevesh]

Hallo,

dit is mijn eerste post op dit forum, ik heb ook al even gezocht op dit forum. Maar dat mocht niet baten. Ik ben al zo'n kleine 6 á 7 uur bezig met 1 formule.
Namelijk:

Het verbergen van Rij 22 t/m 40 door middel van een Checkbox (op rij 21) (WAAR / ONWAAR) (en dat geldt dan ook voor rijen: 42-73, 75-103, 105-131, 133-147, 149-162, 164-200, 202-241, 243-256 en 258-269)

Ook wil ik vragen of er toevallig een snelle(re) manier is om de Optionele artikelen de zelfde 'Voorwaardelijke Opmaak' te geven. (nu deed ik dat rij voor rij)

In afwachting op jullie reactie.
Alvast bedankt

mvg. Steve.


Bekijk bijlage TESTLIJST.xlsm

 

[HSV]

Je kunt een filter zetten en filteren op waar of onwaar.
Of met Vba; In een standaard module.

Sub hsv()
If Sheets(1).Range("A21") = True Then
Application.ScreenUpdating = False
  For i = 40 To 22 Step -1
     Cells(i, 1).EntireRow.Hidden = Not Cells(i, 1) = [COLOR="#FF0000"]False[/COLOR] 
   Next i
 End If
End Sub

Als het de verkeerde rijen verbergt, maak van de rode False, True

 

[Stevesh]

Harry,

Dank voor je snelle reactie!
ik ga er direct mee 'studderen'

dank!

Edit;
Kom ik gelijk al met mijn eerste vraag; Hoe maak ik een 'VBA', is dat: Tabblad Ontwikkelaars > Visual Basic ?

Je kunt een filter zetten en filteren op waar of onwaar.
Of met Vba; In een standaard module.

Sub hsv()
If Sheets(1).Range("A21") = True Then
Application.ScreenUpdating = False
  For i = 40 To 22 Step -1
     Cells(i, 1).EntireRow.Hidden = Not Cells(i, 1) = [COLOR="#FF0000"]False[/COLOR] 
   Next i
 End If
End Sub

Als het de verkeerde rijen verbergt, maak van de rode False, True

 

[roeljongman]

Een andere oplossing dan met een macro kan zijn met overzichtsknoppen. zie bijlage ik heb er ook een uitleg bijgezet.

verder je vraag over voorwaardelijke opmaak

als je in het voorwaarde veld $A32 zet (en niet $A$32) dan kun je meerdere bereiken opgeven, elke regel zal dan individueel getest worden op de waarde in kolom A

=$B$32:$J$40;$B$64:$J$73

hier kun je 10-tallen bereiken in kwijt, enige reden om dat niet te doen is de leesbaarheid. Dus je kunt er ook voor kiezen om voor elk setje van 5 bereiken een nieuwe voorwaardelijke opmaak te maken. zorg telkens dat de testcel overeenkomt met de eerste cel uit het eerste bereik

dus de test is $A150 als het eerste bereik $A$150:$A$169 om daarna nog meerdere bereiken te kunnen toevoegen.

bestand:
http://www.mijnbestand.nl/Bestand-DEFXERURHH7F.xlsm

 

[Stevesh]

@ HSV, Als ik het via "Tabblad Ontwikkelaars > Visual Basic" doe, krijg ik bij alles wat ik maar probeer de volgende melding;

"De macro map2.xlsm!Selectievakje2_Klikken kan niet worden uitgevoerd. De macro is wellicht niet beschikbaar in dit werkboek of alle macro's zijn mogelijk uitgeschakeld."

Bij Tabblad ontwikkelaars heb ik alles van macro's ingeschakeld. dus dat is het (volgens mij!) niet.

iemand een idee ?

 

[HSV]

Rechtermuisklik op selectievakje 2 in A21, macro hsv() toewijzen.

 

[Stevesh]

Ik weet niet of het vanzelf sprekend is dat als ik het vinkje dan weer uit zet. Dat de regels dan weer terug komen?
Dat was namelijk wel het idee er achter.

in ieder geval al bedankt voor je hulp.

steve

 

[HSV]

Sub hsv()
With Sheets("Blad1")
Application.ScreenUpdating = False
If Range("A21") Then

  For i = 22 To 40
     .Cells(i, 1).EntireRow.Hidden = Not .Cells(i, 1) = False
  Next i
Else

   For i = 22 To 40
     .Cells(i, 1).EntireRow.Hidden = False
  Next i
 End If
 End With
End Sub

 

[Stevesh]

na nog even wat te hebben geprobeert.. is het uit eindelijk gelukt.

alleen zit het nu gekoppeld aan rij 22 tot 40 pas als die onwaar OF waar zijn, gaan ze weg.
die moeten eigenlijk verbergen als rij 21 Waar is, dus moet niet uitmaken of die rijen daar onder waar of onwaar zijn.

heb al wat geprobeert met True or False, maar dat werkt dus niet.

iemand die hier een antwoord op heeft?

Edit; heb het Excell toch iets aan gepast. moet nu dus zijn Rij 11 (ipv 22) tm 29 (ipv 40)

 

[HSV]

Verander even de rijnummers.

Sub hsv()
Application.ScreenUpdating = False
 Sheets("Blad1").Range("A22:A40").EntireRow.Hidden = Range("A21")
End Sub