27. januar 2015 - 11:28Der 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
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
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.