EXCLUIR LINHA INTERIRA COM CONDIÇÃO

2024 - VBA & Macros

Post Recente por xandrinho 7 anos atrás

4 Posts

3 Usuários

0 Reactions

1,138 Visualizações

RSS

xandrinho

(@xandrinho)

Posts: 0

Estimable 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?

teste excluir.zip

Postado : 31/05/2017 5:17 pm

Osvaldomp

(@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

Osvaldo

Postado : 31/05/2017 6:22 pm