Hoe verplaats ik een specifieke rij naar een nieuw werkblad zodra een selectievakje is aangevinkt in Excel?
In het dagelijks gebruik van Excel komt het vaak voor dat gebruikers een rij naar een ander werkblad of werkblad moeten verplaatsen, afhankelijk van of een selectievakje is aangevinkt, zoals bij takenlijsten, orderverwerkingsformulieren en gegevenscontrolelijsten. Door dit proces te automatiseren, verbetert u de efficiëntie van uw workflow en behoudt u een duidelijk overzicht van uw gegevens. Dit artikel beschrijft meerdere praktische oplossingen om een specifieke rij naar een nieuw werkblad te verplaatsen wanneer een selectievakje is aangevinkt, afgestemd op verschillende operationele voorkeuren en gegevensbeheerbehoeften.
- Verplaats rij wanneer een selectievakje is aangevinkt met VBA-code
- Excel-formule – Markeer en filter rijen voor verplaatsing
Verplaats rij wanneer een selectievakje is aangevinkt met VBA-code
Wilt u een specifieke rij automatisch naar een bepaald werkblad verplaatsen zodra een selectievakje wordt aangevinkt? Dan biedt VBA (Visual Basic for Applications) in Excel een zeer flexibele oplossing — ideaal voor wie grote datasets beheert of deze handeling regelmatig herhaalt.
1. Open het werkblad waarin u rijen wilt verplaatsen op basis van de status van een selectievakje. Ga naar Ontwikkelaar > Invoegen > Selectievakje (ActiveX-besturingselement) om een selectievakje in uw werkblad in te voegen. Met dit besturingselement kunt u acties koppelen aan het selectievakje. Zie schermafbeelding:
2. Klik met de rechtermuisknop op het tabblad van het werkblad onderaan uw Excel-venster en kies vervolgens Code weergeven in het contextmenu om het bijbehorende codovenster voor het werkblad te openen. Zie schermafbeelding:
3. Plak in het venster Microsoft Visual Basic for Applications dat verschijnt de volgende VBA-code in het codevenster:
VBA-code: Verplaats rij naar een opgegeven werkblad wanneer een selectievakje is aangevinkt
Private Sub CheckBox1_Click()
Dim xRg As Range
Dim xAddress As String
On Error Resume Next
If CheckBox1.value Then
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the range row you will move(single cell)：", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRg = xRg(1).EntireRow
xRg.Copy
ActiveWorkbook.Sheets("Sheet3").Range("A1").PasteSpecial xlPasteAllUsingSourceTheme
xRg.Clear
Application.CutCopyMode = False
End If
End SubOpmerkingen: In de code geven Sheet3 en A1 aan dat de opgegeven rij wordt verplaatst naar de eerste rij van Sheet3. Pas deze waarden aan op basis van uw behoeften. Wilt u de rij bijvoorbeeld verplaatsen naar Sheet2, beginnend bij B10, pas dan eenvoudig deze waarden in de code aan.
Wees voorzichtig bij het bewerken van de macro: onjuiste wijzigingen kunnen fouten of onbedoelde gegevensverplaatsing veroorzaken. Sla uw werkmap altijd op voordat u nieuwe VBA-code uitvoert, zodat u eventuele wijzigingen eenvoudig kunt terugdraaien.
4. Druk na het invoeren van de code op Alt + Q op uw toetsenbord om de VBA-editor te sluiten en terug te keren naar uw Excel-werkblad.
5. Zorg er vóór gebruik van de functionaliteit voor dat u Ontwerpmodus uitschakelt op het tabblad Ontwikkelaar. Deze stap activeert het selectievakje, zodat de VBA-macro zoals bedoeld kan worden geactiveerd.
6. Klik nu op het selectievakje dat u hebt toegevoegd. Er verschijnt een Kutools voor Excel-dialoogvenster waarin u wordt gevraagd de eerste cel van de rij of de gehele rij te selecteren die u wilt verplaatsen. Nadat u deze hebt geselecteerd, klikt u op OK. De opgegeven rij wordt direct verplaatst naar het aangewezen werkblad zoals gedefinieerd in uw VBA-code. Zie schermafbeelding:
Excel-formule – Markeer en filter rijen voor verplaatsing
Een op formules gebaseerde oplossing stelt u in staat om razendsnel te bepalen welke rijen verplaatst moeten worden zodra het bijbehorende selectievakje is aangevinkt. Dit is vooral handig in gegevensinvoertabellen waar selectievakjes zijn gekoppeld aan hulpkolommen. De gemarkeerde rijen kunnen daarna eenvoudig worden gefilterd en handmatig naar een ander werkblad worden gekopieerd. Deze methode vereist geen VBA en is perfect wanneer strikte automatisering niet nodig is of het gebruik van macro’s beperkt wordt.
Stel dat u selectievakjes heeft in B2 tot en met B100, gekoppeld aan cellen C2 tot en met C100, en dat uw gegevensrijen zich bevinden in A2:B100. U kunt dan een hulpkolom (bijvoorbeeld kolom D) gebruiken met een formule om de aangevinkte rijen te markeren:
1. Voer in cel D2 de volgende formule in:
=IF(C2=TRUE, "Move", "")2. Druk op Enter om de formule te bevestigen en sleep deze vervolgens omlaag naar alle gegevensrijen (bijvoorbeeld van D2 tot D100). Dit kunt u doen door de vulgreep in de rechteronderhoek van de cel te slepen of er dubbel op te klikken.
3. Filter nu kolom D om alleen „Verplaats” weer te geven, selecteer vervolgens de zichtbare (gefilterde) rijen en kopieer deze met Ctrl+C en Ctrl+V naar uw doelwerkblad.
Tip: Als uw selectievakjes niet zijn gekoppeld aan celwaarden, klikt u met de rechtermuisknop op elk selectievakje en stelt u de eigenschap Celkoppeling in. Zo zorgt u ervoor dat het aanvinken of uitschakelen van het vakje een cel bijwerkt naar WAAR of ONWAAR — waardoor de formule precies doet wat bedoeld is.
Voordelen: Geen macro’s nodig en werkt in gedeelde bestanden. Nadelen: Voor het verplaatsen van gemarkeerde rijen zijn enkele handmatige stappen vereist.
Gerelateerde artikelen:
- Hoe verplaats ik een gehele rij naar een ander werkblad op basis van een celwaarde in Excel?
- Hoe verplaats ik een gehele rij naar de onderkant van het huidige werkblad op basis van een celwaarde in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins