Página 1 de 1

Problemas para excluir linhas selecionadas

Enviado: 05 Fev 2021 às 09:53
por marcoafdamasceno
Caros, bom dia.

Estou realizando uma macro que no final dela preciso excluir as linhas que foram selecionadas no inicio da macro. Nos testes que realizei consegui fazer com a toda a tabela fosse excluída ou que a exclusão travasse em uma determinada linha, mas o problema é que nem sempre a posição da linha será a mesma.
Conseguem me ajudar com alguma solução para este caso?

"
Selection.Copy
Sheets("Log_Entregas").Select
Range("B3").Select
Selection.Insert Shift:=xlDown
Sheets("Controle").Select
Application.CutCopyMode = False
Selection.ListObject.ListRows(3).Delete
Range("D2").Select
"

Desde já agradeço pela ajuda.

Re: Problemas para excluir linhas selecionadas

Enviado: 05 Fev 2021 às 14:25
por osvaldomp
Experimente substituir o número 3 conforme abaixo. Talvez seja necessário subtrair ou adicionar 1 ou 2 a ActiveCell.Row para coincidir o número da linha da planilha com o número da linha da Tabela, depende da linha inicial da Tabela.

Selection.ListObject.ListRows(3).Delete

Selection.ListObject.ListRows(ActiveCell.Row).Delete