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 Sub

Opmerking: 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?