Página 1 de 1

MACRO: excluir a última linha de uma tabela

Enviado: 13 Mai 2015 às 11:38
por aurelio2502
Olá, amigos. Tudo bem? Então, eu estou terminando uma planilha de controle de estoque, mas uma coisa está barrando a conclusão. Ao tentar montar uma macro para excluir a última linha de uma tabela, o sistema não aceita e fixa somente naquela linha selecionada, resultando em um erro. Quem puder solucionar esse problema, ficarei muito grato. Já busquei na internet e encontrei várias linhas de comando, no entanto não entendo muito bem a lógica e acabo não indo nem pra frente nem para trás. Obrigado.

Re: MACRO: excluir a última linha de uma tabela

Enviado: 13 Mai 2015 às 12:00
por alexandrevba
Bom dia!!

Sem ver sua rotina ou seu arquivo fica complicado, já que solicitou algo generico, então ai vai.

Exemplo caso seja vazia,s e não for algo assim, poste seu arquivo.
Código: Selecionar todos
Set oListObj = Worksheets("Sheet1").ListObjects(2) 
    
    Set rData = oListObj.DataBodyRange
    
    NumRows = rData.Rows.Count
    
    For i = NumRows To 1 Step -1
        If Application.CountBlank(rData.Rows(i)) > 0 Then
            rData.Rows(i).Delete
        End If
    Next i
Att