Home Excel - Dicas Microsoft Excel VBA Excel VBA - Relatorios vba Excel vba extrair relatorio diferentes planilhas e colunas

Excel vba extrair relatorio diferentes planilhas e colunas

E-mail Imprimir PDF

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Atendendo ao pedido do Romeu, fiz um pequeno exemplo de como extrair um relatorio usando dados em colunas e diversas planilhas,
extraindo para uma determinada planilha e também para determinadas colunas e linhas.
Fiz um exemplo desse macro que poderá baixar no final da página, é bem simples, não tem critério para extração, o macro comparará as linhas
em diversas planilhas e extrairá o conteúdo com pause.  usei o conteúdo de nosso curso completo ms excel vba.
Espero que o exemplo seja útil.
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - -'
Global Const s = "Relatorio Extraido com Sucesso!"
Global Const a = vbInformation
Global Const b = "Escola Saberexcel VBA Estudos®"
Global Const e = "- - - - - - - - - - - - - - - -"
Global Const r = "Escola Saberexcel VBA Estudos®"
Global Const X = "Treinamentos com Macros Fórmulas e Funções"
Global Const L = "- - - - - - - - - - - - - - - -"
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub exemplo_msg_usando_constantes()
MsgBox s & vbCrLf & e & vbCrLf & r & vbCrLf & X & vbCrLf & L, a, b
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sbx_contar_pagina_curso()
Dim i As Long
Dim vTotal As Long
Saber4.[d8:h38].ClearContents
Saber4.[g6].Value = ""
'//============ executando a instrução for para busca de dados
For i = 2 To Saber3.Range("e65000").End(xlUp).Row
    Saber4.Range("d" & CStr(6 + i)) = Saber1.Range("g" & CStr(i)) & "º.)-"
    Saber4.Range("f" & CStr(6 + i)) = Saber2.Range("b" & CStr(i)) & " - Páginas"
    Saber4.Range("h" & CStr(6 + i)) = Saber3.Range("e" & CStr(i))
    vTotal = vTotal + Saber2.Range("b" & CStr(i))
    Saber4.[c6].Value = Saber3.Range("e65000").End(xlUp).Row - i
    Tempo 0.5
Next i
'//============ finalizando o macro, retornando valores para folha de planilha
Saber4.[c6].Value = "<< R-e-l-a-t-o-r-i-o  E-x-t-r-a-í-d-o >>"
Saber4.[g6].Value = "Total de páginas do Curso Completo MS Excel VBA  = [ " & vTotal & " ] Páginas"
'MsgBox s & vbCrLf & e, a, b '//============ atribuindo constantes a mensagem veja acima.
MsgBox s & vbCrLf & e & vbCrLf & r & vbCrLf & X & vbCrLf & L, a, b
End Sub
'//============ pausando lançamentos em 0.5 segundos intervalo
Sub Tempo(SbTempo)
Dim VelhoTempo As Variant
If SbTempo < 0.01 Or SbTempo > 300 Then SbTempo = 1
VelhoTempo = Timer

Do
  DoEvents
Loop Until Timer - VelhoTempo >= SbTempo
End Sub


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.



  Baixe o exemplo de planilha contendo os macros :   <<<  Registre-se em nosso site  >>>
Excel vba macros extrair relatorio planilhas colunas (144 KB)

Última atualização em Seg, 22 de Outubro de 2012 18:13  

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje939
mod_vvisit_counterOntem5104
mod_vvisit_counterEsta Semana30703
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês44432
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10467261
Aprenda MS Excel VBA

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