Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
gilson91

Macro para apagar linhas que contenham certos valores

Mensagem Recomendada

Olá, amigos. Gostaria de saber se há alguma maneira de apagar só as linhas que contenham um valor em específico?

Por exemplo, eu tenho esta planilha:

http://www.sendspace.com/file/pc6sov

Quero manter apenas as linhas onde na coluna "D" haja valores iniciados com 3. Ou seja, gostaria de uma fórmula ou macro que excluísse as demais células.

Não sei se fui muito claro, espero que sim. É possível fazer isso?

Compartilhar este post


Link para o post
Compartilhar em outros sites


Sub ExcluiDif3()
  Dim LR As Long, k As Long
    LR = Cells(Rows.Count, 4).End(xlUp).Row
      For k = LR To 4 Step -1
        If Left(Cells(k, 4).Value, 1) <> 3 Then
          Rows(k).Delete
        End If
      Next k
End Sub

 

 

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Sub ExcluiDif3()

  Dim LR As Long, k As Long

    LR = Cells(Rows.Count, 4).End(xlUp).Row

      For k = LR To 4 Step -1

        If Left(Cells(k, 4).Value, 1) <> 3 Then

          Rows(k).Delete

        End If

      Next k

End Sub

muito bom amigo, funcionou perfeitamente!!

 

muito obrigado, me ajudou bastante (Y)  (Y)  (Y)  (Y)

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...