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

Vergrendelde vraag. Deze vraag is gemigreerd vanuit de Microsoft Ondersteuning-community. U kunt met een stem aangeven of de inhoud nuttig is, maar u kunt geen opmerkingen of antwoorden toevoegen of de vraag volgen.

0 opmerkingen
Antwoord geaccepteerd door vraagauteur
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
    2011-05-23T16:05:34+00:00

    Joyce,

    Om de melding te voorkomen: neem aan het begin van je procedure deze regel op

    Dim strUser As String

    en om te kijken wat de omgevingsvariabele oplevert neem je Tijdelijk) de volgende regel op na de regel strUser = ..... :

        MsgBox strUser

    Welk bericht wordt nu getoond als je het document opent?

    Jan

    Was dit antwoord nuttig?

    0 opmerkingen
  2. Anoniem
    2011-05-23T11:29:19+00:00

    als ik deze macro uitvoer dan werkt het perfect, er worden dan 4 rijen verplaatst. 

    maar als ik deze macro toevoeg aan This Workbook en in Private Sub Workbook_Open() hebben we een verwijzing naar deze macro, dan krijgen we de melding dat

    Compileerfout:

    Een variabele is niet gedefinieerd.

    Als ik deze macro als macro in Module1 laat staan maar wel in Private Sub Workbook_Open() de verwijzing laat staan dan krijg ik geen melding, maar dan wordt mijn login naam niet herkent en worden en geen rijen verplaatst.

    Wat gaat er fout?

    gr joyce

    Was dit antwoord nuttig?

    0 opmerkingen
  3. Anoniem
    2011-05-20T14:41:30+00:00

    In kolom H en I staan je kolommen naam1 en naam2

    In kolom G staat in G2 de formule: =H2 &  ";" & I2

    Je code wordt:

    Sub RijenVerplaatsen()

        Worksheets("Blad2").Cells.Clear

        strUser = "*" & Environ("Username") & "*"

        With Sheets("Blad1")

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

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

        End With

        Sheets("Blad2").Paste Sheets("Blad2").Range("A1")

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

    End Sub

    Ik heb kolom G en verder niet opgenomen in de kopie.

    Hoop dat het hiermee lukt, ook al heb ik de uitleg wellicht wat erg beperkt gehouden.

    Jan

    Was dit antwoord nuttig?

    0 opmerkingen
  4. Anoniem
    2011-05-20T13:32:17+00:00

    Ik begrijp het niet helemaal; Ik zal je zeggen wat ik wil...

    ik heb een overzicht waarbij in kolom 2 gebruikers staan en in kolom 3 ook.

    kolom 2 en 3 hoeven niet aan elkaar gelijk te zijn, maar kan wel. Het zou ook zo kunnen zijn dat in beide kolommen van die rij 2 verschillende namen staan.

    Nu wil ik alle rijen kopieren naar een ander tabblad als de loginnaam voorkomt in kolom 2 OF in kolom 3. als in een rij de loginnaam niet voorkomt niets mee doen.

    vb

    d.d. naam1 naam2 bedrag
    13-05-2001 joyce joyce 200
    15-04-2011 sabine joyce 250
    16-04-2008 sabine bianca 150

    dit zou betekenen dat als ik ingelogt bent 2 regels krijg te zien, (de 1e en 2e)

    Sabine krijgt de 2e en 3e regel te zien en bianca alleen de 3e.

    Als bovenstaande werkt dan zou ik graag extra uitleg willen ontvangen a.d.h.v. dit voorbeeld.

    Bedankt.

    Groetjes Joyce

    Was dit antwoord nuttig?

    0 opmerkingen