Home Excel - Dicas Microsoft Excel VBA Excel VBA - AutoFiltros Excel planilha vba autofiltro procura palavras e filtra para outra planilha

Excel planilha vba autofiltro procura palavras e filtra para outra planilha

E-mail Imprimir PDF

SaberExcel - o Site das Macros

Esta macro do Aplicativo Microsoft Excel VBA, contém uma macro que filtra os dados desejados para outra planilha.
Sub Procurar_por_palavra_e_copiar()

Dim vLocalizaLinha As Integer
Dim vCopiaLinha As Integer
Sheets("Plan2").Select
Range("a2:F26").ClearContents
Sheets("Plan1").Select
On Error GoTo Err_Execute

'Inicia busca na linha 4
vLocalizaLinha = 4

'Start copying data to row 2 in Plan2 (row counter variable)
'Comece a copiar dados para linha 2 em Plan2 (linha contariam a variável)
vCopiaLinha = 2

While Len(Range("A" & CStr(vLocalizaLinha)).Value) > 0

'Se valor na coluna E = "Caixa de Correio", copie a linha inteira a Plan2
If Range("E" & CStr(vLocalizaLinha)).Value = Range("H3").Value Then

'selecionando a planilha 1 para copiar
Rows(CStr(vLocalizaLinha) & ":" & CStr(vLocalizaLinha)).Select
Selection.Copy

'colando na planilha 2 na proxima linha
Sheets("Plan2").Select
Rows(CStr(vCopiaLinha) & ":" & CStr(vCopiaLinha)).Select
ActiveSheet.Paste

'Contador move para a proxima linha
vCopiaLinha = vCopiaLinha + 1

'volta para Planilha1 e continua a busca
Sheets("Plan1").Select

End If

vLocalizaLinha = vLocalizaLinha + 1

Wend

'reposiciona na celula (A3)
Application.CutCopyMode = False
Range("A3").Select

MsgBox "todos os dados procurados foram copiados para a Plan2."

Exit Sub

Err_Execute:
MsgBox "ocorreu um erro.", vbInformation, "Saberexcel - o site das macros"

End Sub

Aprenda Aplicativo Microsoft Excel VBA com SaberExcel



 Baixe o exemplo de planilha da macro acima
Excel planilha vba autofitro avançado com critério local desejado (31.33 kB)

Última atualização em Qua, 10 de Agosto de 2011 08:08  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA