Notifications
Clear all
2024 - VBA & Macros
3
Posts
2
Usuários
0
Reactions
983
Visualizações
Topic starter
Boa noite. Estou precisando de uma macro que percorra um determinada coluna e quando encontrar uma celula em branco nesta coluna, apague a linha inteira.
Ate consegui combinar um Do while e um IF ; Else. Ele seleciona a ultima celula com valor e vai subindo e quando encontra uma linha em branco ele apaga, mas quando chega na primeira celula com o comando activecell.offset(1,0) da erro pq nao sai do Loop.
Postado : 20/02/2016 7:41 pm
Olá amigo,
Vê se esse código te ajuda.
Att,
Francisco
Sub apagaLinha()
Columns("A:A").Select 'Adapte para a coluna que quiser
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
Range("A1").Select
End Sub
Postado : 20/02/2016 7:59 pm
Topic starter
fcarlosc
Show de bola mesmo era exatamente o código que precisava, muito obrigado e ate a próxima!
Postado : 21/02/2016 4:23 am