conditional copy

[Maia]

Hallo,

Ik heb een excelsheet met op tabblad 1 een reeks rijen. Per rij meerdere namen en één getal.
Nu wil ik alle rijen waarbij getal is niet nul kopieren naar tabblad 2.
Ik krijg het niet voor elkaar. Iemand die me misschien op weg kan helpen?

Alvast bedankt,
Maia

 

[edmoor]

Plaats even een voorbeeld.
En bedoel je niet null of niet 0?
Daar zit nogal verschil in.
0 is het cijfer nul en null betekend dat er niks is ingevuld.

 

[jolivanes]

Als er geen lege cellen tussen zitten zou dit kunnen werken.
Probeer het met een kopie van je workbook.

Sub Maybe_This()
    Dim c As Range
    For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
        If c.End(xlToRight) > 0 Then c.EntireRow.Copy Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1)
    Next c
End Sub

 

[Maia]

jolivanes: bedankt - ik ga hier vanavond naar kijken

edmoor: ik bedoel het getal 0

id voor achter uren

A12345 Pippi Langk 5
B12345 Robin Hoode 0
C67890 Vrouw Holle 8
A67812 Guust Geluk 0

Als veld in kolom D = 0 dan moet de rij niet gekopieerd worden naar het tweede tabblad, anders wel.
Kolom D altijd getal >= 0

Bedankt,
Maia

 

[jolivanes]

In je eerste post kon ik het er niet uit opmaken dat het om Column D ging.
I dacht dat het in verschillende kolommen voor zou kunnen komen.
edmoor had dat waarschijnlijk wel in de gaten.
Misschien dat het volgende beter past?

Sub Maybe_This_A()
    Application.ScreenUpdating = False
    Range("A1").CurrentRegion.AutoFilter 4, ">0"
    ActiveSheet.Range("A1").CurrentRegion.SpecialCells(12).Copy Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1)
    Range("A1").CurrentRegion.AutoFilter
    Application.ScreenUpdating = True
End Sub

Misschien dat er andere forum leden je een kortere code geven.

 

[Maia]

Jolivanes,

Bedankt.
Ik ga hier verder mee knutselen en laat wel weten of 't me zo lukt.

Maia