Avatar billede bech1992 Nybegynder
27. januar 2015 - 11:28 Der er 3 kommentarer og
1 løsning

Makro, Fjene alle rækker hvor værdien er 0

Hej eksperter

Jeg er kommet lidt i problemer med et excel regneark.
Jeg har et excelark, hvor alle vores produkter er listet,
og i kollonne B er antal, og de står som standard til 0.
er det muligt at lave en makro der sletter alle de rækker hvor der i kolonne B står 0?
For efterfølgende at gemme det som en PDF?

Jeg har desværre kun selv kunne finde ud af, at gemme filen som PDF, men mangler hjælp til resten.

KODE:
Private Sub submit_Click()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:="C:\PDF\Export.pdf", _
        OpenAfterPublish:=False
End Sub
27. januar 2015 - 11:35 #1
Det kan gøres på mange måder, men her er et bud


Sub SletRaekkerMedNul()
    Dim i As Long
    For i = Range("B" & ActiveSheet.Rows.Count).End(xlUp).Row To 1 Step -1
        If Range("B" & i).Value = 0 Then
            Range("B" & i).EntireRow.Delete
        End If
    Next
End Sub
Avatar billede bech1992 Nybegynder
27. januar 2015 - 11:41 #2
Wow, tak for hurtigt svar :)
Et tillægsspørgsmål, er det muligt at få den til kun at tjekke i fra ex: B10 og til B15?

Smid gerne et svar så du kan få point :D
27. januar 2015 - 12:33 #3
Sub SletRaekkerMedNul()
    Dim i As Long
    For i = 15 To 10 Step -1
        If Range("B" & i).Value = 0 Then
            Range("B" & i).EntireRow.Delete
        End If
    Next
End Sub
Avatar billede bech1992 Nybegynder
27. januar 2015 - 12:52 #4
Mange tusinde tak for den hurtige hjælp :D
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester