Vou demonstrar passo a passo o código VBA para a pergunta:
Série DONUT PROJECT 2024
Como automatizar a geração de relatórios e apresentações no Excel usando VBA:
Sub CriarRelatorio()
' Define o intervalo de dados
Dim dados As Range
Set dados = ThisWorkbook.Sheets("Planilha1").Range("A1:B10") ' Substitua "Planilha1" pelo nome da sua planilha e ajuste o intervalo conforme necessário
' Cria um novo livro para o relatório
Dim novoLivro As Workbook
Set novoLivro = Workbooks.Add
' Copia os dados para o novo livro
dados.Copy novoLivro.Sheets(1).Range("A1")
' Salva o novo livro
novoLivro.SaveAs Filename:="C:\Caminho\Para\Salvar\Relatorio.xlsx" ' Substitua pelo caminho desejado
' Fecha o novo livro
novoLivro.Close
MsgBox "Relatório criado com sucesso!"
End Sub
Este código cria um novo workbook do Excel, copia os dados de uma planilha existente para o novo workbook, salva o novo livro e fecha-o.
Série de Livros nut Project
Série DONUT PROJECT 2015
Clique aqui e nos contate via What's App para avaliarmos seus projetos
Nenhum comentário:
Postar um comentário