rijen automatisch verbergen

[bowlingman]

Hallo,
Hier ben ik weer.
Mijn file begint zo stilaan vorm te krijgen, dankzij de enorme hulp hier op het forum en het beetje kennis dat ik hier heb opgedaan door de jaren heen.
Nu heb ik iets in gedachten, maar het is misschien ver gezocht.
Is het mogelijk om wanneer bv in sheet "1" in een bepaalde cel een getal wordt ingebracht op sheet "2" dan bepaalde rijen automatisch worden verborgen.
Bijvoorbeeld :
Sheet "1" cel "A1" het getal 30; niets verbergen op sheet "2", getal 28; op sheet "2" de rijen 29:30 verbergen, getal 25; op sheet "2" de rijen 26:30 verbergen en getal 24; op sheet "2" de rijen 25:30 verbergen.
Misschien met mijn code

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = "" Then Exit Sub
        If Target.Column = 6 Then
            Sheets("IndividueleSheet").Copy , Sheets(Sheets.Count)
            With ActiveSheet
                .Name = Target.Offset(, -1).Value
                .Range("K2") = Target.Offset(, -1).Value
            End With
        End If
End Sub

welke ik nu gebruik om extra sheets in te voegen aan te passen en waarbij dit dan bij die IndividueleSheet zou moeten gebeuren.

Grtjs.
Armand

 

[Niels28]

zoiets?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = "" Then Exit Sub
            If Target.Column = 6 Then
                Sheets("IndividueleSheet").Copy , Sheets(Sheets.Count)
                With ActiveSheet
                    .Name = Target.Offset(, -1).Value
                    .Range("K2") = Target.Offset(, -1).Value
                End With
            End If
        If Not Intersect(Target, Range("A1")) Is Nothing Then
        Sheets(2).Rows("25:30").EntireRow.Hidden = False
        Select Case Target.Value
        Case 28
        Sheets(2).Rows("29:30").EntireRow.Hidden = True
        Case 25
        Sheets(2).Rows("26:30").EntireRow.Hidden = True
        Case 24
        Sheets(2).Rows("25:30").EntireRow.Hidden = True
        End Select
        End If
End Sub

Niels

 

[bowlingman]

Bedankt Niels,
Heb de code aangepast aan de file waar de code voor diende en alles werkt perfect.
Toch even een vraagje, hoe komt het dat wanneer ik het getal 30 inbreng er niets verborgen wordt (wat dus juist is) terwijl er geen "Case 30" in de code staat.

Grtjs.
Armand

 

[Niels28]

De macro maakt eerst rij 25-30 zichtbaar.
Dan wordt er in de case gekeken of de waarde daarin voorkomt.
Als dit niet het geval is gebeurt er niks, dus alleen als het getal in de case voorkomt wordt er iets gedaan.

Niels

 

[bowlingman]

Bedankt Niels voor het woordje uitleg.
Zo begrijpen we stukje bij beetje de betekenis van de code's.
Ben intussen bij het vorderen van mijn file, weer op iets anders uitgekomen, maar daarover zal ik een nieuw draadje starten en deze als opgelost zetten.

Jullie zijn super.

Grtjs.
Armand