Autoskjul rækker i Excel

Hej Rodding

Du laver en lille VBA kodestump, som udfører arbejdet for dig.

Denne kode krævet, at du har markeret et område:

Sub HideEmptyRows()
Dim rCell As Range
    For Each rCell In Selection
        If rCell.Value = \"\" Then rCell.EntireRow.Hidden = True
    Next rCell
End Sub


Denne kode løber igennem et specifikt område i f.eks. kolonne A, område og ark kan justeres efter behov:

Sub HideEmptyRows()
Dim rCell As Range
    For Each rCell In Worksheets(\"Ark1\").Range(\"A1:A500\")
        If rCell.Value = \"\" Then rCell.EntireRow.Hidden = True
    Next rCell
End Sub

Hej igen Flemming.

Som du kan - tusind tak