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

Esse macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), exporta dados para folha de planilha (Auxiliar), baseados nos critérios datas, atribuidos por uma combobox (formulário) e também pela fórmula Procv(Busca) dados em outra folha de planilha Banco de dados.

Sub Exportar_dados_para_outra_folha_planiha()
' códigos em verde está no outro exemplo de planiha_I

    'Range("B3:B12").Select
    'Selection.Copy
    'Sheets("Feuil2").Select
    'Range("A3").Select
    'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
         'Sheets("Feuil1").Select
   ' Range("C1").Select
  
     
   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
  
    Saber2.Range("d17").Value = "Dados referente a data [ " & Saber1.Range("b1").Value & " ]"
   Saber2.Range("d8").Formula = "Dados referente a data [ " & Saber1.Range("b1").Value + 1 & " ]"
  
    Range("B3:B12").Copy
   Sheets("Auxiliar").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
   MsgBox ("Dados exportados com sucesso!!..."), vbInformation, "Saberexcel - o site das macros"
   SendKeys "{Esc}"
   Range("D1").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 as macros acima
Excel planilha vba exporta dados baseado data_I (66.63 KB)

Publicidade
Compre com segurança, garantia e ótimos preços