Usuário com melhor resposta
Excluir linhas mediante condições

Pergunta
-
Bom dia povo,
seguinte, estou precisandod de uma Macro que exclua linhas na seguinte condição:
* Se na COLUNA A conter a palavra NAO, exclua essa linha, e as outras linhas precisam se agrupar
Tipo.. é um excluir linha normal... só que eu não consigo fazer com que as linhas que ficam no arquivo "subam"/se agrupem...
alguem aí pode me ajudar?
Respostas
-
bom pessoal... eu fiz de outra forma que funcionou perfeitamente:
Sub Excluir_Inativos() ' Excluir Inativos Range("A1:A65000").Select Dim w As Range Dim faixa As Range Set faixa = Selection Dim criterio As String criterio = "encargos inss" For Each w In faixa If InStr(1, w.Value2, criterio) <> 0 Then w.Activate ActiveCell.EntireRow.Delete Call Excluir_Inativos Exit Sub End If Next Range("A1").Select End Sub
Abs- Marcado como Resposta Lucas Oliveira de Moura sexta-feira, 23 de setembro de 2011 10:05
Todas as Respostas
-
bom pessoal... eu fiz de outra forma que funcionou perfeitamente:
Sub Excluir_Inativos() ' Excluir Inativos Range("A1:A65000").Select Dim w As Range Dim faixa As Range Set faixa = Selection Dim criterio As String criterio = "encargos inss" For Each w In faixa If InStr(1, w.Value2, criterio) <> 0 Then w.Activate ActiveCell.EntireRow.Delete Call Excluir_Inativos Exit Sub End If Next Range("A1").Select End Sub
Abs- Marcado como Resposta Lucas Oliveira de Moura sexta-feira, 23 de setembro de 2011 10:05
-
bom pessoal... eu fiz de outra forma que funcionou perfeitamente:
Sub Excluir_Inativos() ' Excluir Inativos Range("A1:A65000").Select Dim w As Range Dim faixa As Range Set faixa = Selection Dim criterio As String criterio = "INATIVO" For Each w In faixa If InStr(1, w.Value2, criterio) <> 0 Then w.Activate ActiveCell.EntireRow.Delete Call Excluir_Inativos Exit Sub End If Next Range("A1").Select End Sub
Abs- Editado Lucas Oliveira de Moura sábado, 24 de setembro de 2011 03:17