Notifications
Clear all

Linha A1 até A62 se está vazia

8 Posts
2 Usuários
0 Reactions
1,710 Visualizações
(@jeferson_r)
Posts: 34
Eminent Member
Topic starter
 

Pessoal

Sou novo em VBA,
Tenho uma planilha com várias colunas de "A1" até "BJ1"

Tem coluna onde tem dados preenchidos e outras não

quero excluir as linhas onde em todas as colunas não tenha informações naquela linha
Por favor, sabem como ?

Obrigado

 
Postado : 15/05/2017 12:01 pm
(@osvaldomp)
Posts: 858
Prominent Member
 

Experimente:

Sub ExcluiLinhasVazias()
 Dim LR As Long, k As Long
  LR = Cells(Rows.Count, 1).End(3).Row
  For k = LR To 1 Step -1
   If Application.CountA(Range(Cells(k, 1), Cells(k, 62))) = 0 Then Rows(k).Delete
  Next k
End Sub

Osvaldo

 
Postado : 15/05/2017 12:35 pm
(@jeferson_r)
Posts: 34
Eminent Member
Topic starter
 

Olá Osvaldo
Não deu certo

Segue planilha em anexo
Se puder me dar um help agradeço

 
Postado : 15/05/2017 3:01 pm
(@jeferson_r)
Posts: 34
Eminent Member
Topic starter
 

Pessoal tenho a planilha de exemplo em anexo

Validar da coluna"C" em diante..
Se em todas as colunas da linha 1(exemplo) estiverem em branco as células, então delete aquela linha

Se puderem me ajudar agradeço.
Obrigado

 
Postado : 15/05/2017 3:09 pm
(@osvaldomp)
Posts: 858
Prominent Member
 

Você comentou na planilha que as linhas 3 e 5 devem ser excluídas.

Se o critério para excluir a linha for linha vazia no intervalo 'C:BJ', então no seu exemplo a linha 3 não será excluída, diferente do que você informou, pois aquela linha não está vazia no intervalo. :?: :?: :?:

Osvaldo

 
Postado : 15/05/2017 3:53 pm
(@jeferson_r)
Posts: 34
Eminent Member
Topic starter
 

Olá Osvaldo
Me desculpe pela confusão

Mas o exemplo é o da planilha

Tem alguma forma de executar o código?

 
Postado : 15/05/2017 6:44 pm
(@osvaldomp)
Posts: 858
Prominent Member
 
Sub ExcluiLinhasVazias()
 Dim LR As Long, k As Long
  LR = Cells(Rows.Count, 2).End(3).Row
  For k = LR To 2 Step -1
   If Application.CountA(Range(Cells(k, 3), Cells(k, 62))) = 0 Then Rows(k).Delete
  Next k
End Sub

Osvaldo

 
Postado : 15/05/2017 7:07 pm
(@jeferson_r)
Posts: 34
Eminent Member
Topic starter
 

Muito obrigado Osvaldo

Show de bola!

 
Postado : 16/05/2017 4:03 am