¿Cómo mover una fila específica a una nueva hoja cuando se marca una casilla de verificación en Excel?

Este artículo explica cómo mover una fila específica a una nueva hoja cuando se marca una casilla de verificación en Excel.

Mover fila cuando se marca una casilla de verificación con código VBA

Mover fila cuando se marca una casilla de verificación con código VBA

Por favor, siga los siguientes pasos para mover una fila determinada a una hoja de trabajo especificada al marcar una casilla de verificación en Excel.

1. Cambie a la hoja de cálculo donde necesita mover la fila basándose en una casilla de verificación, haga clic en Desarrollador > Insertar > Casilla de verificación (Control ActiveX) para insertar una casilla de verificación. Ver captura de pantalla:

2. Haga clic derecho en la pestaña de la hoja y luego haga clic en Ver código en el menú contextual. Ver captura de pantalla:

3. En la ventana de Microsoft Visual Basic para Aplicaciones que se abre, copie y pegue el siguiente código VBA en la ventana de Código.

Código VBA: Mover fila a una hoja de trabajo especificada cuando se marca una casilla de verificación

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

Nota: En el código, Hoja3 y A1 indican que la fila especificada se moverá a la primera fila de Hoja3. Por favor, cámbielos según sus necesidades.

4. Presione las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.

5. Apague el Modo Diseño haciendo clic en el botón Modo Diseño en la pestaña Desarrollador.

6. Marque la casilla de verificación, luego aparecerá un cuadro de diálogo de Kutools para Excel, seleccione la primera celda de la fila (o la fila completa) que necesita mover y haga clic en el botón Aceptar. Luego, la fila completa especificada se moverá inmediatamente a una hoja de trabajo determinada. Ver captura de pantalla:

Artículos relacionados:

• ¿Cómo mover una fila completa a otra hoja basada en el valor de una celda en Excel?
• ¿Cómo mover una fila completa al final de la hoja activa basada en el valor de una celda en Excel?