Ir ao conteúdo

Excel Tem como fazer um botão para apagar linha da tabela ?


Ir à solução Resolvido por AfonsoMira,

Posts recomendados

  • Solução
Postado

Boas @Arthur Guillermo ,

Com recurso a Macro (VBA)

Aqui fica o código, que precisa associar aos Botões.
 

Sub LimparTabela()
    Dim T As ListObject:    Set T = ActiveSheet.ListObjects(1)
    With T.DataBodyRange
        If .Rows.Count > 1 Then .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Rows.Delete
        On Error Resume Next
        .Rows(1).SpecialCells(xlCellTypeConstants).ClearContents
    End With
End Sub

Sub LimparLinhaSelecionada()
    Dim rng As Range
    On Error Resume Next
    With Selection.Cells(1)
        Set rng = Intersect(.EntireRow, ActiveCell.ListObject.DataBodyRange)
        On Error GoTo 0
        If rng Is Nothing Then
            MsgBox "Por Favor Selecione a Linha que pretende Eliminar", vbCritical
        Else
            If ActiveCell.Row = 2 Then
                On Error Resume Next
                    Rows(2).SpecialCells(xlCellTypeConstants).ClearContents
                On Error GoTo 0
            Else
                rng.Delete xlShiftUp
            End If
        End If
    End With
End Sub


Alguma dúvida disponha. 🙂

  • Obrigado 1

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!