slet af rækker med værdi 0

Ønsker du at få slettet de rækker, hvor der står et nul (0) i nærmere bestemte celler? Eller ønsker du ikke at få vist tomme rækker?

Hejsa. Rækkerne skal bare helt slettes.

Altså noget a la dette:

http://gupl.dk/64842/

Hvad er det for en fil man skal downloade? download linket virker ikke, men tror heller ikke det er hvad jeg leder efter. Jeg forestiller mig der findes en formel som fjerner alle rækker med værdi 0. Lidt i samme stil som betinget formatering hvor man kan ændre visning af fejlværdier til eks. 0, her fjerner man bare rækkerne helt.

Hej gcami

Prøv med følgende VBA kode, som sletter alle rækker, hvor kolonne A indeholde værdien 0.



Public Sub sletRækkerMedNul()
Dim antalRækker As Long, ræk As Long
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
   
    Application.ScreenUpdating = False
   
    For ræk = antalRækker To 1 Step -1
        If Range("A" & ræk) = 0 Then
            Rows(ræk & ":" & ræk).Select
            Selection.Delete
        End If
    Next ræk
   
    Application.ScreenUpdating = False
End Sub


Med venlig hilsen, Nicolai

Hej gcami

Hermed et "svar" :o)

Med venlig hilsen, Nicolai

Hej gcami

Mange tak.

Med venlig hilsen, Nicolai