Como mover uma determinada linha para uma nova planilha quando a caixa de seleção está marcada no Excel?
Este artigo fala sobre como mover uma determinada linha para uma nova planilha quando a caixa de seleção estiver marcada no Excel.
Mover linha quando a caixa de seleção estiver marcada com o código VBA
Mover linha quando a caixa de seleção estiver marcada com o código VBA
Faça o seguinte para mover uma determinada linha para uma planilha especificada ao marcar uma caixa de seleção no Excel.
1. Mude para a planilha que você precisa para mover a linha com base na caixa de seleção, clique Developer > inserção > Caixa de seleção (controle ActiveX) para inserir uma caixa de seleção. Veja a imagem:
2. Clique com o botão direito do mouse na guia da planilha e clique em Ver código no menu do botão direito. Veja a imagem:
3. Na abertura Microsoft Visual Basic para Aplicações janela, copie e cole o código VBA abaixo na janela Código.
Código VBA: Mova a linha para uma planilha especificada quando uma caixa de seleção estiver 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
Note: No código, Shee3 e A1 indicam que a linha especificada será movida para a primeira linha na Folha3. Altere-os de acordo com suas necessidades.
4. aperte o outro + Q chaves para fechar o Microsoft Visual Basic para Aplicações janela.
5. Desligue o modo de design clicando no Modo de design botão no Developer aba.
6. Marque a caixa de seleção e, em seguida, um Kutools for Excel caixa de diálogo aparece, selecione a primeira célula da linha (ou a linha inteira) que você precisa mover e clique no botão OK botão. Então, a linha inteira especificada será movida para uma determinada planilha imediatamente. Veja a imagem:
Artigos relacionados:
- Como mover uma linha inteira para outra planilha com base no valor da célula no Excel?
- Como mover uma linha inteira para a parte inferior da planilha ativa com base no valor da célula no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!