Este fórum está sendo desativado

[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.

[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