Rijen verwijderen

[patijnc]

Ik heb een Excel document waar gegevens ingevuld kunnen worden.
Afhankelijk van de invoer (met validatie) in B7 wil ik een aantal rijen (bijv. A15:A20) verwijderen of verbergen. Hoeven dus niet meer zichtbaar te worden.
Wie kan mij op weghelpen met een stukje VBA code om dit vraagstuk op te lossen!

Bij voorbaat dank voor een evt antwoord!

Chris

 

[Roncancio]

Onderstaande is een heel simpel voorbeeld om bepaalde rijen te verbergen.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lbRij As Long
Dim lERij As Long
    lbRij = 15
    lERij = 20
    If Target.Address = "$B$7" Then
        Range(lbRij & ":" & lERij).EntireRow.Hidden = True
    End If
End Sub

Zodra er wijziging is in cel B7 worden de rijen 15 t/m 20 verborgen.
Uiteraard kan je dit nog een stuk flexibeler als bijvoorbeeld in een cel het rijnummer staat dat verborgen moet worden.

Met vriendelijke groet,


Roncancio

 

[snb]

nog eenvoudiger

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$7" Then cells(15,1).resize(5).entirerow.hidden=true
End Sub

 

[patijnc]

Onderstaande is een heel simpel voorbeeld om bepaalde rijen te verbergen.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lbRij As Long
Dim lERij As Long
    lbRij = 15
    lERij = 20
    If Target.Address = "$B$7" Then
        Range(lbRij & ":" & lERij).EntireRow.Hidden = True
    End If
End Sub

Zodra er wijziging is in cel B7 worden de rijen 15 t/m 20 verborgen.
Uiteraard kan je dit nog een stuk flexibeler als bijvoorbeeld in een cel het rijnummer staat dat verborgen moet worden.

Met vriendelijke groet,


Roncancio

nog eenvoudiger

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$7" Then cells(15,1).resize(5).entirerow.hidden=true
End Sub

Roncancio en snb,
Beiden oplossingen waren prima te gebruiken. Precies wat ik zocht
Bedankt!!!
:thumb: