• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Opgelost Automatisch kolommen en eventueel rijen verbergen met VBA

  • Onderwerp starter Onderwerp starter Verwijderd lid 501906
  • Startdatum Startdatum
Dit topic is als opgelost gemarkeerd
Status
Niet open voor verdere reacties.
V

Verwijderd lid 501906

Ik wil rijen verbergen op basis van een de waarde in een cel / roll down menu
Het lukt mij om op basis van 1 waarde rijen te verbergen en om deze terug te halen.
Maar nu wil ik meerdere voorwaarden combineren.

Private Sub Worksheet_Change(ByVal Target As Range)

'With value "No option" everything visible up to line 78

If Target.Address = "$G$2" Then
If Range("G2").Value = "No option" Then
Range("78:328").EntireRow.Hidden = True
Else
Range("78:328").EntireRow.Hidden = False
End If
End If


'With value "01" everything visible up to line 161

' If Target.Address = "$G$2" Then
' If Range("G2").Value = "01" Then
' Range("161:328").EntireRow.Hidden = True
' Else
' Range("161:328").EntireRow.Hidden = False
' End If
' End If

'With value "02" everything visible up to line 245

' If Target.Address = "$G$2" Then
' If Range("G2").Value = "01" Then
' Range("245:328").EntireRow.Hidden = True
' Else
' Range("245:328").EntireRow.Hidden = False
' End If
' End If

'At value "03" everything is visible

End Sub
 

Bijlagen

Probeer dit eens:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "G2" Then
        Range("78:328").EntireRow.Hidden = False
        Range("161:328").EntireRow.Hidden = False
        Range("245:328").EntireRow.Hidden = False
        
        Select Case Range("G2")
            Case "No option":   Range("78:328").EntireRow.Hidden = True
            Case "01":          Range("161:328").EntireRow.Hidden = True
            Case "03":          Range("245:328").EntireRow.Hidden = True
        End Select
    End If
End Sub
 
Ohhhh wow dit is precies wat ik nodig had
dank U
 
Welkom bij Helpij :)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan