Um video explicando seria ideal.
Você está vendo a versão anterior da nova experiência da Alura que estamos preparando para você. Em breve, ela ganha uma identidade visual novinha totalmente pensada em potencializar seus estudos!
Um video explicando seria ideal.
Olá Renata tudo certinho??
Trago uma boa notícia para você!! Nossos cursos de excel e VBA estão sendo regravados e então fique atenta aos lançamentos semanais para aproveitar quando saírem! Sem datas definidas ainda.
Agradeço a sua sugestão de vídeo e vou levar a equipe de produção para verificar a possibilidade!
Sub Exportar_Dados() - Nome do arquivo
Range(“a5”).Select - Posiciona na célula a5
Range(Activecell,Activecell.End(xlDown)).Copy - Seleciona o conteúdo da célula ativa até o final da planilha e copia
Workbooks.Add - Adiciona o workbook novo
Range(“a1”).PasteSpecial - Cola na célula a1
ActiveWorkbook.SaveAs Filename:=thisworkbook.path & “C:\Users\IBM_ADMIN\Desktop\teste.xls"
Workbooks(“importação de texto.xlsm”).Activate - Vai para o arquivo importação de texto.xlsm
Range(“c5”).Select - Posiciona no c5
Range(Activecell,Activecell.End(xlDown)).Copy - Seleciona a célula ativa até o final para copiar
Workbooks(“exercicio.xlsx”).Activate - Volta pro arquivo exercicio.xlsx
Range(“b5”).PasteSpecial - Cola em b5
Activeworkbook.Close True - Fechando o arquivo
Msgbox “Dados exportados com sucesso”) - Mensagem de confirmação do processo de exportação
End SubFiz algumas anotações direta ao lado de cada linha para ver se assim consigo auxiliar no seu entendimento.
Uma dica é executar o script no modo debug, que ele vai linha a linha e você consegue acompanhar o que está sendo feito =)
Espero ter te ajudado e qualquer dúvida é só retornar aqui!
Bons estudos