Rijen zichtbaar maken en zo nodig weer verbergen of zichtbaar maken

[Rwe1984]

Ik ben al enkele dagen opzoek naar een VBA code die mij kan helpen met het al dan niet verbergen of zichtbaar maken van rijen. Helaas is het me tot op heden niet geluk.

Omdat het excel bestand nu al erg uitgebreid is, heb ik een voorbeeld (met beschrijving) gemaakt wat de werkelijke code moet doen.

Ik hoop dat iemand mij kan helpen, want ik denk eigenlijk dat het heel simpel zou moeten zijn, maar ik aan de hand van voorbeelden hier op het forum telkens iets fout doe.

Alvast hartelijk dank voor de hulp.

 

[VenA]

Waar staat alle code die je al geprobeerd hebt?

Misschien zoiets?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$14" Then Exit Sub
With Target
    If .Value = "" Then Rows("23:55").EntireRow.Hidden = True Else Rows(23).Resize(.Value + 1).EntireRow.Hidden = False
End With
End Sub

Gezien de opmaak van het bestand lijkt het mij ook logisch dat rij 55 zichtbaar gemaakt wordt. Maar staat niet in de vraag en geeft stof tot nadenken.

 

[Leotaxi]

Deze in WorkBook

Private Sub Workbook_Open()
Sheets("Algemeen").Range("A23", "A54").EntireRow.Hidden = True
Sheets("Algemeen").Range("C14").ClearContents
End Sub

en deze of die van Ven A in WorkSheetChange

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$14" Then
    Range("A23", "A54").EntireRow.Hidden = True
    Range("A23", "A" & 24 + Range("C14").Value).EntireRow.Hidden = False
End If
End Sub

mvg
Leo

 

[Rwe1984]

Beide zowel VenA en Leotaxi het is megelukt en ben er direct met deze twee antwoorden uitgekomen.

Hiervoor hartelijk dank!

VanA, regel 55 moest altijd zichtbaar blijven, hier volgt in het document een nieuw gedeelte.

Nogmaals hartelijk dank

 

[ClickandKnow]

Is het opgelost? zet de vraag dan als opgelost