Hoe kopieer ik rijen van meerdere werkbladen die voldoen aan bepaalde criteria naar een nieuw blad?

Stel dat u een werkmap hebt met drie werkbladen die dezelfde opmaak hebben als in de onderstaande schermafbeelding. Hoe kopieert u alle rijen van deze werkbladen waarin kolom C de tekst „Completed” bevat snel en eenvoudig naar een nieuw werkblad, zonder alles handmatig één voor één te kopiëren en plakken?

Rijen van meerdere werkbladen op basis van criteria kopiëren naar een nieuw blad met VBA-code

---

Rijen van meerdere werkbladen op basis van criteria kopiëren naar een nieuw blad met VBA-code

De volgende VBA-code helpt u om specifieke rijen van alle werkbladen in de werkmap te kopiëren naar een nieuw werkblad op basis van een bepaalde voorwaarde. Volg deze stappen:

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module en plak de volgende code in het modulevenster.

VBA-code: Rijen van meerdere bladen op basis van criteria kopiëren naar een nieuw blad

Public Sub CopyRows_ValuesAndNumberFormats()
Dim xWs As Worksheet
Dim xCWs As Worksheet
Dim xRg As Range
Dim xStrName As String
Dim xRStr As String
Dim xRRg As Range
Dim xC As Integer
On Error Resume Next
Application.DisplayAlerts = False
xStr = "Kutools for Excel"
xRStr = "Completed"
Set xCWs = ActiveWorkbook.Worksheets.Item(xStr)
If Not xCWs Is Nothing Then
    xCWs.Delete
End If
Set xCWs = ActiveWorkbook.Worksheets.Add
xCWs.Name = xStr
xC = 1
For Each xWs In ActiveWorkbook.Worksheets
    If xWs.Name <> xStr Then
        Set xRg = xWs.Range("C:C")
        Set xRg = Intersect(xRg, xWs.UsedRange)
        For Each xRRg In xRg
            If xRRg.Value = xRStr Then
               xRRg.EntireRow.Copy
               xCWs.Cells(xC, 1).PasteSpecial xlPasteValuesAndNumberFormats
               xC = xC + 1
            End If
        Next xRRg
    End If
Next xWs
Application.DisplayAlerts = True
End Sub

Opmerking: In bovenstaande code:

• De tekst „Completed” in dit xRStr = „Completed"script geeft de specifieke voorwaarde aan op basis waarvan u rijen wilt kopiëren;
• C:C in dit Set xRg = xWs.Range(„C:C") script geeft de kolom aan waarin de voorwaarde zich bevindt.

3. Druk vervolgens op de toets F5 om deze code uit te voeren. Alle rijen die voldoen aan de opgegeven voorwaarde zijn nu gekopieerd en geplakt in een nieuw werkblad met de naam Kutools voor Excelbinnen het huidige werkboek. Zie de schermafbeelding:

---

---

Meer gerelateerde artikelen over gegevens ophalen of kopiëren: