Automatisch Verbergen

[Rusty79]

Hallo,

Situatie:
Ik gebruik een code om alle rijen te verbergen, waarbij in kolom R een X staat ingevuld. Deze code doet wat hij moet doen.

Probleem:
Het bereik zou ik graag willen laten lopen tot het woord EINDE, dat ik onderaan de tabel heb ingevoerd, want nu gebruik ik R1000, zodat ik in elk geval geen rijen vergeet, maar als het bereik ooit de 1000 overschrijdt, zou ik de macro weer moeten aanpassen.

Sub Verberg()
For Each c In Range("R8:R1000")
If c.Value = "X" Then
c.EntireRow.Hidden = True
Else
End If
Next
End Sub

Hoe kan ik R1000 veranderen in Einde?

 

[Warme bakkertje]

Zo bijvoorbeeld. Wijzig Blad1 nog wel in de juiste bladnaam.

Sub Verberg()
With Sheets("Blad1")
    LRow = .Columns(18).Find("EINDE", , xlValues, xlWhole).Row
    For Each c In .Range("R8:R" & LRow - 1)
        If c.Value = "X" Then
            c.EntireRow.Hidden = True
        Else
        End If
    Next
End With
End Sub

 

[Cobbe]

Deze zou dat aankunnen:

Sub Verberg()
For Each c In Range("R8:R"&range("r65500").End(xlup).row)
  If c.Value = "X" Then
     c.EntireRow.Hidden = True
   Else
  End If
Next
End Sub

 

[Rusty79]

Bedankt voor jullie aanvullingen, ik heb voor de eerste optie gekozen, maar de tweede had netzo goed gekund
Ik maak graag gebruik van 'EINDE', vandaar.