lijst kopieren, enkel met waarden verschillend van 0

[Bjorkie]

Hey,
ik heb een lijst van artikels met telkens een berekend aantal achter.
nu wil ik op een andere sheet, een beknopte lijst hebben van sheet 1, waarbij het aantal niet gelijk is aan 0
lijst 1 zijn 100 items, waarvan 10 met een waarde verschillend vcan 0
op mijn nieuwe pagine wil ik dus enkel deze 10 hebben met hun aantal.
kan dit via een formule of moet het via VBA?

 

[Cobbe]

vb-bestandje is toch niet te veel gevraagd?

 

[Bjorkie]

klopt helemaal, zal handiger zijn denk ik.

Bekijk bijlage tabellen samenvoegen.xlsx
de lijst is op Sheet 4 terug te vinden.
dus van deze lijst, wens ik een korte versie te bekomen, waarbij de aantal waarde niet 0 is.
(eventueel met mogelijkheid om lijst op nieuw blad te plaatsen.)

 

[SjonR]

Sub Bjorkie2()
A = Sheets(2).Cells(Sheets(2).Rows.Count, "A").End(xlUp).Row
    For Each Cl In Range("A1:A100")
        If Cl.Offset(0, 1) <> 0 Then
            Cl.Resize(1, 2).Copy Sheets(2).Cells(A, 1)
            A = A + 1
        End If
    Next
End Sub

Zonder voorbeeld nog gezien te hebben.

 

[Cobbe]

De lijst wordt naar Sheet5 overgedragen.

 

[Bjorkie]

Hey Cobbe, bedankt.
doet het prima. hoe kan ik deze lijst nu laten toevoegen op een pagina waar reeds een (variabele) lijst staat.
ik wens deze er onderaan bij toe te voegen. bij de eerste lege cel vanaf A14 bijvoorbeeld.

 

[VenA]

1 draadje lijkt mij wel voldoende.

http://www.helpmij.nl/forum/showthread.php/924795-Tabellen-met-verschillende-lengtes-kopieren-op-nieuwe-sheet

 

[Bjorkie]

klopt, ik kom nu in het bereik van een andere vraag.
zal deze dan als opgelost nemen.