Notifications
Clear all
2024 - VBA & Macros
2
Posts
2
Usuários
0
Reactions
1,103
Visualizações
Topic starter
EU tenho uma planilha com varias células escrito entregue e aguardando gostaria de criar um botão que eliminasse todas as linhas que contiver a palavra entregue de uma so vez, qual o código que poderia estar usando?
Postado : 18/09/2014 7:23 am
Bom dia!!
Em qual coluna está a palavra "entregue"?
Nçao testado!!!!!!!!
Sub AleVBA_13005()
Dim i As Long, lastrow As Long
lastrow = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = lastrow To 1 Step -1
If Cells(i, "A").Value = "entregue" Then Cells(i, "M").EntireRow.Delete
Next i
Application.ScreenUpdating = True
End Sub
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 18/09/2014 8:00 am