Coping-gegevens Op basis van criteria van het ene blad naar het andere kopiëren is een van de veelvoorkomende taken in Excel. Als u veel rijen hebt en deze op basis van bepaalde criteria naar een ander blad wilt kopiëren, kan dat behoorlijk vermoeiend en tijdrovend zijn. Maar met Microsoft Visual Basic-toepassing (VBA) kunt u macro's maken waarmee u gemakkelijk gegevens van het ene blad naar het andere kunt kopiëren op basis van verschillende criteria. In dit artikel laat ik u zien hoe je rijen kunt kopiëren naar een ander werkblad op basis van 2 verschillende soorten criteria met behulp van Excel VBA .

Stel, u heeft de volgende dataset in een werkblad met de naam " Gegevens "U wilt nu specifieke rijen kopiëren op basis van bepaalde criteria in een ander blad.

Download Praktijk Werkboek

2 Manieren om rijen naar een ander werkblad te kopiëren op basis van criteria met Excel VBA

1. Rijen naar een ander werkblad kopiëren op basis van tekstcriteria

In deze demonstratie laat ik u zien hoe u rijen kopieert van het ene werkblad naar het andere op basis van tekstcriteria. Stel, u wilt de gegevens kopiëren van de verkopers die verkopen in Virginia in een werkblad met de naam Gebiedsverkoop met behulp van Excel VBA Om dat te doen, eerst,

Druk ALT+F11 om de VBA raam.

In de VBA raam,

➤ Klik op de Plaats tabblad en selecteer Module .

Het zal de Module (Code) raam. Nu,

➤ Voeg de volgende code in de Module (Code) raam,

 Sub Copy_Criteria_Text() Application.ScreenUpdating = False Met ActiveSheet .AutoFilterMode = False Met Range("C1", Range("C" & Rows.Count).End(xlUp)) .AutoFilter 1, "Virginia" On Error Resume Next .Offset(1).EntireRow.Copy Sheet3.Range("A" & Rows.Count).End(xlUp).Offset(1) End With .AutoFilterMode = False End With Application.ScreenUpdating = TrueSheet3.Select End Sub 

De code maakt een macro met de naam Kopieer_Criteria_Tekst die zal zoeken naar Virginia in de kolom C van het huidige werkblad en geeft de rijen terug die Virginia bevatten in het werkblad met de naam Gebiedsverkoop (Sheet3).

Daarna,

➤ Sluit of minimaliseer de VBA raam.

Druk ALT+F8

Het zal de Macro raam.

Selecteer Kopieer_Criteria_Tekst in de Macro naam vak en klik op Ren .

Als gevolg daarvan worden de rijen met Virginia gekopieerd in het werkblad met de naam Gebiedsverkoop

Lees meer: Hoe automatisch rijen kopiëren in Excel naar een ander blad (4 methoden)

2. Rijen kopiëren naar een ander werkblad op basis van nummercriteria

Nu zal ik u laten zien hoe u rijen kunt kopiëren van een werkblad naar een ander werkblad op basis van getalscriteria. Stel, u wilt de gegevens van de verkoop die groter is dan $100000 kopiëren naar een werkblad met de naam Top verkoop Om dat te doen, eerst,

Druk ALT+F11 om de VBA raam.

In de VBA raam,

➤ Klik op de Plaats tabblad en selecteer Module .

Het zal de Module (Code) raam. Nu,

➤ Voeg de volgende code in de Module (Code) raam,

 Sub Copy_Criteria_Number() Application.ScreenUpdating = False With ActiveSheet .AutoFilterMode = False With Range("D1", Range("D" & Rows.Count).End(xlUp)) .AutoFilter 1, ">100000" On Error Resume Next .Offset(1).EntireRow.Copy Sheet4.Range("A" & Rows.Count).End(xlUp).Offset(1) End With .AutoFilterMode = False End With Application.ScreenUpdating =.True Sheet4.Select End Sub 

De code maakt een macro met de naam Copy_Criteria_Number die zoekt naar waarden groter dan 100000 in kolom D van het werkblad met de naam Gegevens en geef de rijen met verkoopwaarden van meer dan $100000 terug in het werkblad met de naam Top verkoop (Sheet4).

Daarna,

➤ Sluit of minimaliseer de VBA raam.

Druk ALT+F8

Het zal de Macro raam.

Selecteer Copy_Criteria_Number in de Macro naam vak en klik op Ren .

Bijgevolg zullen de rijen met verkoopwaarden van meer dan $100000 worden gekopieerd naar de Top verkoop werkblad.

Lees meer: Hoe meerdere rijen kopiëren in Excel met een macro (4 voorbeelden)

Conclusie

Met de twee methoden in dit artikel kunt u met behulp van Excel VBA rijen kopiëren van een werkblad naar een ander werkblad op basis van verschillende criteria. U kunt de eerste methode gebruiken voor tekstcriteria en de tweede methode voor getalscriteria. Als u enige verwarring heeft over een van de methoden, laat dan gerust een reactie achter.