Guru do Excel e Power BI

ola pessoal... boa tarde!
anexei um exemplo pra melhor entendimento do que preciso. nao consigo fazer as macros funcionarem de forma independente pra cada tabela.
quero excluir a ultima linha de cada tabela se estiver vazia (com alerta), de forma independente, porem as tabelas são em sequencia, sem intervalo de linha entre uma e outra. ajuda a adaptar a macro.
podem me ajudar por gentileza... obrigado.

Experimente:

Código: Selecionar todos

Sub ExcluiÚlimaVaziaTab1()
 Dim LR As Long
  With ActiveSheet.ListObjects("tabTeste01")
   LR = .ListRows.Count
    If LR > 0 Then
      If Application.Application.CountA(.ListRows(LR).Range) = 0 Then
       .ListRows(LR).Delete
      End If
    End If
  End With
End Sub

Código: Selecionar todos

Sub ExcluiÚlimaVaziaTab2()
 Dim LR As Long
  With ActiveSheet.ListObjects("tabTeste02")
   LR = .ListRows.Count
    If LR > 0 Then
      If Application.Application.CountA(.ListRows(LR).Range) = 0 Then
       .ListRows(LR).Delete
      End If
    End If
  End With
End Sub

dica - instale os códigos acima em um módulo comum (menu Inserir / Módulo) e não no módulo da planilha como você colocou os atuais códigos.

100% perfeito amigo!!!! Muito obrigado mais uma vez osvaldomp!!!!
gurudoexcel tooooop d+!!!!!

Guru do Excel e Power BI

ultima linha vazia de uma ou mais tabelas

ultima linha vazia de uma ou mais tabelas

Re: ultima linha vazia de uma ou mais tabelas

ultima linha vazia de uma ou mais tabelas