Macro para exclusão de linhas

2024 - VBA & Macros

Post Recente por nilson_ss 7 anos atrás

3 Posts

2 Usuários

0 Reactions

919 Visualizações

RSS

nilson_ss

(@nilson_ss)

Posts: 10

Active Member

Topic starter

Caros amigos:
Preciso de uma macro que verifique se uma determinada célula está vazia (sem dados) e exclua a linha inteira da tabela (que pode conter dados abaixo).
Estou inserindo uma planilha de exemplo. Nela, eu preciso que a macro pesquisa as linhas sem informações (linhas 8, 9 e 10, 18, 19 e 20) e as exclua, tornando o bloco de informações homogêneo (sem gaps).
Dá pra fazer isso?
Antecipadamente agradeço pela ajuda!

Postado : 27/02/2018 3:43 pm

Osvaldomp

(@osvaldomp)

Posts: 858

Prominent Member

Experimente.
Considerei que haverá ao menos uma linha vazia na tabela, se não, o cabeçalho será afetado.

Sub ExcluiLinhasVazias()
 Application.ScreenUpdating = False
 With Sheets("Quadro de Preços")
  .AutoFilterMode = False
  .Range("B2:H2").AutoFilter Field:=1, Criteria1:="="
  .Range("B3:B" & .Cells(Rows.Count, 2).End(3).Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete
  .AutoFilterMode = False
  .Range("A3:A" & .Cells(Rows.Count, 2).End(3).Row).Value = "=A2+1"
 End With
 Application.ScreenUpdating = True
End Sub

Osvaldo

Postado : 27/02/2018 4:25 pm