rijen selecteren op voorwaarde en kopieren

[Norbertus]

Beste lezer,

wie kan mij helpen met de volgende uitdaging

Ik heb een bestellijst met artikelen waar men het benodigde aantal ingeeft. Nu wil ik graag van deze totale lijst een kopie maken naar een nieuw werkblad met alleen de rijen waar een aantal stuks is ingegeven.

idee is als volgt.
voldoet rij 1 aan deze voorwaarde kopieer deze dan naar de eerste rij op blad 2
ga naar rij 2, voldoet deze aan de voorwaarde ga dan naar de eerst volgende lege regel op blad 2 enz. totdat de gehele bestellijst is doorlopen.

Alvast hartelijke dank voor het meedenken.

 

[Roncancio]

Je kunt een filter aanbrengen via Data - Filter - Autofilter.
Vervolgens stel je de filter in, selecteer je het bereik en kopieer je die naar het andere bestand.

Met vriendelijke groet,


Roncancio

 

[Norbertus]

dit had ik al geprobeerd. Maar ik wil het graag via een macro laten lopen. Wanneer ik dat echter doe gaat het niet goed, daar deze dan niet dynamisch werkt.

 

[Roncancio]

Oké dan.

Sub Overzetten()
Dim lRij As Long
    lRij = 1
    While Worksheets(1).Range("A" & lRij).Value <> ""
        If Worksheets(1).Range("B" & lRij).Value <> "" Then
            Worksheets(1).Range("A" & lRij & ":IV" & lRij).Copy Worksheets(2).Range("A" & Worksheets(2).Range("A65536").End(xlUp).Row + 1)
        End If
        lRij = lRij + 1
    Wend
End Sub

Met vriendelijke groet,


Roncancio

 

[Norbertus]

hartelijke dank, dit was inderdaad het loopje wat ik nodig had