grande Trovato... q conteúdo bom .... o Excel e uma ferramenta incrível todos os dias estamos apreendendo alguma coisa!! vc me ajuda muito com esses vídeos não sei nem como agradecer ... forte abraço!
Que recurso incrível! tenho um arquivo com 30 abas, e pra juntar em uma única, era CRL+C e CRL+V uma por uma. Agora vou usar esse recurso, vai ser muito rápido. Parabéns professor!
Fico muito feliz que tenha gostado Thiago! Tenho atualmente mais de 890 aulas publicadas no UA-cam e espero que ainda encontre muito material de estudos por aqui.
Muito obrigado Helloween!!!! Pelo visto você também curte essa incrível banda. Já assisti 5 shows ao vivo deles e inclusive o último, o Pumpkin United. Grande abraço!!!!
Parabéns pelo conteúdo. Professor, o senhor tem algum vídeo onde explica como abrir uma outra planilha, varrer uma determinada coluna e trazer uma informação com critérios? Basicamente seria um PROCV no VBA.
Olá *Alessandro Trovato..* Belo conteúdo na qual nos possibilita ter *insights* para a aplicarmos em nossos projetos. No mais vídeo compartilhado nas minhas redes sociais: *G+* ; *Twitter* e *Linkedln* Grato, *Marcelo Adriano*
Muito obrigado pelo feedback Edilson! Grande abraço. Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos! Espero que os mais de 660 vídeos tutorias que possuo atualmente (só de Excel são mais de 320!) possam lhe ajudar. Site com todos os vídeos dos cursos completos organizados: sigaonerd.esy.es/index.html Site com meus cursos com certificados: cursos.alessandrotrovato.com.br Bons estudos e sucesso!
Imagina. Já indiquei este canal a vários amigos da faculdade. O conteúdo é sensacional. Mas, aproveito este comentário para tirar uma dúvida: preciso extrair e unificar em arquivo(txt) textos variados e sem padrões que estão em arquivos .doc, .txt e .trf. Ao fazer isso com os modelos disponíveis no seu blog, a informação não vem completa e/ou com caracteres especiais por conta dos espaços. Teria como me ajudar nisso ou fazer uma vídeo aula explicando? Um forte abraço! Sucesso!
Olá Edilson. Já assistiu a aula que fiz sobre o tratamento de arquivos gerados pelos ERPs? Nessa aula você encontrará o conteúdo que deseja. E há outras aulas sobre extração avançada de textos. Deve ter umas 10 aulas no total.Bons estudos!
olá. tudo bem? parabens pelos trabalhos fantásticos. uma dúvida, se eu quiser colar apenas os valores nesse comando de destino que você deu, como faço? obrigado.
Ótima explicação como sempre! Professor e se a ideia é selecionar apenas uma aba especifica de diversas planilhas? Poderia gravar um vídeo identificando a diferença do código?
Boa noite muito boa suas aulas, e se a planilha ja está aberta, e esta como somente leitura, da erro, tem algum comando para abrir mesmo aberto e copiar e fechar normal
Olá Goes. Você deve criar uma rotina para checar se a workbook já está aberta para evitar que ela seja aberta novamente. Não tenho aula sobre o tema mas acredito que se fizer uma busca na WEB encontrará fácil a rotina que verifica o status da workbook. Grato pela mensagem e por acompanhar os trabalhos!
Olá Tovato Nesta parte de copiar e colar (Selection.Copy Destination:=W.Cells(ttLinhas, 1).End(xlUp).Offset(1, 0)) como eu colocaria para colar apenas valores sem formação?
Professor Trovato , primeiramente obrigado pela aula mas no meu caso seria o contrario tenho varias planilhas separadas cada uma com um mês , eu gostaria de criar um código onde eu possa abrir essas 12 planilhas e cada planilha separar por abas em um novo excel, vc tem alguma aula onde ensina como fazer isso ?
Trovato, muito boa a sua aula, mas se eu desejasse importar múltiplas panilhas de múltiplas pastas, mas mantendo todas as planilhas separadas dentro de uma única pasta. Como faria?
Muito foda a aula. Trovato tem como na hora da importação desses dados colocar algum IF pra ele só me trazer determinado conteúdo das planilhas? Um espécie de filtro antes de gravar na planilha.
Parabéns pela aula!! Fiquei só com uma dúvida, invés de colar os dados da outra planilha imediatamente uma linha abaixo, como faço para colar na coluna seguinte?
Professor parabéns pelo conteudo. E se fosse necessário importar os dados de uma aba especifica, ex: em um arquivo eu preciso importar os dados da sheet 1 em outro da sheet 5 e assim por diante? desde já agradeço. abraço
Olá Robert! Esse é o conteúdo da aula de amanhã. A aula 166! Abraços. Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos! Espero que os mais de 550 vídeos tutorias que possuo atualmente (só de Excel são mais de 300!) possam lhe ajudar. Site com todos os vídeos dos cursos completos organizados: sigaonerd.esy.es/index.html Bons estudos e sucesso!
Obrigado Trovato! Estou inscrito no canal e estou acompanhando suas aulas. Elas são excelentes e trazem grandes benefícios a minha vida profissional. Estou ansioso para desvendar esse problema... Abraço
No caso, em vez de abrir o arquivo (application.Workbooks.Open aos 11min) ele já estivesse aberto, como faria pra setá-lo? Obrigado e parabéns pela aula.
Use esse comando: application.Workbooks(Numero que corresponde o arquivo ).Activate O numero que corresponde o arquivo é um indexador. Ele é a ordem em q o arquivo foi aberto. Por ex: se vc abriu dois arquivos, o primeiro terá indexador 1 e o segundo a ser aberto terá indexador 2.. Funciona igual as sheets.. dentro de um arquivo vc tem varias sheets.. sheets(1) ou Sheets("Plan1"). Espero que ajude
Olá Alessandro. Estou precisando fazer cálculos em uma planilha, utilizando dados de outra pasta, no VBA. Como faço para pegar esses dados para efetuar os cálculos. Obrigado
Oi Alessandro Trovato, Assisti à todas as aulas em que foi apresentado conteúdo similar. Gostaria de saber se há alguma forma de fazer isso sem selecionar as pastas, apenas retirando os dados dos workbooks fechados automaticamente (possivelmente ao abrir o arquivo de destino).
Olá Alexandre! Experimente tirando o sht.select ... Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos! Espero que os mais de 550 vídeos tutorias que possuo atualmente (só de Excel são mais de 315!) possam lhe ajudar. Site com todos os vídeos dos cursos completos organizados: sigaonerd.esy.es/index.html Bons estudos e sucesso!
Boa tarde Alessandro. Existe alguma aula sua falando sobre como habilitar referencias na guia ferramentas dentro do ambiente VBA? Não consigo habilitar, ou melhor, o Microsoft Outlook nem aparece para ser habilitado. "CreateObject("Outlook.Application")". se puder ajudar?! desde já agradeço.
Olá Ronaldo! Falo em diversas aulas como ativar as referências mas não consigo te indicar uma específica. Só de VBA são 165 aulas... Vou tentar gravar alguma coisa específica sobre o tema. Grato! Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos! Espero que os mais de 530 vídeos tutorias que possuo atualmente (só de Excel são mais de 300!) possam lhe ajudar. Site com todos os vídeos dos cursos completos organizados: sigaonerd.esy.es/index.html Bons estudos e sucesso!
Olá Embelleze na mídia! Que link está tentando baixar? Da planilha da aula? Ou do meu antigo domínio o SigaONerd? Todo o material de download foi transferido para www.alessandrotrovato.com.br na seção de downloads. Procure na aba "Aulas Diversas" Bons estudos!
Olá Dhionatas! Esse é um commandbutton que adicionei antes de iniciar a aula. Na playlist de macros e VBA há aulas que ensinam como criar botões como esse. Site: sigaonerd.esy.es/index.html
Boa tarde Alessandro. Tenho feito suas aulas aqui no youtube. Melhor estraga amigo. Enfim, e gostaria de perguntar se existe em alguma delas explicações suas sobre como criar uma macro para o excel enviar email pelo outlook ou qualquer outro email. Estou nessa busca. Criar um dispositivo onde caso a celula selecionada não esteja com uma porcentagem desejada ele seja capaz de enviar um email ao meu fornecedor com uma mensagem pronta. desde ja agradeço.
Alessandro Trovato fiquei com uma dúvida No comando destination não foi preciso declarar a workbook, apenas a worksheet com a variável w. se a pasta de trabalho, arquivo 1 por exemplo, tivesse a sheet nomeada igual a variável w ( Plan1) daria erro ??
Olá Bruno! Neste caso observe que defini a variável W como sendo minha planilha principal. Esta variável já estava indicando a pasta de trabalho que eu desejava como destino. Se tivéssemos várias workbooks abertas então seria recomendado também declarar a workbook. Abraços e obrigado por acompanhar os trabalhos
Alessandro, parabéns pela aula. Gostaria de tirar uma dúvida: como faria para trazer nessa importação o nome da planilha na frente dos dados importados sendo essas planilhas cada uma com um nome.
Se eu quiser selecionar apenas uma aba especifaca de cada arquivo (essa aba tem o mesmo nome em todos arquivos selecionados) como eu faco? tem que alterar a "Each "?
Ótima aula professor! Sou iniciante no Excel VBA, tentei fazer esse seu código no meu projeto só que deu Erro em tempo de execução '9' Subscrito fora do intervalo. Como eu posso resolver isso? Caso quiera eu posso te mandar o meu projeto pelo email pra vc me mostrar como corrigir isso.
Felipe, grato pela sua mensagem e por acompanhar as aulas. Não presto consultorias particulares ou suporte para as dúvidas aqui do UA-cam, infelizmente não dá para dar suporte a todas as mensagens que recebo diariamente devido as minha atividades. Baixe a planilha de gabarito que está disponível no meu site para verificar o código e onde está o erro. Acredito que vá ajudar: www.alessandrotrovato.com.br Bons estudos.
@@AlessandroTrovato , vou te mandar aqui o meu código. Só queria que me ajuda-se a quando eu executar ele ele não copiar por cima e sim na ultima celula vazia. segue código Private Sub OMPORTAR1_Click() Dim caminho As Variant Dim este As Workbook, outro As Workbook caminho = Application.GetOpenFilename If caminho = False Then Exit Sub Workbooks.Open caminho, , True Set este = ThisWorkbook Set outro = ActiveWorkbook Application.DisplayAlerts = False outro.Sheets(1).Range("a1").CurrentRegion.Copy Dim Linha As Double Planilha2.Range("A1").PasteSpecial outro.Close False End Sub
Felipe, o recurso que quer está na aula em questão e em outros vídeos que gravei. Basta utilizar o comando offset: Planilha2.Range("A1").offset(1,0).PasteSpecial
Alessandro, pra mim esta acontecendo um erro chato no código Selection.Copy Destination:=W.Cells("G10") Aparece uma mensagem dizendo "Erro no tempo de execução '5' - Argumento ou chamada de procedimento invalida" Não estou conseguindo solucionar esse erro.
Olá RDX. Tente substituir o selection pela range que está sendo copiada. Deve ajudar... Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos! Espero que os mais de 630 vídeos tutorias que possuo atualmente (só de Excel são mais de 320!) possam lhe ajudar. Site com todos os vídeos dos cursos completos organizados: sigaonerd.esy.es/index.html Bons estudos e sucesso!
Galera eu estou aplicando essa macro porém eu precisaria modificar uma coisa e não estou conseguindo No destination eu precisaria colar valores, pois na origem ele está com fórmula, porém tentei usar .pastespecial mas não deu certo
Depois de colar os dados, converta-os para valores usando algo como: activesheet.usedrange.value = activesheet.usedrange.value Isso elimina as fórmulas rapidamente.
Como seria se fosse automatizado? Clicasse no botão e ele realize o caminho automático se precisar selecionar manualmente. Eu vou compartilhar essa planilha para outros usuários para consolidar ou importar. Mas que a planilha reconheça o caminho automático
De uma outra forma. Espero que ajude: Dim NewBook As Workbook Dim W As Worksheet Dim Arquivos() As Variant Dim UltiCell As Range Set W = Plan1 Arquivos = Application.GetOpenFilename(",*.xlsx;*xlsm", , , , True) For Each posicao In Arquivos
Set UltiCell = W.Range("A1048576").End(xlUp).Offset(1, 0) Application.Workbooks.Open (posicao)
For a = 1 To Worksheets.Count Set UltiCell = W.Range("A1048576").End(xlUp).Offset(1, 0) ActiveWorkbook.Sheets(a).UsedRange.Copy Destination:=W.Cells(UltiCell.Row, 1) Next a
Sensacional Victhor suas contribuições. Não estou tendo muito tempo para comentar, mas tenho acompanhado sua dedicação e contribuição. Grande abraço e um ótimo final de semana!
![[Excel] Power Query - Atualização Automática de arquivos - Gaste Seu Tempo com o que Importa](http://i.ytimg.com/vi/tUgvtaR0RB4/mqdefault.jpg)
Muito bom, melhor explicado impossível
Muito obrigado Jefferson pelo feedback. Fico muito feliz que tenha gostado. Grande abraço e bons estudos!
grande Trovato...
q conteúdo bom ....
o Excel e uma ferramenta incrível todos os dias estamos apreendendo alguma coisa!!
vc me ajuda muito com esses vídeos não sei nem como agradecer ...
forte abraço!
Fico muito grato Rodrigo pela mensagem e saber que o conteúdo te ajuda! Grande abraço e espero que encontre ainda muito material de estudos por aqui!
Parabéns meu irmão! Vc nao tem idéia do quanto me ajuda com suas aulas. Sensacional
Fico muito feliz em saber que as aulas estão te ajudando Leonardo ! Grande abraço.
Excelente a aula. Facilita muito a consolidação de bancos de dados separados. Vou aguardar a próxima aula para aprender a importar regiões específicas
Obrigado pelo vídeo, Muito bom!!
Fico muito feliz que tenha gostado Yago!
Super aula MVP_TROVATO ......!!!
Muito obrigado pela mensagem Jeferson! Fiquei muito feliz com o prêmio! Abraços...
Ótima aula Alessandro. Me ajudou muito. Obrigado
Que recurso incrível! tenho um arquivo com 30 abas, e pra juntar em uma única, era CRL+C e CRL+V uma por uma. Agora vou usar esse recurso, vai ser muito rápido. Parabéns professor!
Parabéns Alessandro, muito obrigado pelos seus conhecimentos
Olá Evandson! É um grande prazer poder compartilhar um pouco do que sei. Grande abraço!
Ótima esta aula e explicação!!
Parabéns Alessandro..
Muito obrigado Joaquim pelo feedback! Grande abraço!
Grande camarada
Diferente de todas aulas que vi. Top professor! Parabéns pelo título: mais que merecido.
Fico muito feliz que tenha gostado Thiago! Tenho atualmente mais de 890 aulas publicadas no UA-cam e espero que ainda encontre muito material de estudos por aqui.
Muito bom Alessandro, parabéns pelo título e pelas aulas!! São excepcionais!
Muito obrigado Helloween!!!! Pelo visto você também curte essa incrível banda. Já assisti 5 shows ao vivo deles e inclusive o último, o Pumpkin United. Grande abraço!!!!
Alessandro, Parabens pelo trabalho encontrei este canal com este conhecimento estou aprendendo bastante. Sucesso.
Professor top a aula eu estou comecando a aprender vba e estou impressionado
Excelente trabalho!!!!
Hoje estava manipulando a aula 74, em algumas planilhas não funcionou, vou usar essa programação e estudar mais.
Obrigado.
Parabéns por mais essa grande aula!!!
Parabéns pelo conteúdo. Professor, o senhor tem algum vídeo onde explica como abrir uma outra planilha, varrer uma determinada coluna e trazer uma informação com critérios? Basicamente seria um PROCV no VBA.
Olá *Alessandro Trovato..*
Belo conteúdo na qual nos possibilita ter *insights* para a aplicarmos em nossos projetos.
No mais vídeo compartilhado nas minhas redes sociais: *G+* ; *Twitter* e *Linkedln*
Grato,
*Marcelo Adriano*
Muito obrigado Marcelo! Você é também um grande incentivador pois compartilha bastante nossos trabalhos!
Grande abraço e muito sucesso para você!
O melhor!
Muito obrigado pelo feedback Edilson! Grande abraço.
Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos!
Espero que os mais de 660 vídeos tutorias que possuo atualmente (só de Excel são mais de 320!) possam lhe ajudar.
Site com todos os vídeos dos cursos completos organizados: sigaonerd.esy.es/index.html
Site com meus cursos com certificados: cursos.alessandrotrovato.com.br
Bons estudos e sucesso!
Imagina. Já indiquei este canal a vários amigos da faculdade. O conteúdo é sensacional.
Mas, aproveito este comentário para tirar uma dúvida: preciso extrair e unificar em arquivo(txt) textos variados e sem padrões que estão em arquivos .doc, .txt e .trf. Ao fazer isso com os modelos disponíveis no seu blog, a informação não vem completa e/ou com caracteres especiais por conta dos espaços. Teria como me ajudar nisso ou fazer uma vídeo aula explicando? Um forte abraço! Sucesso!
Olá Edilson. Já assistiu a aula que fiz sobre o tratamento de arquivos gerados pelos ERPs? Nessa aula você encontrará o conteúdo que deseja. E há outras aulas sobre extração avançada de textos. Deve ter umas 10 aulas no total.Bons estudos!
olá. tudo bem? parabens pelos trabalhos fantásticos. uma dúvida, se eu quiser colar apenas os valores nesse comando de destino que você deu, como faço? obrigado.
Ótima explicação como sempre! Professor e se a ideia é selecionar apenas uma aba especifica de diversas planilhas? Poderia gravar um vídeo identificando a diferença do código?
Boa noite muito boa suas aulas, e se a planilha ja está aberta, e esta como somente leitura, da erro, tem algum comando para abrir mesmo aberto e copiar e fechar normal
Olá Goes. Você deve criar uma rotina para checar se a workbook já está aberta para evitar que ela seja aberta novamente. Não tenho aula sobre o tema mas acredito que se fizer uma busca na WEB encontrará fácil a rotina que verifica o status da workbook. Grato pela mensagem e por acompanhar os trabalhos!
Olá Tovato
Nesta parte de copiar e colar (Selection.Copy Destination:=W.Cells(ttLinhas, 1).End(xlUp).Offset(1, 0)) como eu colocaria para colar apenas valores sem formação?
Ola, Poderia me ajuda.... nesse seu codigo tem como colocar pra copiar apenas as sheets de cada planilha que tenham o nome de "plan3" por exemplo ?
Professor Trovato , primeiramente obrigado pela aula mas no meu caso seria o contrario tenho varias planilhas separadas cada uma com um mês , eu gostaria de criar um código onde eu possa abrir essas 12 planilhas e cada planilha separar por abas em um novo excel, vc tem alguma aula onde ensina como fazer isso ?
Excelente aula.
Se eu desejasse importar apenas algumas células das planilhas, como seria a instrução?
Olá Claudio! Tenho aulas que ensinam a fazer isso. Dá uma olhada na playlist de Macros e VBA do site do meu catálogo: sigaonerd.esy.es/index.html
Trovato, muito boa a sua aula, mas se eu desejasse importar múltiplas panilhas de múltiplas pastas, mas mantendo todas as planilhas separadas dentro de uma única pasta. Como faria?
Bom dia...Se as planilhas estiverem salvas dentro do Sharepoint, como eu consigo abri-las ?
Muito foda a aula. Trovato tem como na hora da importação desses dados colocar algum IF pra ele só me trazer determinado conteúdo das planilhas?
Um espécie de filtro antes de gravar na planilha.
Olá Luan! Fiz duas aulas explicando como fazer isso. Nessa playlist ficará fácil de encontrar: sigaonerd.esy.es/index.html
Parabéns pela aula!!
Fiquei só com uma dúvida, invés de colar os dados da outra planilha imediatamente uma linha abaixo, como faço para colar na coluna seguinte?
Professor parabéns pelo conteudo.
E se fosse necessário importar os dados de uma aba especifica, ex: em um arquivo eu preciso importar os dados da sheet 1 em outro da sheet 5 e assim por diante?
desde já agradeço. abraço
Como copiar a formatação de uma planilha inteira(aba) para várias pastas de trabalho automaticamente?
♥♥♥
Que bom que gostou, obridado!
Excelente!
Como faço para que seja copiadas apenas as células de uma das planilhas das pastas de trabalho?
Olá Robert! Esse é o conteúdo da aula de amanhã. A aula 166! Abraços.
Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos!
Espero que os mais de 550 vídeos tutorias que possuo atualmente (só de Excel são mais de 300!) possam lhe ajudar.
Site com todos os vídeos dos cursos completos organizados: sigaonerd.esy.es/index.html
Bons estudos e sucesso!
Obrigado Trovato! Estou inscrito no canal e estou acompanhando suas aulas. Elas são excelentes e trazem grandes benefícios a minha vida profissional. Estou ansioso para desvendar esse problema...
Abraço
No caso, em vez de abrir o arquivo (application.Workbooks.Open aos 11min) ele já estivesse aberto, como faria pra setá-lo?
Obrigado e parabéns pela aula.
Use esse comando:
application.Workbooks(Numero que corresponde o arquivo ).Activate
O numero que corresponde o arquivo é um indexador. Ele é a ordem em q o arquivo foi aberto. Por ex: se vc abriu dois arquivos, o primeiro terá indexador 1 e o segundo a ser aberto terá indexador 2.. Funciona igual as sheets.. dentro de um arquivo vc tem varias sheets.. sheets(1) ou Sheets("Plan1"). Espero que ajude
Olá. Como faço para importar apenas uma planilha e a mesma contém células em branco?
Olá Alessandro. Estou precisando fazer cálculos em uma planilha, utilizando dados de outra pasta, no VBA. Como faço para pegar esses dados para efetuar os cálculos. Obrigado
Oi Alessandro Trovato,
Assisti à todas as aulas em que foi apresentado conteúdo similar. Gostaria de saber se há alguma forma de fazer isso sem selecionar as pastas, apenas retirando os dados dos workbooks fechados automaticamente (possivelmente ao abrir o arquivo de destino).
Olá Alexandre! Experimente tirando o sht.select ...
Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos!
Espero que os mais de 550 vídeos tutorias que possuo atualmente (só de Excel são mais de 315!) possam lhe ajudar.
Site com todos os vídeos dos cursos completos organizados: sigaonerd.esy.es/index.html
Bons estudos e sucesso!
Boa tarde Alessandro. Existe alguma aula sua falando sobre como habilitar referencias na guia ferramentas dentro do ambiente VBA? Não consigo habilitar, ou melhor, o Microsoft Outlook nem aparece para ser habilitado. "CreateObject("Outlook.Application")". se puder ajudar?! desde já agradeço.
Olá Ronaldo! Falo em diversas aulas como ativar as referências mas não consigo te indicar uma específica. Só de VBA são 165 aulas... Vou tentar gravar alguma coisa específica sobre o tema. Grato!
Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos!
Espero que os mais de 530 vídeos tutorias que possuo atualmente (só de Excel são mais de 300!) possam lhe ajudar.
Site com todos os vídeos dos cursos completos organizados: sigaonerd.esy.es/index.html
Bons estudos e sucesso!
Alessandro Trovato. Boa tarde Alessandro. Obrigado amigo. Essa foi só uma dificuldade q tive. Muito agradecido pela ajuda!!
Não consigo acessar o link dos códigos, o domínio não está funcionando.
Olá Embelleze na mídia! Que link está tentando baixar? Da planilha da aula? Ou do meu antigo domínio o SigaONerd?
Todo o material de download foi transferido para www.alessandrotrovato.com.br na seção de downloads. Procure na aba "Aulas Diversas"
Bons estudos!
Daonde saiu esse botão importar planilhas?
Por favor se tiver como me responder eu agradeço.
Olá Dhionatas! Esse é um commandbutton que adicionei antes de iniciar a aula. Na playlist de macros e VBA há aulas que ensinam como criar botões como esse.
Site: sigaonerd.esy.es/index.html
Boa tarde Alessandro. Tenho feito suas aulas aqui no youtube. Melhor estraga amigo. Enfim, e gostaria de perguntar se existe em alguma delas explicações suas sobre como criar uma macro para o excel enviar email pelo outlook ou qualquer outro email. Estou nessa busca. Criar um dispositivo onde caso a celula selecionada não esteja com uma porcentagem desejada ele seja capaz de enviar um email ao meu fornecedor com uma mensagem pronta. desde ja agradeço.
Alessandro Trovato fiquei com uma dúvida
No comando destination não foi preciso declarar a workbook, apenas a worksheet com a variável w.
se a pasta de trabalho, arquivo 1 por exemplo, tivesse a sheet nomeada igual a variável w ( Plan1) daria erro ??
Olá Bruno!
Neste caso observe que defini a variável W como sendo minha planilha principal. Esta variável já estava indicando a pasta de trabalho que eu desejava como destino. Se tivéssemos várias workbooks abertas então seria recomendado também declarar a workbook. Abraços e obrigado por acompanhar os trabalhos
Alessandro, parabéns pela aula. Gostaria de tirar uma dúvida: como faria para trazer nessa importação o nome da planilha na frente dos dados importados sendo essas planilhas cada uma com um nome.
Se eu quiser selecionar apenas uma aba especifaca de cada arquivo (essa aba tem o mesmo nome em todos arquivos selecionados) como eu faco? tem que alterar a "Each "?
Ótima aula professor! Sou iniciante no Excel VBA, tentei fazer esse seu código no meu projeto só que deu Erro em tempo de execução '9' Subscrito fora do intervalo. Como eu posso resolver isso? Caso quiera eu posso te mandar o meu projeto pelo email pra vc me mostrar como corrigir isso.
Felipe, grato pela sua mensagem e por acompanhar as aulas. Não presto consultorias particulares ou suporte para as dúvidas aqui do UA-cam, infelizmente não dá para dar suporte a todas as mensagens que recebo diariamente devido as minha atividades. Baixe a planilha de gabarito que está disponível no meu site para verificar o código e onde está o erro. Acredito que vá ajudar: www.alessandrotrovato.com.br
Bons estudos.
@@AlessandroTrovato , vou te mandar aqui o meu código. Só queria que me ajuda-se a quando eu executar ele ele não copiar por cima e sim na ultima celula vazia. segue código Private Sub OMPORTAR1_Click()
Dim caminho As Variant
Dim este As Workbook, outro As Workbook
caminho = Application.GetOpenFilename
If caminho = False Then Exit Sub
Workbooks.Open caminho, , True
Set este = ThisWorkbook
Set outro = ActiveWorkbook
Application.DisplayAlerts = False
outro.Sheets(1).Range("a1").CurrentRegion.Copy
Dim Linha As Double
Planilha2.Range("A1").PasteSpecial
outro.Close False
End Sub
Felipe, o recurso que quer está na aula em questão e em outros vídeos que gravei.
Basta utilizar o comando offset:
Planilha2.Range("A1").offset(1,0).PasteSpecial
Alessandro, pra mim esta acontecendo um erro chato no código Selection.Copy Destination:=W.Cells("G10")
Aparece uma mensagem dizendo "Erro no tempo de execução '5' - Argumento ou chamada de procedimento invalida"
Não estou conseguindo solucionar esse erro.
Olá RDX. Tente substituir o selection pela range que está sendo copiada. Deve ajudar...
Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos!
Espero que os mais de 630 vídeos tutorias que possuo atualmente (só de Excel são mais de 320!) possam lhe ajudar.
Site com todos os vídeos dos cursos completos organizados: sigaonerd.esy.es/index.html
Bons estudos e sucesso!
Galera eu estou aplicando essa macro porém eu precisaria modificar uma coisa e não estou conseguindo
No destination eu precisaria colar valores, pois na origem ele está com fórmula, porém tentei usar .pastespecial mas não deu certo
Depois de colar os dados, converta-os para valores usando algo como:
activesheet.usedrange.value = activesheet.usedrange.value
Isso elimina as fórmulas rapidamente.
Como seria se fosse automatizado? Clicasse no botão e ele realize o caminho automático se precisar selecionar manualmente.
Eu vou compartilhar essa planilha para outros usuários para consolidar ou importar. Mas que a planilha reconheça o caminho automático
De uma outra forma. Espero que ajude:
Dim NewBook As Workbook
Dim W As Worksheet
Dim Arquivos() As Variant
Dim UltiCell As Range
Set W = Plan1
Arquivos = Application.GetOpenFilename(",*.xlsx;*xlsm", , , , True)
For Each posicao In Arquivos
Set UltiCell = W.Range("A1048576").End(xlUp).Offset(1, 0)
Application.Workbooks.Open (posicao)
For a = 1 To Worksheets.Count
Set UltiCell = W.Range("A1048576").End(xlUp).Offset(1, 0)
ActiveWorkbook.Sheets(a).UsedRange.Copy Destination:=W.Cells(UltiCell.Row, 1)
Next a
ActiveWorkbook.Close savechanges:=False
Next posicao
Sensacional Victhor suas contribuições. Não estou tendo muito tempo para comentar, mas tenho acompanhado sua dedicação e contribuição.
Grande abraço e um ótimo final de semana!
@@AlessandroTrovato Eu quem agradeço, afinal hoje sei VBA graças ao seu canal!