Regels kopieren naar een ander tabblad

Anoniem
2010-09-24T20:09:40+00:00

Ik heb een overzicht in tabblad 1 (zie hieronder)

Nu zou ik graag de volledige rij naar tabblad 2 willen kopieren ALS de waarde van die rij uit kolom Bedrag 1 <> aan 0.  Dus in dit geval zijn dat alle rijen op 2 na.

De opmaak en indeling van tabblad 2 is gelijk aan tabblad 1, alleen dan zonder de rijen met een nul bedrag. (dus misschien is het volledige tabblad kopieren en daarna desbetreffende rijen eruit halen makkelijker, maar dat weet ik niet )

Ik hoop dat iemand me kan helpen. Mvg Joyce

Werkgever Periode Jaar Grondslag Periodetabel Correctie volgnummer Bedrag1
Debnr<br><br><br>4302001 periode<br><br><br>4 jaar<br><br><br>2010 grondslag<br><br><br>178 code<br><br><br>5 tabel<br><br><br>1 Bedrag 1<br><br><br>54,06000
4302001 4 2010 178 5 0 69,91000
4302001 5 2010 178 5 0 582,34000
4302001 6 2010 178 5 0 256,83000
4302001 4 2010 178 5 2 0,00000
4302001 4 2010 179 5 1 5,99000
4302001 4 2010 179 5 0 57,68000
4302001 5 2010 179 5 0 56,98000
4302001 6 2010 178 5 0 0,00000

Mvg Joyce

Microsoft 365 en Office | Excel | Voor thuisgebruik | Windows

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 opmerkingen
Answer accepted by question author
Anoniem
2010-11-04T14:33:26+00:00

Joyce,

Je kunt de regel met Criteria1:=4 alsvolgt uitbreiden:

        .Range("A:G").AutoFilter Field:=2, Criteria1:=4, Operator:=xlOr, Criteria2:=7

Jan

Was dit antwoord nuttig?

0 opmerkingen

22 extra antwoorden

Sorteren op: Meest nuttig
Meest nuttig Nieuwste Oudste
  1. Anoniem
    2010-09-24T21:24:50+00:00

    Het nadeel van deze site is dat je geen voorbeeld bestand kunt mee sturen.

    Stel: ik kopieer jouw gegevens naar een excel sheet en de getallen komen te staan op blad1 A6:G14.

    dan zou ik op blad 2 in A1 deze formule kunnen gebruiken:

    =ALS(AANTAL.ALS(Blad1!$G$6:$G$14;">0")+1>RIJ();INDEX(Blad1!A$6:A$14;KLEINSTE(ALS(Blad1!$G$6:$G$14>0;RIJ(Blad1!$G$6:$G$14)-5);RIJ()));"")

    waarna ik de formule afsluit met CTRL+SHIFT+ENTER  i.p.v. enter.  De formule trek ik dan door naar beneden zover ik denk ooit nodig te hebben en daarna opzij, zover ik denk ooit nodig te hebben.  Afhankelijk waar je de formule plaatst zal je de stukjes RIJ()  aan moeten passen naar jouw bestand.

    Succes,

    Martin

    Communicatie is vaak het grootste probleem van de oplossing.

    Was dit antwoord nuttig?

    0 opmerkingen
  2. Anoniem
    2010-09-24T20:59:13+00:00

    Joyce,

    Met VBA zou het zo kunnen:

    Sub RijenVerplaatsen()

        With Sheets("Blad1")

            .Range("A:G").AutoFilter Field:=7, Criteria1:="<>0", Operator:=xlAnd

            .Range(.Range("A1:G1"), .Range("A1").End(xlDown)).Copy

        End With

        Sheets("Blad2").Paste

        Sheets("Blad1").Range("A:G").AutoFilter

    End Sub

    als het althans om de kolommen A:G gaat en dat in kolom G het Bedrag staat waarop gefilterd wordt.

    Jan

    Was dit antwoord nuttig?

    0 opmerkingen
  3. Anoniem
    2010-09-24T20:38:13+00:00

    Hallo Jan,

    Bedankt voor je reactie, maar helaas, het is geen eenmalige actie, het mooiste zou zijn als dit dmv een macro zou gebeuren.

    Groetjes Joyce

    Mvg Joyce

    Was dit antwoord nuttig?

    0 opmerkingen
  4. Anoniem
    2010-09-24T20:29:00+00:00

    Joyce,

    Als het een eenmalige actie betreft is dit een mogelijkheid:

    zet een Autofilter op je tabel.

    bij veld Bedrag kies je voor Getalfilter en dan: is ongelijk aan 0

    selecteer dan alle gegevens en kopiëer deze.

    plak ze vervolgens in Blad2

    Als je zoiets vaker moet doen zou je er een stukje VBA-code voor kunnen gebruiken.

    Jan

    Was dit antwoord nuttig?

    0 opmerkingen