Hoe gegevens naar een ander werkblad kopiëren met Geavanceerd Filter in Excel?

De functie Geavanceerd Filter in Excel stelt u in staat om gegevens uit een dataset te extraheren en filteren. Hoewel het naadloos werkt binnen hetzelfde werkblad, kunt u een waarschuwingsbericht tegenkomen wanneer u de gefilterde resultaten naar een ander werkblad probeert te kopiëren. In deze handleiding laten we u stap-voor-stap zien hoe u gefilterde gegevens naar een ander werkblad kopieert met behulp van zowel de functie Geavanceerd Filter als VBA-code.

Gegevens naar een ander werkblad kopiëren met Geavanceerd Filter door gebruik te maken van de functie Geavanceerd Filter

Gegevens naar een ander werkblad kopiëren met Geavanceerd Filter door gebruik te maken van VBA-code

Gegevens naar een ander werkblad kopiëren met Geavanceerd Filter door gebruik te maken van de functie Geavanceerd Filter

Hier is een eenvoudige oplossing voor dit probleem, volg deze stappen:

1. Activeer het werkblad waar u de gefilterde resultaten wilt kopiëren met behulp van de functie Geavanceerd Filter.

2. Klik vervolgens op Gegevens > Geavanceerd, zie screenshot:

3. In de Geavanceerd Filter dialoogvenster, selecteer Kopieer naar een andere locatie uit de Actie sectie, en klik vervolgens op knop om het gegevensbereik te selecteren dat u wilt filteren in een ander werkblad naast de Lijstbereik, blijf klikken op knop naast de Criteriabereik om de criteria uit een ander werkblad te selecteren, zie screenshot:

4. Klik vervolgens op knop naast de Kopiëren naar vak om een cel te selecteren waar u de gefilterde resultaten wilt uitvoeren vanuit het actieve werkblad, en klik vervolgens op OK knop, de gefilterde resultaten zijn nu geëxtraheerd naar een ander werkblad op basis van uw originele datablad.

Gegevens naar een ander werkblad kopiëren met Geavanceerd Filter door gebruik te maken van VBA-code

Als u bekwaam bent met VBA, kunt u deze taak voltooien met behulp van de volgende VBA-code.

1. Activeer het werkblad dat u wilt filteren en kopieer de resultaten naar een ander werkblad.

2. Houd de toetsen ALT + F11 ingedrukt in Excel, en het venster Microsoft Visual Basic for Applications wordt geopend.

3. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: Gegevens naar een ander werkblad kopiëren met Geavanceerd Filter:

Sub Advancedfiltertoanothersheet()
'Updateby Extendoffice
    Dim xStr As String
    Dim xAddress As String
    Dim xRg As Range
    Dim xCRg As Range
    Dim xSRg As Range
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the filter range:", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xCRg = Application.InputBox("Please select the criteria range:", "Kutools for Excel", "", , , , , 8)
    If xCRg Is Nothing Then Exit Sub
    Set xSRg = Application.InputBox("Please select the output range:", "Kutools for Excel", "", , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    xRg.AdvancedFilter xlFilterCopy, xCRg, xSRg, False
    xSRg.Worksheet.Activate
    xSRg.Worksheet.Columns.AutoFit
End Sub

4. Druk vervolgens op de F5-toets om deze code uit te voeren, en er verschijnt een pop-upvenster waarin u wordt gevraagd het gegevensbereik te selecteren dat u wilt filteren, zie screenshot:

5. Klik op OK, en er verschijnt een ander dialoogvenster waarin u wordt gevraagd het criteriabereik voor het filteren te selecteren, zoals te zien is in de screenshot:

6. Ga door met klikken op OK, in het pop-upvenster selecteert u een cel uit een nieuw werkblad waar u de filterresultaten wilt uitvoeren, zie screenshot:

7. Klik tot slot op de knop OK, de gefilterde gegevens zijn nu uitgevoerd naar een ander opgegeven werkblad zoals u nodig hebt.