| Descricao: |
 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
Publicidade
Compre com segurança, garantia e ótimos preços
 |