Slet Rækker

tjek denne side:

http://www.ozgrid.com/VBA/VBACode.htm

/hiks

hvis du bruger den første stump kode (DeleteBlankRows1), skal du markere de rækker du vil "rense"!

den virker ok - hvis du altså ikke lige trykke ctrl+a, da dette tager lidt tid!

/hiks

Ikke helt det jeg var på udkig efter. Koden skulle gerne kunne selv kunne identificere hvilke rækker der er tomme og så slette dem.
Ellers tak for svaret

det er også det den gør!

/hiks

hvis du ikke markerer noget - så er det rigtigt, at den godt kan finde på at slette den øverste række!

/hiks

Ok så er det åbenbart mig der ikke kan finde ud af at køre den ordenligt. Den virker ihverfald ikke i min database.

Prøv også denne, hvis du ikke kan få den anden til at virke - den gør det på on_change på hele worksheet'et:

Private Sub Worksheet_Change(ByVal Target As Range)
'Deletes blank rows as they occur.

    'Prevent endless loops
    Application.EnableEvents = False
    'They have more than one cell selected
    If Target.Cells.Count > 1 Then GoTo SelectionCode
        If WorksheetFunction.CountA(Target.EntireRow) = 0 Then
            Target.EntireRow.Delete
    End If

    Application.EnableEvents = True

Exit Sub 'Our code will only enter here if the selection is _
more than one cell.
       
SelectionCode:
    If WorksheetFunction.CountA(Selection.EntireRow) = 0 Then
        Selection.EntireRow.Delete
    End If
    Application.EnableEvents = True
End Sub

/hiks

Nå kan ikke få det til at virke men tak for din tid.