Rijen met bepaalde waarde kopiëren

[JurjenOud]

Hallo,

Momenteel ben ik bezig met een bestelsysteem in een Excelsheet. In sheet 1 heb ik het hele artikelbestand staan, elk artikel op een nieuwe rij. In kolom A kan het bestelaantal ingevoerd worden. Omdat het een enorme lijst is, wil ik graag in een nieuw tabblad een overzicht maken met de bestelde artikelen.

Kortom: Ik ben op zoek naar een formule die verticaal zoekt in Kolom A naar alle waarden die niet "0" of "empty" zijn en vervolgens die rijen kopieert naar een nieuw tabblad.

Ik heb al zitten prutsen en zoeken maar ik kom er niet uit.

Alvast bedankt!

 

[Niels28]

Sub test()
For Each cl In Sheets(1).Range("A:A").SpecialCells(2)
    If cl.Value <> 0 And cl.Value <> "" Then cl.EntireRow.Copy Sheets(2).Cells(Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row, 1).Offset(1)
Next
End Sub

Niels

 

[JurjenOud]

Perfect! Dank.