Range verbergen met If... Then

[tonissteiner]

hallo,

ik zit met een foutje in mijn code waardoor ik in een loop zit maar er niet uit geraak. Heb al verschillende mogelijkheden uitgetest en ook dit forum al eens doorzocht naar een mogelijke oplossing maar tot nu toe niks gevonden. kan iemand me helpen met deze code?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If [H28].Value = "Rn" Then

    Rows("79:90").Select
    Selection.EntireRow.Hidden = False
    Range("H28").Select

Else:
    Rows("79:90").Select
    Selection.EntireRow.Hidden = True

    End If

End Sub

ik zou dus graag als cel H28 de waarde Rn heeft dat de rijen 79 tot 90 zichtbaar zijn. indien er iets anders of niks ingevuld is zouden ze verborgen moeten zijn.

kan iemand me verder helpen aub?

mvg

 

[tonissteiner]

Heb toch nog iets gevonden op dit forum onder topic 682057 Hoe kan ik rijen verbergen obv een celeigenschap

 

[wieter]

Private Sub Worksheet_Change(ByVal Target As Range)
If [H2].Value = "Rn" Then
    Rows("10:20").EntireRow.Hidden = False
    Range("H2").Select
Else:
    Rows("10:20").EntireRow.Hidden = True
    End If
End Sub

Er kunnen momenteel geen bijlagen geupload worden (kan dus geen voorbeeld bijvoegen)
Change i.p.v. SelectionChange
Select verwijderd

!!! Ik heb de ranges in de code veranderd naar H2 en Rows("10:10")
terug veranderen naar uw wensen

 

[tonissteiner]

Nog bedankt voor je reactie Wieter.

de oplossing die ik reeds vond werkt om één of andere bizarre reden niet. de jouwe wel dus ga deze gebruiken

thx