Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe automatisch rijen verbergen als lege cellen in een kolom?

Als u een gegevensbereik hebt dat enkele lege cellen in een kolom bevat, en nu wilt u de rijen die de lege cellen in die kolom bevatten, automatisch verbergen. Zijn er goede manieren om deze taak snel en gemakkelijk in Excel op te lossen?

Verberg automatisch rijen als lege cellen in een kolom met VBA-code


pijl blauw rechts bel Verberg automatisch rijen als lege cellen in een kolom met VBA-code

De volgende code kan u helpen om alle rijen als lege cellen in een specifieke kolom in één keer te verbergen, en als u de celinhoud in die kolom verwijdert, worden de rijen ook automatisch verborgen. Ga als volgt te werk:

1. Klik met de rechtermuisknop op de bladtab waarvan u de rijen automatisch wilt verbergen als er lege cellen in een kolom staan, en kies dan Bekijk code vanuit het contextmenu, in de pop-out Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende code in de lege ruimte Module:

VBA-code: rijen automatisch verbergen als lege cellen in een kolom:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("A1:A20")
            If xRg.Value = "" Then
                xRg.EntireRow.Hidden = True
        
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub

doc automatisch rijen verbergen 1

Opmerking:: In de bovenstaande code, A1: A20 is de gegevenslijst die de lege cellen bevat die u automatisch wilt verbergen.

2. Ga dan terug naar het werkblad, en nu, wanneer u dubbelklikt op een cel en op drukt Enter key, zijn de rijen die lege cellen in kolom A bevatten in één keer verborgen, en als u celinhoud in de opgegeven cellen van kolom A wist, worden de rijen automatisch verborgen.

doc automatisch rijen verbergen 2


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ken · 4 months ago
    What is the simplest way to undo the auto-hide?
  • To post as a guest, your comment is unpublished.
    Kacha · 1 years ago
    What I want is something like this to work in the active sheet:

    If cells D2:D55 = ""
    Then Hide.EntireRow

    If cells D2:D55 = "has any value"
    Then Show.EntireRow

    How?
    • To post as a guest, your comment is unpublished.
      skyyang · 11 months ago
      Hello, Kacha,
      You just need to change the cell reference in the code to your own cell range as below:
      Private Sub Worksheet_Change(ByVal Target As Range) 'Updateby Extendoffice Dim xRg As Range Application.ScreenUpdating = False For Each xRg In Range("D2:D55") If xRg.Value = "" Then xRg.EntireRow.Hidden = True Else xRg.EntireRow.Hidden = False End If Next xRg Application.ScreenUpdating = True End Sub
      After inserting the code, please remember to double click any cell and press Enter key to make the code take effect.
  • To post as a guest, your comment is unpublished.
    Josh · 2 years ago
    The formula works to hide cells based on information, at the beginning, but does not re-reveal cells if their content changes. I want it to reveal any new cells that have been filled with information (which occurs via a cell lookup). How do I do this?
  • To post as a guest, your comment is unpublished.
    ACHINTA PANDE · 2 years ago
    I want to know whether the code will work If the cell is blank as a result of Formula ?
    • To post as a guest, your comment is unpublished.
      skyyang · 2 years ago
      Hello, ACHINTA,
      The above VBA code is also applied to the blank cells as a result of formula, you could try it, thank you!
  • To post as a guest, your comment is unpublished.
    فتحى السعيد · 3 years ago
    بسم الله وجزاكم الله خيرا هذا الكود رائع ولكن حين قمت بتطبيق كود حذف الصف يبطأ الشيت بطريقة طويلة جدا فما العمل؟
  • To post as a guest, your comment is unpublished.
    chinmay salpe · 3 years ago
    how to Auto hide rows if blank cells in 2 different columns with VBA code
    • To post as a guest, your comment is unpublished.
      skyyang · 3 years ago
      Hi, salpe,
      To hide the rows if blank cells in 2 different columns automatically, please apply the following code:

      Private Sub Worksheet_Change(ByVal Target As Range)
      Dim xRg, xCell As Range
      Dim xRgs, xRgArea As Range
      Set xRgs = Range("A1:A22,D1:D22")
      Application.ScreenUpdating = False
      On Error GoTo Ctn
      For Each xRgArea In xRgs.Areas
      Debug.Print xRgArea.Address
      For Each xRg In xRgArea.Columns
      For Each xCell In xRg.Rows
      If xCell.Value = "" Then
      xCell.EntireRow.Hidden = True
      GoTo Ctn
      ElseIf Not xCell.EntireRow.Hidden Then
      xCell.EntireRow.Hidden = False
      End If
      Ctn:
      Next
      Next
      Next
      Application.ScreenUpdating = True
      End Sub

      You can change the cell references to your need.
      Please try it!
  • To post as a guest, your comment is unpublished.
    alex · 4 years ago
    Can I stop this macro from running automatically after hitting enter? Could I attach it to a button to only hide the cells when I click?
    • To post as a guest, your comment is unpublished.
      devin · 3 years ago
      did anyone ever figure this out? I too would like to know.
      • To post as a guest, your comment is unpublished.
        Koop · 3 years ago
        anyone come up with the answer yet?
        • To post as a guest, your comment is unpublished.
          andrea · 3 years ago
          same question here
          • To post as a guest, your comment is unpublished.
            skyyang · 3 years ago
            Hello, guys,
            To hide the rows which a specific column contains blank cells by using a button, please do as this:
            First, you should insert a Command Button from the Developer tab.
            And then apply the following VBA code for the Command Button, (Note: please change the cell reference a1:a20 to your own)

            Private Sub CommandButton1_Click()
            Dim rng As Range, x As Range
            Set rng = Range("a1:a20")
            Application.ScreenUpdating = False
            For Each x In rng
            If Len(x.Text) = 0 Then
            x.EntireRow.Hidden = True
            Else
            x.EntireRow.Hidden = False
            End If
            Next x
            Application.ScreenUpdating = True
            End Sub

            Please try it, hope it can help you!
  • To post as a guest, your comment is unpublished.
    Lars · 4 years ago
    I get a Run-time error ´13´:



    Type mismatch



    Someone who can help???
  • To post as a guest, your comment is unpublished.
    Ant · 4 years ago
    Hi, i am using excel 2016 and it s not working. I get a sintax error message. can you help?
    • To post as a guest, your comment is unpublished.
      skyyang · 4 years ago
      Hello, Ant,

      The above code works well in my Excel 2016, have you change the cell reference in the code to your need?