Dolj och visa rader o kolumner

Dölj tomma rader & kolumner

I detta tips visas hur vi på ett enkelt sätt kan dölja rader respektive kolumner. Det kan komma till användning om vi har större arbetsblad och där tomma rader/kolumner önskas döljas.

För att dölja tomma rader:

Sub Dolj_Tomma_Rader()
'© 2001 Alla rättigheter XL-Dennis
Dim rnOmrade As Range
Dim i As Integer

Set rnOmrade = Selection.Rows
'Om markeringen omfattat endast en cell
If rnOmrade.Cells.Count = 1 Then Set rnOmrade = rnOmrade.CurrentRegion

For i = 1 To rnOmrade.Count
       If Application.CountA(rnOmrade(i)) = 0 Then
          rnOmrade(i).EntireRow.Hidden = True
       End If
Next i
End Sub

För att dölja kolumner:

Sub Dolj_Tomma_Kolumner()
'© 2001 Alla rättigheter XL-Dennis
Dim rnOmrade As Range
Dim i As Integer

Set rnOmrade = Selection.Columns
'Om markeringen omfattat endast en cell
If rnOmrade.Cells.Count = 1 Then Set rnOmrade = rnOmrade.CurrentRegion

For i = 1 To rnOmrade.Count
      If Application.CountA(rnOmrade(i)) = 0 Then
         rnOmrade(i).EntireColumn.Hidden = True
      End If
Next i
End Sub