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)
