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