Home Excel - Dicas Microsoft Excel VBA Excel VBA - Dados Excel planilha vba dados exportar dados baseado datas

Excel planilha vba dados exportar dados baseado datas

E-mail Imprimir PDF

Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA

Esse macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), exporta determinados dados, resultado de busca em uma Lista Suspensa e auxílio da Função Procv(),  por data em um banco de dados. Esse Macro localiza a última linha na planiha 'Auxiliar' e envia os resultados da busca por data para o final dos dados nesta folha de planilha. Resumindo:
Macros buscam dados na folha de planilha Banco de dados e Macro exporta dados para última linha usada na planilha Auxiliar.

Observe que usei a instrução Sendkeys, com intutíto didático, para abrir a caixa suspensa na célula B1, quando esta for selecionada, caso houver mais uma caixa suspensa(Validação de Dados) na Coluna(B), abriria automáticamente também. Acho bem bacana, e é útil.
Clique nas células da coluna (B) e observe o resultado, (não tem caixa suspensa, mas surge o efeito, faça esse exercício em outro local)
Fique com Deus. Expedito Marcondes

Este exemplo de Planilha faz parte dos Módulos
COMO FAZER - PROGRAMAÇÃO MS EXCEL VBA - SABEREXCEL
Planilhas inteligentes e didáticas
.

Veja o Precedimento com evento Selection_Change, que foi inserido na folha de código da folha de planilha.
que abre automáticamente todas as listas de validação existentes na coluna(B). há vários exemplos nos
Módulos Como Fazer programção com Validação de Dados (excelentes exemplos)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Column = 2 And Target.Count = 1 Then
    If Target = "" Then SendKeys "%{down}"
       SendKeys "%{down}"
 End If
End Sub

 

- Aqui estou mostrando dois exemplos de como fazer essa exportação, o segundo exemplo a folha de planilha teste está em outra
matéria, mas voce poderá fazer o exercício, reproduzindo a situação em outra planilhas teste.
Espero que tenham gostado do exemplo. Fique com Deus,  Expedito Marcondes.

O exemplo de planilha ligado abaixo para download é referente à esse macro, o exemplo abaixo está em outra matéria nesta mesma categoria.

Sub Exportar_dados_I()
  
  'Simplificando o código :
    Range("B3:B12").Copy
    Sheets("Auxiliar").Range("A3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    'a segunda parte é algo mais localizar última célula usada e insere novos dados abaixo.
    Range("B1") = Range("B1") + 1
    Range("B3:B12").Copy
    Sheets("Auxiliar").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
 [C1].select
 Application.SendKeys ("{ESC}")  'acionando a tecla esc para retirar a seleção (COPY)
End Sub

 '----------------------------------'
'esse é um outro exemplo que copia os dados para área desejada.
'fiz outro exemplo_I - veja...
Sub exportar_dados_dois()
   Sheets("Auxiliar").Range("A3:A" & Sheets("Auxiliar").Range("A65536").End(xlUp).Row).ClearContents
   Range("B3:B12").Copy
   Sheets("Auxiliar").Range("A3").PasteSpecial Paste:=xlPasteValues
   Range("B1") = Range("B1") + 1
   Range("B3:B12").Copy
   Sheets("Auxiliar").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
   Range("C1").Select
End Sub



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





  Baixe o exemplo de planilha contendo os macros e procedimentos  acima
Excel planilha vba exportar dados baseado data (75.11 KB)



Publicidade
Compre com segurança, garantia e ótimos preços
Eletrônicos - Submarino.com.br

Última atualização em Sáb, 13 de Agosto de 2011 17:29  

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