Ir ao conteúdo
  • Cadastre-se
gui3581

Vba criar macro pra deletar linha com tal palavra

Recommended Posts

Olá,

 

Tenho uma planilha com 1728 linhas somente na coluna A e gostaria que se ele achasse em alguma linha tal palavra ele deletasse a linha (a palavra pode estar no meio de uma frase ou grudada).

 

Ex.:

 

date:"10/06/2015 23:04:42",

total:"R$ 25,00",

gateway:"deposit"

date:"10/06/2015 23:06:46",

date:"16/06/2015 19:57:47",

date:"15/07/2015 08:58:05",

status:"

 

Quero que ele apague toda linha que conter a palavra date, usarei o mesmo comando para apagar outras linhas que contenha tal palavra que eu queira, vasculhei a internet e não encontrei um que funcionasse e o que eu encontrei foi um que apagasse a linha com tal FRASE especifica e não uma palavra no meio de uma célula, que é esta abaixo:

 

Sub DeleteRowsWithWord()
 Dim Col As Variant, Word As String

 Let Col = InputBox("Em qual coluna devo manter o foco da busca da palavra?")

 If Len(Col) > 0 And Not Col Like "*[!0-9]*" Then Col = Val(Col)

 Let Word = InputBox("Que palavra devo encontrar nas Linhas para apagá-las?")

 With Columns(Col)
     .Replace Word, "#N/A", xlWhole
     .SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete
 End With
End Sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
Sub ExcluiLinhasGate()
 Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).AutoFilter 1, "*date*"
 Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(12).EntireRow.Delete
 ActiveSheet.AutoFilterMode = False
End Sub

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×