Slette tomme rækker

Du kan gøre det med en makro. Jeg har denne som skjuler rækkerne, når cellen i kolonne  F er 0. Måske du kan tilpasse den dit ark.

Sub skjul()

Dim slut, i As Integer

slut = Range("F65000").End(xlUp).Row

For i = slut To 1 Step -1
Cells(i, 6).Select
    If ActiveCell.Value = 0 Then
        If ActiveCell.Offset(0, 1).Value = 0 Then
            ActiveCell.EntireRow.Select
        Selection.EntireRow.Hidden = True
        End If
    End If
Next

End Sub

Hej staal84
Den makro kunne jeg ikke få til at virke på mit ark. Jeg ændrede linie 3 til
slut = Range("i3").End(xlUp).Row og prøvede så med 1 og 0 i i3 men det skjulte ikke de tomme rækker

Forresten skal makroen i ThisWorkbook modulet eller hvordan skal jeg sætte makroen ind?

Makroen skal indsætes i et module.

slut = Range("F65000").End(xlUp).Row
er den række, hvor makroen starter og så går den op til række 1

For i = slut To 1 Step -1
fra række 65000 til række 1 en række af gangen

Cells(i,6) står i formatet Række,Kolonne. Så "i" er vores dynamiske række, som hele tiden  bliver en mindre og "6" er kolonne F. Min makro (kommer jeg til at se nu) tjekker både kolonne F og G for nulværdier. Det er derfor der er to If-sætninger, en som tjekker kolonne F og endnu en som lægger 1 til de 6, altså kolonne G.

Håber det forklarer det bedre.

Hej staal84
Tak den forklaring hjalp. Nu virker det. Hvordan kollonne "G" bliver tjekket som du skriver kan jeg ikke se, men bare den tjekker på "B" er det også godt nok. Nu ser den sådan her ud.

Dim slut, i As Integer

slut = Range("B65000").End(xlUp).Row

For i = slut To 1 Step -1
Cells(i, 2).Select
    If ActiveCell.Value = 0 Then
        If ActiveCell.Offset(0, 1).Value = 0 Then
            ActiveCell.EntireRow.Select
        Selection.EntireRow.Hidden = True
        End If
    End If
Next

End Sub

Send et svar

Obs!! Obs!!
Kan det mon laves så den også tjekker på Teksten i "A" og derefter på tomme i "B".
Forklaring. Hvis der står tekst i "A" med fed skrift (en overskrift) så skal denne række ikke gemmes selv om "B" er tom. 
Tak for hjælpen
Ib.

Skrev du ikke forkert? Hvis der er en overskrift i A og B er tom, så skal den alligevel gemmes?

På min måde, at forstå den på ser den således ud:

Sub skjul()
Dim slut, i As Integer

slut = Range("A65000").End(xlUp).Row

For i = slut To 1 Step -1
Cells(i, 1).Select
    If ActiveCell.Font.Bold = False Then 'kolonne A
        If ActiveCell.Offset(0, 1).Value = 0 Then 'Kolonne B
            ActiveCell.EntireRow.Select
        Selection.EntireRow.Hidden = True
        End If
    End If
Next
End Sub

Ellers kan du ændret False til True.

Nu virker det helt rigtigt. Tak og her er point