Excel Macro para excluir linha sem apagar dados das outras linhas (vba)

[Jefferson TS]

Olá. Tenho esta macro para excluir linha de uma tabela e manter a planilha sempre bloqueada, porém está apagando os dados já digitados das linhas anteriores.

Alguém poderia me ajudar a consertar isso?

 

PHYSICAL.rar

Sub ExcluiLinha()

Dim Tabela As ListObject
Dim UltimaLinha As Long

Set Tabela = Planilha9.ListObjects("Tabela11")
UltimaLinha = Tabela.ListRows.Count
If UltimaLinha = 1 Then
    MsgBox "A tabela deve conter pelo menos uma linha além dos cabeçalhos.", vbInformation, "ERRO!"
    Exit Sub
Else:
Call Desprotege
Sheets("ficha_treino").Activate
    Range("Tabela11[[#Headers],[EXERCÍCIO]]").Select
    Selection.End(xlDown).Select
    Selection.EntireRow.Delete
Call Protege

End If
End Sub

 

[RafaVillani]

@Jefferson TSVocê quer deletar a primeira linha abaixo do cabeçalho?

 

Ps: O filtro pelo CPF funcionou?

 

RafaVillani

[Jefferson TS]

@RafaVillani Quero apagar a última linha da tabela.

 

8 minutos atrás, RafaVillani disse:

Ps: O filtro pelo CPF funcionou?

Vou testar esta parte mais tarde. Te falo se deu certo.

[RafaVillani]

@Jefferson TSaltere no seu código:

 

If UltimaLinha = 1 Then

 

por

 

If UltimaLinha = 0 Then

 

e  apague essas 3 linhas

 

Range("Tabela11[[#Headers],[EXERCÍCIO]]").Select

Selection.End(xlDown).Select

Selection.EntireRow.Delete

 

e abaixo da linha Sheets("ficha_treino").Activate coloque esta

 

Tabela.ListRows(UltimaLinha).Delete

RafaVillani

[Jefferson TS]

@RafaVillani Perfeito. E enquanto a parte de inserir linha, no caso quando eu clico em excluir linha até o ponto de aparecer a msgbox "A tabela deve conter pelo menos uma linha além dos cabeçalhos." Então quando eu clico em inserir linha, vai lá pra ultima linha da tabela "1048576", ou seja, está funcionando, mas primeiro ela faz isto, o que é muito chato. Sabe me dizer como faria pra não descer até a última linha?

Sub InsereLinha()
Call Desprotege

Sheets("ficha_treino").Select

    Range("A13").Select
    Selection.End(xlDown).Select
    Selection.ListObject.ListRows.Add
    Selection.End(xlDown).Select
    
Call Protege
End Sub

 

[RafaVillani]

@Jefferson TSSubstitua seu código por esse.

Sub InsereLinha()
Call Desprotege

Dim Tabela As ListObject
Set Tabela = Planilha9.ListObjects("Tabela11")
Tabela.ListRows.Add
    
Call Protege

RafaVillani

[Jefferson TS]

@RafaVillani Show. Muito obrigado. Esta me ajudando muito com isso aqui.

Só um detalhe, como a tabela sempre vai ter uma linha além da linha de cabeçalhos, o primeiro clique no botão inserir linha não faz nada, tem como identificar que já existe uma linha e então inseir a segunda linha já no primeiro clique?

[RafaVillani]

@Jefferson TSNa verdade o que ocorre é, apesar da linha estar com cor diferente ela não existe, então no primeiro clique é inserida a primeira linha, depurei o código para confirmar isso, e é exatamente isso que ocorre, tanto que se você tentar deletar essa linha o msgbox será mostrado.

 

Faça o teste, exclua todas as linhas até a mensagem ser mostrada, depois insira uma linha, e tente deletar, mesmo não mostrando na tabela a linha foi inserida e será deletada.

 

RafaVillani

[Jefferson TS]

@RafaVillani A tá. Entendi. Muito obrigado. 

Acabei de postar um novo tópico sobre enviar email com o excel, poderia dar uma olhada lá?

Acredito que seria a última coisa pra mim finalizar esta planilha aqui, graças a Deus.

[RafaVillani]

@Jefferson TSIrei olhar, aproveitei que você me enviou sua planilha e corrigi onde você estava errando com o filtro do CPF, arrumei e está funcionando, teste e me diga se funcionou ai pra você.

 

RafaVillani

PHYSICAL.rar

[RafaVillani]

@Jefferson TSO filtro por CPF funcionou?

[Jefferson TS]

@RafaVillani vou ver isso hj de noite e te aviso