Hoe een bepaalde rij naar een nieuw werkblad verplaatsen wanneer een selectievakje wordt aangevinkt in Excel?
Dit artikel legt uit hoe u een specifieke rij naar een nieuw werkblad kunt verplaatsen wanneer een selectievakje wordt aangevinkt in Excel.
Rij verplaatsen wanneer een selectievakje wordt aangevinkt met VBA-code
Rij verplaatsen wanneer een selectievakje wordt aangevinkt met VBA-code
Volg de volgende stappen om een bepaalde rij naar een opgegeven werkblad te verplaatsen wanneer u een selectievakje aanvinkt in Excel.
1. Ga naar het werkblad waarvan u een rij wilt verplaatsen op basis van een selectievakje, klik op Ontwikkelaar > Invoegen > Selectievakje (ActiveX Control) om een selectievakje in te voegen. Zie screenshot:
2. Klik met de rechtermuisknop op het tabblad van het werkblad en klik vervolgens op Weergave Code in het rechtsklikmenu. Zie screenshot:
3. Kopieer en plak in het venster Microsoft Visual Basic for Applications dat wordt geopend de onderstaande VBA-code in het Code-venster.
VBA-code: Rij naar een opgegeven werkblad verplaatsen wanneer een selectievakje wordt 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 SubOpmerking: In de code verwijzen Sheet3 en A1 ernaar dat de opgegeven rij zal worden verplaatst naar de eerste rij van Sheet3. Pas deze aan op basis van uw behoeften.
4. Druk op de toetsen Alt + Q om het venster Microsoft Visual Basic for Applications te sluiten.
5. Schakel de Ontwerpmodus uit door op de knop Ontwerpmodus op het tabblad Ontwikkelaar te klikken.
6. Vink het selectievakje aan, dan verschijnt er een Kutools voor Excel dialoogvenster, selecteer de eerste cel van de rij (of de volledige rij) die u wilt verplaatsen en klik op de knop OK. De gespecificeerde volledige rij wordt onmiddellijk naar een bepaald werkblad verplaatst. Zie screenshot:
Gerelateerde artikelen:
- Hoe een volledige rij naar een ander werkblad verplaatsen op basis van een celwaarde in Excel?
- Hoe een volledige rij naar de onderkant van het actieve werkblad verplaatsen op basis van een celwaarde in Excel?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen