Macro para auto-preenchimento – curso gratis de macros





curso gratis de macros para excel

Mais um par o curso gratis de macros para vocês que acompanham nosso site e nosso trabalho

Neste video do curso gratis de macros, vamos ensinar como trabalhar com macro de auto-preenchimento ou autofill.

Dada uma regra com f’órmula ou sequência, queremos repetir essa ação usando a coluna da esquerda como guia.

Ao gravar uma macro, temos uma macro que vai até um range fixo e precisamos tornar este intervalo diâmico.

Baixe o arquivo aqui.

 

Gráfico no Userform





grafico no userform

Outro exemplo pedido pelos alunos é a visualização de gráficos conforme o usuário está usando um Userform.Apesar de existirem outras maneiras de fazer este exemplos, escolhemos uma delas por ser mais prática.
A macro vai capturar a imagem do seu gráfico, salvar esta imagem como “temp.gif” na mesma pasta do seu arquivo e buscar essa imagem para ser mostrada no Userform.
Em uma planilha, criamos alguns dados e um gráfico referente a estes dados. Vamos criar um Userform que contenha uma ferramenta Imagem do mesmo tamanho do gráfico que foi criado. Na macro de inicialização do userform vamos inserir o seguinte código:

Private Sub UserForm_Initialize()
‘Transfere para a variável Gráfico o 1º gráfico da planilha ‘Exemplo”

Set Gráfico = Sheets(“Plan1”).ChartObjects(1).Chart

‘Cria o caminho e nome para salvamento do arquivo GIF

ArquivoGIF = ThisWorkbook.Path & “\temp.gif”

‘Salva o gráfico como arquivo GIF

Gráfico.Export Filename:=ArquivoGIF, FilterName:=”GIF”

‘Carrega o gráfico salvo para o Controle Image1 do Userform

Image1.Picture = LoadPicture(ArquivoGIF)

End Sub

Confira se o seu gráfico realmente é o objeto 1: ChartObjects(1). Confirma também o nome da planilha e o nome da sua ferramenta de Imagem.

Baixar arquivo

Macro para enviar email





macro para enviar email

Assim como obter dados da Internet, o Excel também permite enviar e-mails com o seu relatório através de uma conta do Microsoft Outlook.

Uma maneira simples de fazer a tarefa é usar a seguinte macro para enviar o arquivo inteiro:

Sub Email()

ActiveWorkbook.SendMail “email_do_destinatário@email.com”, “Título do Email”

End Sub

 

Se você quiser enviar apenas uma de suas abas dentro de um novo arquivo, uma maneira interessante de fazer é criar um novo arquivo, copiar a aba para este arquivo e fazer o envio do email

 

‘Define a planilha que será enviada por email. Ex.: Plan1, Balancete, Lista De Nomes, etc

nomedaaba = “Plan1”

 

‘Criar um novo arquivo excel

Set NovoArquivo = Application.Workbooks.Add

 

‘Copiar a planilha para o novo arquivo criado

ThisWorkbook.Sheets(nomedaaba).Copy Before:=NovoArquivo.Sheets(1)

 

‘Salvar o arquivo

ThisWorkbook.SaveAs ThisWorkbook.Path & “\NovoArquivo” & “.xlsm”

nomecompleto = NovoArquivo.FullName

 

‘Enviar o email

ThisWorkbook.SendMail “email_do_destinatario@email.com”, “Título do Email”

 

‘Fechar o arquivo novo

ThisWorkbook.Close

Faça o curso completo de Macros para Excel conosco:

Macro pronta para pegar dados da Internet





macros internetComo fazer macro para baixar dados da Intenet?
Muitas macros precisam de dados recentes atualizados da Internet. Este exemplo mostra como podemos usar Dados Externos do Excel para buscar estes dados.

Gostaria de ter acesso a macro pronta para pegar dados da Internet junto com turorial? Compre aqui.