Skip to main content

Como mover uma determinada linha para uma nova planilha quando uma caixa de seleção é marcada no Excel?

Author: Siluvia Last Modified: 2025-06-04

Este artigo explica como mover uma linha específica para uma nova planilha quando uma caixa de seleção é marcada no Excel.

Mover linha quando uma caixa de seleção é marcada com código VBA


Mover linha quando uma caixa de seleção é marcada com código VBA

Por favor, siga os passos abaixo para mover uma determinada linha para uma planilha especificada ao marcar uma caixa de seleção no Excel.

1. Alterne para a planilha onde você precisa mover a linha com base em uma caixa de seleção, clique em Desenvolvedor > Inserir > Caixa de Seleção (Controle ActiveX) para inserir uma caixa de seleção. Veja a captura de tela:

A screenshot showing how to insert a checkbox in Excel from the Developer tab

2. Clique com o botão direito na guia da planilha e, em seguida, clique em Visualizar Código no menu de contexto. Veja a captura de tela:

A screenshot showing the right-click context menu to access View Code in Excel

3. Na janela Microsoft Visual Basic for Applications que se abre, copie e cole o seguinte código VBA na janela de Código.

Código VBA: Mover linha para uma planilha especificada quando uma caixa de seleção é marcada

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

Observação: No código, Planilha3 e A1 indicam que a linha especificada será movida para a primeira linha da Planilha3. Altere-os conforme necessário.

4. Pressione as teclas Alt + Q para fechar a janela Microsoft Visual Basic for Applications.

5. Desative o Modo de Design clicando no botão Modo de Design na guia Desenvolvedor.

A screenshot showing how to turn off Design Mode in Excel from the Developer tab

6. Marque a caixa de seleção, então uma caixa de diálogo Kutools para Excel aparecerá, por favor, selecione a primeira célula da linha (ou a linha inteira) que você precisa mover e clique no botão OK. Em seguida, a linha inteira especificada será imediatamente movida para uma determinada planilha. Veja a captura de tela:

A screenshot of selecting a row to move based on a checkbox click in Excel


Artigos relacionados:

Melhores Ferramentas de Produtividade para Office

🤖 Assistente AI do KUTOOLS: Revolucione a análise de dados com base em: Execução Inteligente | Gerar Código | Criar Fórmulas Personalizadas | Analisar Dados e Gerar Gráficos | Invocar Funções Aprimoradas
Recursos Populares: Encontrar, Destacar ou Marcar Duplicatas | Excluir Linhas em Branco | Combinar Colunas ou Endereço sem Perder Dados | Arredondar...
Super PROC: PROC com Múltiplos Critérios | PROC com Múltiplos Valores | Procura em várias planilhas | Correspondência Fuzzy...
Lista Suspensa Avançada: Crie rapidamente uma Lista Suspensa | Lista Suspensa Dependente | Lista Suspensa com Múltipla Seleção...
Gerenciador de Colunas: Adicionar um Número Específico de Colunas | Mover Colunas | Alternar Estado de Visibilidade das Colunas Ocultas | Comparar Intervalo & Colunas...
Recursos em Destaque: Grade de foco | Visualização de Design | Barra de fórmulas aprimorada | Gerenciador de Pasta de trabalho & Planilha | Biblioteca de AutoTexto | Selecionador de Data | Mesclar Dados | Criptografar/Descriptografar Células | Enviar Email por Lista | Super Filtro | Filtro Especial (filtrar negrito/itálico/tachado...)...
Top15 Conjuntos de Ferramentas:12 Ferramentas de Texto (Adicionar Texto, Excluir Caracteres Específicos, ...) | Mais de50 Tipos de Gráficos (Gráfico de Gantt, ...) | Mais de40 Fórmulas Práticas (Calcular a idade com base na data de nascimento, ...) |19 Ferramentas de Inserção (Inserir Código QR, Inserir Imagem a partir do Caminho, ...) |12 Ferramentas de Conversão (Converter em Palavras, Conversão de Moeda, ...) |7 Ferramentas de Mesclar & Dividir (Mesclar Linhas Avançado, Dividir Células, ...) | ... e muito mais

Potencialize suas habilidades no Excel com o Kutools para Excel e experimente uma eficiência sem igual. O Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...


O Office Tab traz interface com abas para o Office e facilita muito o seu trabalho

  • Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas abas na mesma janela, em vez de abrir novas janelas.
  • Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!