Início > Dicas / Tips > Script que Encontra e Apaga no Excel

Script que Encontra e Apaga no Excel

Abaixo segue uma macro em vbscript que desenvolvi para Excel, que encontra uma célula com o valor informado na variável “sTextoProcurar” e apaga o conteúdo da mesma.

Sub ProcuraeApaga()
 Dim LSearchRow As Integer
 Dim LCopyToRow As Integer
 Dim bEncontrado As Boolean
 Dim sTextoProcurar As String

 LSearchRow = 1

 While Len(Range("A" & CStr(LSearchRow)).Value) > 0
 sTextoProcurar = Range("A" & CStr(LSearchRow)).Value

 With Sheets("Plan2").Range("C:C")
 Set Rng = .Find(What:=sTextoProcurar, _
 After:=.Cells(.Cells.Count), _
 LookIn:=xlValues, _
 LookAt:=xlWhole, _
 SearchOrder:=xlByRows, _
 SearchDirection:=xlNext, _
 MatchCase:=False)
 If Rng Is Nothing Then
 bEncontrado = False
 Else
 bEncontrado = True
 End If
 End With

 If bEncontrado Then
 Rows.Range("A" & CStr(LSearchRow)).Delete
 End If

 LSearchRow = LSearchRow + 1
 bEncontrado = False
 Wend

End Sub

Para utilizar, é só criar uma nova macro e colar o código nela.

Anúncios
  1. Nenhum comentário ainda.
  1. No trackbacks yet.

Deixar uma Anotação

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

dotnettips.wordpress.com/

Helping Programmers Since 1994

Viagem e Voo

Dicas para viagens, férias e voos nacionais e internacionais

Ivan Guimarães Meirelles

Analista Desenvolvedor

Void Podcast

Vazio e sem retorno de valor

Elemar DEV

Negócios, tecnologia e desenvolvimento

2,000 Things You Should Know About WPF

Everything a WPF Developer Needs to Know, in Bite-Sized Chunks

blog

so long

Fernando Franzini Blog

Engenharia de Software e Arquitetura Ágil

Gabriel RB.net

Blog técnico, com dicas, códigos, novidades e problemas do dia-a-dia programando.

Alexandre Valente's Blog

Experiências em tecnologia e assuntos diversos

%d blogueiros gostam disto: