Notifications
Clear all

Percorrer uma coluna e apagar as linhas das celuas em branco

3 Posts
2 Usuários
0 Reactions
951 Visualizações
(@slambrer)
Posts: 8
Active Member
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
fcarlosc
(@fcarlosc)
Posts: 453
Honorable Member
 

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
(@slambrer)
Posts: 8
Active Member
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