Notifications
Clear all

EXCLUIR LINHA INTERIRA COM CONDIÇÃO

4 Posts
3 Usuários
0 Reactions
1,126 Visualizações
(@xandrinho)
Posts: 0
New Member
Topic starter
 

Boa noite!!!
Amigos, vejam se podem me ajudar, pois estou desesperado!!!

Tenho uma planilha “infinita”, e precisava sempre excluir a linha inteira que estivesse à palavra excluir na coluna A, só que com um detalhe sempre, tem também que excluir sempre duas linhas inteiras abaixo da palavra excluir da coluna A.(... ou seja, o código sempre excluiria três linhas..)Como o trabalho vai ser muito exaustivo, prensei em encontrar um código e atrela-lo ao buton.

Seria possível?

Consegue me ajudar?

 
Postado : 31/05/2017 5:17 pm
(@osvaldomp)
Posts: 857
Prominent Member
 

Experimente:

Sub ExcluiLinhas()
 Dim k As Long
  For k = Cells(Rows.Count, 1).End(3).Row To 2 Step -1
   If Cells(k, 1) = "excluir" Then Rows(k & ":" & k + 2).Delete
  Next k
End Sub
 
Postado : 31/05/2017 6:22 pm
(@jokaman)
Posts: 0
New Member
 

Xandrinho

Veja se é isto que pretende, tem dois exemplos

JCabral

 
Postado : 31/05/2017 6:32 pm
(@xandrinho)
Posts: 0
New Member
Topic starter
 

Ambos os exemplos me ajudaram....

Muito Obrigado!!!

 
Postado : 31/05/2017 6:40 pm