@@CanalSGPAlguém saberia um código de vba que permita copiar a formatação de uma planilha inteira e colar em várias pastas de trabalho dentro de um mesmo diretório?
@@CanalSGPAlguém saberia um código de vba que permita copiar a formatação de uma planilha inteira e colar em várias pastas de trabalho dentro de um mesmo diretório?
Excelente sua aula, funcionou direitinho, só estou com 2 detalhes para resolver. 1. A planilha importada está indo a partir da segunda linha. 2. Algumas células estão com valor 0, ele não continua a busca de informações até a última linha e coluna da planilha de origem.
Boa tarde, obrigado, como é um laço que vai parar quando encontrar uma célula vazia, não pode ter células vazias entre os dados da coluna que o laço está considerando.
@@CanalSGPAlguém saberia um código de vba que permita copiar a formatação de uma planilha inteira e colar em várias pastas de trabalho dentro de um mesmo diretório?
Muito bom e fácil de entender, como consigo acrescentar a informação de outra celula fora da tabela origem na linha da tabela destino, pichando juntamente com todas as informações.
Fenomenal, no meu caso eu queria sempre importar 3 colunas específicas. Faço a exportação de um banco de dados do meu sistema mas ele coloca vários dados que não preciso, então queria importar os dados de 3 colunas somente.
Adorei...me salvou aqui no serviço para atualizar minhas dashboard. Apenas estou com dúvida : 1- Como importar as colunas até uma específica sempre ...pois o empty na origem, para na última coluna com dado, mas tenho dados nas outras próximas. 2 - Minha planilha de origem vem com a última linha de sistema, como eliminar ela no destino?
Bom dia, pode definir manualmente a coluna final antes do código que traz os dados. Coluna = ColInicial ColFinal = 10 Para não trazer a última linha pode acrescentar mais dois no Loop, desta forma vai deixar uma linha de fora. Loop Until Guia.Cells(LinOrigem + 2, ColInicial).Value = Empty
Muito bom o seu método de explicar. Nos outros vídeos que u usei como exemplo funcionou tudo perfeitamente, mas neste específico eu devo ter digitado alguma coisa errada no código que está funcionando parcialmente, ele traz as informações faltando a primeira linha do arquivoimportado. O pior é que devo ter assistido umas 5 vezes parando o vídeo e conferindo, mas não consegui visualizar o erro de digitação.. Obrigado pelo vídeo .
@@CanalSGP Fiz outro comentário, desculpa não tinha visto a sua resposta. Realmente você acertou novamente, alterei o numero da linha inicial e funcionou perfeitamente. mais uma vez obrigado.
Excelente explicação! Conteúdo fantástico! Gostaria de saber se no canal possui um vídeo com as seguintes característica, possuo quase 3 mil planilhas, estou precisando atualizar todas elas, só uma coluna será atualizada. Existe uma forma onde consigo atualizar as 3 mil planilhas através de uma única planilha esboço? Grato...
Complementando o comentário anterior, fiz mais teste com outros arquivos. O código que eu digitei está identico e o erro só acontece quando o cabeçalho da planilha importada está na linha número 1, mas se estiver nas a partir da segunda o código funciona perfeitamente.
@@CanalSGPAlguém saberia um código de vba que permita copiar a formatação de uma planilha inteira e colar em várias pastas de trabalho dentro de um mesmo diretório?
ótima aula! caso eu queira inserir vários arquivos, qual alteração eu poderia fazer para selecionar uma pasta com todos os arquivos de dados ao invés de fazer 1 a 1?
Perfeito, só preciso de uma ajuda, não queria importar toda a planilha, um exemplo segundo a sua planilha seria, se eu quisesse importar somente a quantidade e o cliente, como faria?
Bom dia, talvez um if no laço for. For Coluna = ColInicial To ColFinal If Coluna = ColunaCliente Or Coluna = ColunaQtd Then .Cells(Linha, ColDestino).Value = Guia.Cells(LinOrigem, Coluna).Value ColDestino = ColDestino + 1 End If Next Coluna
Aula excelente! Só uma duvida tem como fazer com que a guia da planilha a ser importada fique interativa? E se essa guia possa ser escolhida através de uma caixa de texto assim que o código for executado?
Boa tarde, pode tentar adequar a linha de código a seguir. Set Guia = Planilha.Worksheets(1) Trocar por Dim Plan As Variant Plan = InputBox("Informe número da aba da planilha!", "IMPORTAR") Set Guia = Planilha.Worksheets(Plan)
cara, simplesmente incrivel, estou procurando mas ate agora não achei mas será que da pra selecionar várias planilhas de uma vez so no lugar do codigo da EnderecoPlan, ele pegar varias planilhas e ja ir jogando os dados delas, será que um for da pra fazer isso?
Muito bom seu conteúdo e canal. Parabéns.Por favor, existe alguma forma de automatizar para que todos os dias, em determinado horário, o excel faça a copia de dados de uma coluna para outra (sem a fórmula da coluna de origem)? Obrigado
@@CanalSGP Primeiramente, obrigado pela rápida resposta. Se vc achar que é possível e puder me ajudar, ficarei extremamente grato. Obrigado e um abraço.
@@CanalSGPAlguém saberia um código de vba que permita copiar a formatação de uma planilha inteira e colar em várias pastas de trabalho dentro de um mesmo diretório?
Olá, ótima explicação! No entanto estou com um problema. A minha base tem 50 colunas porém o código só está importando dados das primeiras 15 colunas - o que poderia fazer diferente? Acredito que o problema esteja em dados vazios na base
Opa, deu quase tudo certo, mas o meu código está tendo dificuldade para abrir a planilha, porém quando estou com a planilha a ser importada aberta ele consegue. Testando o código ele chega no primeiro If e acaba. Vídeo muito bom, obrigado
Boa tarde, obrigado, talvez o cabeçalho não esteja dentro da área que foi definida para procura dos dados. Solicite a planilha de exemplo nos contatos do site do canal, link na descrição do vídeo.
2 года назад
Parabéns pelo canal! Show de bola, gostei muito dessa aula, ótima didática, fácil de entender, mas minha dúvida é que em uma planilha tenho uma célula que é interativa me mostrando quando uma sala está ocupada, muda de acordo com a data, quando está verde não tem nada no banco de dados, mas quando está vermelha gostaria que ela buscasse algumas informações como nome da pessoa por exemplo, lá na linha do banco de dados em outra aba, como posso fazer isso?
@@CanalSGPAlguém saberia um código de vba que permita copiar a formatação de uma planilha inteira e colar em várias pastas de trabalho dentro de um mesmo diretório?
@@CanalSGP teria um pelo menos para eu abrir e fechar uma planilha e depois automaticamente passar para a próxima? Ou algum que eu pudesse selecionar as planilhas que iriam receber a formatação?
Olá, vi ali no site as suas planilhas e não achei a que eu preciso que é a formação de preços de um produto que será colocado a venda num site de vendas? O SR FARIA uma planilha para mim personalizada?
Cara sensacional esse código vai me ser muito útil. Mas eu queria uma coisinha a mais e queria ver se vc pode me ajudar. Eu queria que a cada linha que o código puxa uma informação o código inserisse uma coluna a mais pra inserir uma informação da planilha de origem de onde foi retirada a informação. Queria ver se poderia me ajudar nisso.
Bom dia, obrigado, para salvar mais informações não precisa inserir coluna, se for após a última coluna com dados, basta salvar na mesma linha, mas especificando a numeração da coluna.
Parabéns pelas dicas. Preciso de ajuda para resolver o seguinte problema: Escrevi um código vba que abre outra planilha para coletar dados. Só que essa planilha tem um código que faz abrir um form de aviso na tela quando a planilha é aberta. Para conseguir fazer a coleta de dados eu preciso fechar manualmente este form. Eu gostaria que o meu código vba fechasse esse form para eu não precisar fazer nada manualmente. Sabe como resolver isso?
Boa tarde, obrigado, talvez seja o caso de importar sem abrir a outra planilha, segue link de vídeo explicativo. ruclips.net/video/-NM5W5DqOiY/видео.html
oi Amigo, tenho uma planilha com várias abas. Cada aba contem a mesma estrutura de preenchimento de dados. Gostaria que em uma aba eu pudesse visualizar as informações de todas as demais. É possível? Como seria? abc
Cara, muito legal essa aula de VB. Excelente trabalho. Mas preciso da sua ajuda, fiz exatamente como você explica no vídeo e estou tomando o erro 438: O objeto não aceita esta propriedade ou método, neste trecho do código. O depurador aponta para a linha .Cells(Linha, ColDestino).Value = Guia.Celss(LinOrigem, Coluna).Value With Planilha13 Do LinOrigem = LinOrigem + 1 For Coluna = ColInicial To ColFinal .Cells(Linha, ColDestino).Value = Guia.Celss(LinOrigem, Coluna).Value ColDestino = ColDestino + 1 Next Coluna ColDestino = 2 Linha = Linha + 1 Loop Until Guia.Cells(LinOrigem, ColInicial).Value = Empty
Bom dia, verifique se colocou a letra d em caixa baixa em todos os lugares que tem a variável Coldestino. .Cells(Linha, ColDestino).Value = Guia.Cells(LinOrigem, Coluna).Value 'No vídeo
professor, uma dúvida nao consegui fazer de uma forma: tenho uma planilha padrao e queria puxar dados de outra(base), porém os campos da padrao tem titulos diferentes da base.
Preciso de uma dica de como fazer o seguinte no meu serviço Diariamente eu recebo de um outro setor uma planilha com os clientes de agendamento de entregas .Queria saber se tem como eu automatizar essa planilha diária com a minha
@@CanalSGP massa demais. Mais uma pergunta. O arquivo que eu quero importar, contém muitas colunas, porém, ao importar, eu quero que ele carregue os dados apenas de algumas colunas. É possível fazer isso?
Olá professor. Estou com um problema onde o código está copiando a informação de duas linhas abaixo do meu cabeçalho. Ao invés de uma linha baixo. Não consigo achar a solução. Pode me ajudar?
Tentei fazer conforme o que foi passado no código, mas segundo a minha planilha de origem, seria necessário executar o código de forma a importar os dados de células bem específicas e salvar na planilha de destino referenciando as células sequencialmente.
Oi, amigo. tô com um problema e já procurei todos os técnicos possíveis. tenho 2 planilhas com nomes de clientes. uma tem algumas informações e a outras tem as informações complementares com adição de mais algumas clientes. como posso mesclar as duas sem repetir os nomes dos clientes e sem apagar os dados da outra ? Queria que ficasse somente uma planilha
Professor, Boa tarde, não tem nenhuma função ou formula no excel que faça isto? Queria copiar o valor automaticamente sem que fique o vinculo, pois distribuo em meses, se eu mudar na tabela padrão, não mudaria em nos meses anteriores. Procv e Procx não me ajudaram, pois ele mantem o vinculo e quando mudo na matriz, muda em todos os meses alterando as somas anteriores.
Oi bom dia, como eu faço para que ao importador dados de uma segunda tabela, as células a serem preenchidas fiquem duas linhas após a ultima célula preenchida do import da primeira tabela? Deu pra entender? Ex: importei os primeiros dados, ok! ai vou importar dados de uma segunda tabela, eu não quero que os dados da segunda tabela, fique imediatamente após os dados da primeira, quero que pule duas linhas e depois preencha. Me ajuda por favor?
Bom dia, segue exemplo, com base na planilha do vídeo para alterar a variável linha. If Planilha1.Range("B4").Value = Empty Then Linha = WorksheetFunction.CountA(Planilha1.Range("B:B")) + 3 Else Linha = WorksheetFunction.CountA(Planilha1.Range("B:B")) + 5 End If
@@CanalSGP deu certo em partes, quando exporto o segundo dado, ele pula as linhas que quero, mas no terceiro importe ele não pula mais. Eu vou importar dados todos os dias então preciso que a cada importe, seja pulado esse mesmo tanto de linha. Obrigada por responder.
Olá, tudo bem? Consegui executar o seu código e fica toda vez aparecendo o erro antes de puxar meus dados, como resolver isso? E outra coisa, a partir desse código eu consigo puxar apenas colunas específicas da planilha que eu quero importar? Pois tem algumas colunas que não me interessam importar. Grato pelo vídeo!
@@CanalSGP Consegui resolver. Agora reparei que esse VBA ele puxar todos os dados, tem como fazer para puxar somente as colunas que eu queira? Pois no trabalho tenho uma planilha padrão da empresa que tem muitas informações que meu setor não usa e queria automatizar isso.
@@CanalSGP No meu trabalho, todo dia eu preciso transferir linhas com uma palavra especifica para outra planilha, para que outro setor trabalhe com ela. Estou tentando criar um código, onde todo dia eu clique no botão e as linhas com a palavra Reclassified na coluna h, copie automaticamente para outra planilha (Que eles usam) e acumule com o que já está lá. Não pode subscrever, tem que vir na linha abaixo. Criei o código me espelhando no seu otimo trabalho, mas ele da erro de 'subscrito fora de intervalo' nos meus testes, parece não encontrar a planilha, erro na linha onde coloco as planilhas de origem e destino. Ja renomeei diversas vezes e nada, deixei o nome como origem e destino até, pra não confundir.
@@CanalSGP Estou com esse mesmo erro, os valores aparecem Linha=0 , ColDestino=0, LinOrigem=6 e Coluna=1 sou iniciante em VBA , não faço ideia de por onde começar a resolver
ub Importar_Dados() On Error GoTo Erro Application.ScreenUpdating = False Dim Guia As Object Dim Planilha As Workbook Dim EnderecoPlan As String Dim Coluna As Double, Linha As Double, ColDestino As Double Dim ColInicial As Double, ColFinal As Double, LinOrigem As Double EnderecoPlan = Application.GetOpenFilename(FileFilter:="file, *.xls*") If EnderecoPlan Empty And EnderecoPlan "Falso" Then Set Planilha = Application.Workbooks.Open(EnderecoPlan) Else Application.ScreenUpdating = True Exit Sub End If Set Guia = Planilha.Worksheets(1) Windows(Planilha.Name).Visible = False Coluna = 1 Lin = 1 Inicio: Do
Linha = Linha + 1
If Guia.Cells(Linha, Coluna).Value Empty Then LinOrigem = Linha ColInicial = Coluna
Do Coluna = Coluna + 1 Loop Until Guia.Cells(Linha, Coluna).Value = Empty
ColFinal = Coluna - 1 Exit Do End If
If Coluna = 100 Then MsgBox "Não encontrado cabeçalho!", vbExclamation, "IMPORTAR" Exit Sub End If
Loop Until Linha = 10 If LinOrigem = Empty Then Coluna = Coluna + 1 Linha = 1 GoTo Inicio: End If Coluna = ColIncial ColDestino = 2 Linha = WorksheetFunction.CountA(Planilha1.Range("B:B")) + 3 With Planilha1 Do LinOrigem = LinOrigem + 1
For Coluna = ColInicial To ColFinal .Cells(Linha, ColDestino).Value = Guia.Cells(LinOrigem, Coluna).Value ColDestino = ColDestino + 1 Next Coluna
ColDestino = 2 Linha = Linha + 1
Loop Until Guia.Cells(LinOrigem, ColInicial).Value = Empty End With Windows(Planilha.Name).Visible = True Application.DisplayAlerts = False Windows(Planilha.Name).Close Application.DisplayAlerts = True Set Planiha = Nothing Set Guia = Nothing Application.ScreenUpdating = True Exit Sub Erro: MsgBox "Erro!", vbCritical, "IMPORTAR" End Sub
Boa tarde, fiz este teste em alguns vídeos e o resultado não foi favorável. Gera dúvidas devido falta de entendimento do código e se colocar link para baixar os códigos o alcance do vídeo no RUclips é prejudicado. Sem contar que pode ser contra as regras do RUclips, spam, etc.
@@CanalSGP É que estou procurando alguém que ensine isso, porque até agora não achei nenhum vídeo ensinando isso. Achei um que ativava ao digitar, mas não ensinava passar o arquivo pra outro layout. Um que gostei ele passava os dados organizando por linhas, foi o que gostei, só que ficar apertando toda hora o botão cansa pois sempre estou fazendo outras coisas. Os dados que recebo é online e sempre desaparecem quando chega num limite e eu queria grava-los por isso queria que quando eles aparecessem fossem salvos organizados em outra planilha. Sei que é possível pois já vi uma pessoa usando esse método, mas não consegui informação.
@@CanalSGP Então consegui fazer o looping, mas ele não copia os dados onde tem função, não sei se há outro modo. Eu coloquei pra ativar a macro através do looping da célula de quando ela modificasse automaticamente, mas não ativou. Coloquei pra ativar por on time, mas algumas vezes ela repete o que já foi copiado, então fica complicado. Tem um site que apresenta uns códigos que diz copiar dados de células com fórmulas, mas não consegui fazer funcionar. Tive até pane no PC, ainda bem que tinha uma copia, pois o PC parou de abrir a planilha. Foram 8 planilhas perdidas. Fiz 25 copias e uns 50 testes, mas ainda não achei uma função de copiar células que modificam com o tempo.
Pra falar a verdade achei tudo munto confuso, você fez muitas voltas indo e voltando. Desculpe a sisceridade mais este tipo de video deixa qualquer pessoa mais confunsa ainda no processo. Me perdi diversas vezes da forma que foii feito esse vídeo.
Bom dia, se esta igual ao comentário tem erro de digitação. Loop Until Guia.Cells(Linha, Coluna).vale = Empty 'Errado Loop Until Guia.Cells(Linha, Coluna).value = Empty 'Correto
Simplesmente o deus do excel ajudando os pobres e necessitados.
Muito obrigado, nao sei quanto de tempo me salvou com essa automação
Que bom, sucesso em seus estudos.
@@CanalSGPAlguém saberia um código de vba que permita copiar a formatação de uma planilha inteira e colar em várias pastas de trabalho dentro de um mesmo diretório?
Top demais, estava batendo cabeça com uma adequação aqui para minha noiva e com sua vídeo aula consegui modelar o que precisava, muito boa a aula!
Obrigado
@@CanalSGPAlguém saberia um código de vba que permita copiar a formatação de uma planilha inteira e colar em várias pastas de trabalho dentro de um mesmo diretório?
Sua aula é fenomenal, parabéns pela didática e pelo trabalho! 😀
Obrigado, sucesso em seus estudos.
Excelente! Realmente é uma aula! Muito bem elaborada e facilmente compreendida! Parabéns!
Obrigado pelo elogio
Excelente explicação, muito didático. Parabéns!
Muito obrigado
Parabéns ótima explicação
Obrigado pelo elogio
Excelente sua aula, funcionou direitinho, só estou com 2 detalhes para resolver.
1. A planilha importada está indo a partir da segunda linha.
2. Algumas células estão com valor 0, ele não continua a busca de informações até a última linha e coluna da planilha de origem.
Boa tarde, obrigado, como é um laço que vai parar quando encontrar uma célula vazia, não pode ter células vazias entre os dados da coluna que o laço está considerando.
Parabéns pelo trabalho, vídeo muito bem explicado. Fiz só uma mudança na variável planilha, mudei para "workbooks", ai não deu erro.
Obrigado.
CARA!!!!!!! SHOW DE BOLAAAA!!!!! GOSTEI MUITO. Muito obrigado pelo compartilhamento.
Obrigado
@@CanalSGPAlguém saberia um código de vba que permita copiar a formatação de uma planilha inteira e colar em várias pastas de trabalho dentro de um mesmo diretório?
Excelente conteúdo, me ajudou bastante! Muito obrigado.
Que bom que ajudou
Muito bom e fácil de entender, como consigo acrescentar a informação de outra celula fora da tabela origem na linha da tabela destino, pichando juntamente com todas as informações.
Bom dia, obrigado, como se trata de outra informação, talvez seja o caso de fazer outra macro separada e acionar no final da macro de importação.
show! tenho que estudar essa trabalho
Obrigado
Fenomenal, no meu caso eu queria sempre importar 3 colunas específicas. Faço a exportação de um banco de dados do meu sistema mas ele coloca vários dados que não preciso, então queria importar os dados de 3 colunas somente.
Bom dia, obrigado, pode tentar limitar a quantidade de colunas com Ifs.
Adorei...me salvou aqui no serviço para atualizar minhas dashboard. Apenas estou com dúvida :
1- Como importar as colunas até uma específica sempre ...pois o empty na origem, para na última coluna com dado, mas tenho dados nas outras próximas.
2 - Minha planilha de origem vem com a última linha de sistema, como eliminar ela no destino?
Bom dia, pode definir manualmente a coluna final antes do código que traz os dados.
Coluna = ColInicial
ColFinal = 10
Para não trazer a última linha pode acrescentar mais dois no Loop, desta forma vai deixar uma linha de fora.
Loop Until Guia.Cells(LinOrigem + 2, ColInicial).Value = Empty
Ficou excelente, parabens! Como faço pra importar colunas especificas com dados para a minha outra planilha?
Boa tarde, obrigado, talvez com condições if para desviar as colunas que não deseja copiar.
Muito bom o seu método de explicar. Nos outros vídeos que u usei como exemplo funcionou tudo perfeitamente, mas neste específico eu devo ter digitado alguma coisa errada no código que está funcionando parcialmente, ele traz as informações faltando a primeira linha do arquivoimportado.
O pior é que devo ter assistido umas 5 vezes parando o vídeo e conferindo, mas não consegui visualizar o erro de digitação..
Obrigado pelo vídeo .
Boa tarde, pode ser o número da linha inicial nas variáveis linha.
@@CanalSGP Fiz outro comentário, desculpa não tinha visto a sua resposta. Realmente você acertou novamente, alterei o numero da linha inicial e funcionou perfeitamente. mais uma vez obrigado.
De nada.
Excelente explicação! Conteúdo fantástico!
Gostaria de saber se no canal possui um vídeo com as seguintes característica, possuo quase 3 mil planilhas, estou precisando atualizar todas elas, só uma coluna será atualizada.
Existe uma forma onde consigo atualizar as 3 mil planilhas através de uma única planilha esboço?
Grato...
Bom dia, obrigado, infelizmente não sei de código para fazer uma tarefa complexa assim.
@@CanalSGP Muito obrigado pelo retorno!
Complementando o comentário anterior, fiz mais teste com outros arquivos. O código que eu digitei está identico e o erro só acontece quando o cabeçalho da planilha importada está na linha número 1, mas se estiver nas a partir da segunda o código funciona perfeitamente.
Bom dia, pode ser falha no código que procura pelo cabeçalho.
@@CanalSGPAlguém saberia um código de vba que permita copiar a formatação de uma planilha inteira e colar em várias pastas de trabalho dentro de um mesmo diretório?
ótima aula! caso eu queira inserir vários arquivos, qual alteração eu poderia fazer para selecionar uma pasta com todos os arquivos de dados ao invés de fazer 1 a 1?
Bom dia, obrigado, não tentei fazer com mais de um arquivo ainda.
@@CanalSGP tem alguma sugestão para realizar isso?
Perfeito, só preciso de uma ajuda, não queria importar toda a planilha, um exemplo segundo a sua planilha seria, se eu quisesse importar somente a quantidade e o cliente, como faria?
Bom dia, talvez um if no laço for.
For Coluna = ColInicial To ColFinal
If Coluna = ColunaCliente Or Coluna = ColunaQtd Then
.Cells(Linha, ColDestino).Value = Guia.Cells(LinOrigem, Coluna).Value
ColDestino = ColDestino + 1
End If
Next Coluna
@@CanalSGP chique!
muitissimo obrigado
De nada.
Da pra importar ou copiar ou fazer download de planilha do excel online com exportação desativada para leitor ???
Boa noite, o procedimento deste vídeo é apenas para Excel desktop, o vba não funciona para o Excel online.
Aula excelente!
Só uma duvida tem como fazer com que a guia da planilha a ser importada fique interativa? E se essa guia possa ser escolhida através de uma caixa de texto assim que o código for executado?
Boa tarde, pode tentar adequar a linha de código a seguir.
Set Guia = Planilha.Worksheets(1)
Trocar por
Dim Plan As Variant
Plan = InputBox("Informe número da aba da planilha!", "IMPORTAR")
Set Guia = Planilha.Worksheets(Plan)
cara, simplesmente incrivel, estou procurando mas ate agora não achei mas será que da pra selecionar várias planilhas de uma vez so no lugar do codigo da EnderecoPlan, ele pegar varias planilhas e ja ir jogando os dados delas, será que um for da pra fazer isso?
Boa tarde, obrigado, acredito que sim, pode referenciar as planilhas em variáveis e ir trocando de planilha.
Muito bom seu conteúdo e canal. Parabéns.Por favor, existe alguma forma de automatizar para que todos os dias, em determinado horário, o excel faça a copia de dados de uma coluna para outra (sem a fórmula da coluna de origem)? Obrigado
Boa tarde, obrigado, não tentei algo assim ainda.
@@CanalSGP Primeiramente, obrigado pela rápida resposta. Se vc achar que é possível e puder me ajudar, ficarei extremamente grato. Obrigado e um abraço.
Bom dia, no Google Planilhas até pode ser possível, mas no Excel pelo menos não sei.
@@CanalSGPAlguém saberia um código de vba que permita copiar a formatação de uma planilha inteira e colar em várias pastas de trabalho dentro de um mesmo diretório?
Olá, ótima explicação!
No entanto estou com um problema. A minha base tem 50 colunas porém o código só está importando dados das primeiras 15 colunas - o que poderia fazer diferente? Acredito que o problema esteja em dados vazios na base
Boa tarde, onde tem ColFinal pode colocar o número da coluna.
Excelente, como seria se quisesse adicionar os dados de várias guias da mesma planilhas? Você consegue dar um exemplo em cima desse mesmo código?
Bom dia, obrigado, não fiz exemplo assim ainda, mas se for dados padrão em todas as abas, acredito ser possível.
Opa, deu quase tudo certo, mas o meu código está tendo dificuldade para abrir a planilha, porém quando estou com a planilha a ser importada aberta ele consegue.
Testando o código ele chega no primeiro If e acaba.
Vídeo muito bom, obrigado
Boa tarde, obrigado, talvez o cabeçalho não esteja dentro da área que foi definida para procura dos dados. Solicite a planilha de exemplo nos contatos do site do canal, link na descrição do vídeo.
Parabéns pelo canal! Show de bola, gostei muito dessa aula, ótima didática, fácil de entender, mas minha dúvida é que em uma planilha tenho uma célula que é interativa me mostrando quando uma sala está ocupada, muda de acordo com a data, quando está verde não tem nada no banco de dados, mas quando está vermelha gostaria que ela buscasse algumas informações como nome da pessoa por exemplo, lá na linha do banco de dados em outra aba, como posso fazer isso?
Boa tarde, obrigado, não fiz algo semelhante ainda, talvez uma pesquisa com condições if.
@@CanalSGPAlguém saberia um código de vba que permita copiar a formatação de uma planilha inteira e colar em várias pastas de trabalho dentro de um mesmo diretório?
Boa tarde, infelizmente até o momento não sei de código neste sentido.
@@CanalSGP teria um pelo menos para eu abrir e fechar uma planilha e depois automaticamente passar para a próxima? Ou algum que eu pudesse selecionar as planilhas que iriam receber a formatação?
Olá, vi ali no site as suas planilhas e não achei a que eu preciso que é a formação de preços de um produto que será colocado a venda num site de vendas? O SR FARIA uma planilha para mim personalizada?
Bom dia, com planilhas personalizadas não trabalho mais.
Cara sensacional esse código vai me ser muito útil. Mas eu queria uma coisinha a mais e queria ver se vc pode me ajudar. Eu queria que a cada linha que o código puxa uma informação o código inserisse uma coluna a mais pra inserir uma informação da planilha de origem de onde foi retirada a informação. Queria ver se poderia me ajudar nisso.
Bom dia, obrigado, para salvar mais informações não precisa inserir coluna, se for após a última coluna com dados, basta salvar na mesma linha, mas especificando a numeração da coluna.
professor.. quer importar varias planinhas, como fazer... elas estao na mesma pasta da planilha princinpal, porem com nomes diferentes?
Boa noite, não tentei fazer código assim ainda.
Professor, segui todo esse tutorial e funcionou. Mas não consigo alterar para por exemplo, copias colunas específicas.
Boa tarde, como esta macro utiliza Loop, vai ser mais complexo capturar apenas algumas colunas.
Parabéns pelas dicas. Preciso de ajuda para resolver o seguinte problema:
Escrevi um código vba que abre outra planilha para coletar dados. Só que essa planilha tem um código que faz abrir um form de aviso na tela quando a planilha é aberta. Para conseguir fazer a coleta de dados eu preciso fechar manualmente este form. Eu gostaria que o meu código vba fechasse esse form para eu não precisar fazer nada manualmente. Sabe como resolver isso?
Boa tarde, obrigado, talvez seja o caso de importar sem abrir a outra planilha, segue link de vídeo explicativo. ruclips.net/video/-NM5W5DqOiY/видео.html
@@CanalSGP Obrigado pelo apoio. Estou assistindo o vídeo e tentando adaptar para minha necessidade.
Hey mestre! Tem a possibilidade de ao invés de colar os valores em células, fazer a colagem em uma listview editável?
Boa tarde, colar na listview acredito que não, talvez carregar os dados utilizando um Loop.
oi Amigo, tenho uma planilha com várias abas. Cada aba contem a mesma estrutura de preenchimento de dados. Gostaria que em uma aba eu pudesse visualizar as informações de todas as demais. É possível? Como seria? abc
Bom dia, não tentei faze algo assim ainda, mas vou estudar se é possível fazer algo.
@@CanalSGP show, me ajuda nessa, mt obrigado!!!
@@CanalSGP Já tem algum vídeo aqui sobre isso? Estou precisando fazer o mesmo. Aliás, ótimo vídeo!! Obrigada.
adorei a aula, me encontro com um problema, não estou conseguindo copiar os dados da planilha de origem para o banco de dados
Boa noite, solicite a planilha de exemplo nos contatos do site do canal, link na descrição do vídeo.
Cara, muito legal essa aula de VB. Excelente trabalho.
Mas preciso da sua ajuda, fiz exatamente como você explica no vídeo e estou tomando o erro 438: O objeto não aceita esta propriedade ou método, neste trecho do código. O depurador aponta para a linha .Cells(Linha, ColDestino).Value = Guia.Celss(LinOrigem, Coluna).Value
With Planilha13
Do
LinOrigem = LinOrigem + 1
For Coluna = ColInicial To ColFinal
.Cells(Linha, ColDestino).Value = Guia.Celss(LinOrigem, Coluna).Value
ColDestino = ColDestino + 1
Next Coluna
ColDestino = 2
Linha = Linha + 1
Loop Until Guia.Cells(LinOrigem, ColInicial).Value = Empty
End With
Pode me ajudar, porfavor?
Bom dia, obrigado, na parte a seguir Guia.Celss(LinOrigem, Coluna).Value acredito que seja Guia.Cells(LinOrigem, Coluna).Value com dois ll
@@CanalSGP Cara, imaginei que seria algum erro que cometi, mas não estava enxergando. Apesar de estar na minha frente.
Muito obrigado!
De nada.
.Cells(Linha, Coldestino).Value = Guia.Cells(LinOrigem, Coluna).Value
erro 1004 tempo de execução ja no fim
o outro ja concertei muito obrigado
Bom dia, verifique se colocou a letra d em caixa baixa em todos os lugares que tem a variável Coldestino.
.Cells(Linha, ColDestino).Value = Guia.Cells(LinOrigem, Coluna).Value 'No vídeo
@@CanalSGP ajustei tudo para ficar igual e permanece
@@CanalSGP agradeço a atenção vou fazer novamente e vou tentar e te respondo mas agradeço muito sua ajuda
ganhou um inscrito
Obrigado.
Tem como realizar essa importação através de uma planilha de outra máquina, de forma online?
Boa noite, não tentei fazer isso ainda.
Olá! Temo como adicionar uma condição do tipo que ele reconheça que são dados repetidos e sobressai o valor já repetido ?
Bom dia, não tentei fazer lógica assim ainda.
professor, uma dúvida nao consegui fazer de uma forma: tenho uma planilha padrao e queria puxar dados de outra(base), porém os campos da padrao tem titulos diferentes da base.
Bom dia, talvez uma conexão de consulta seja mais fácil. ruclips.net/video/gMHZZRwEn3k/видео.html
Preciso de uma dica de como fazer o seguinte no meu serviço Diariamente eu recebo de um outro setor uma planilha com os clientes de agendamento de entregas .Queria saber se tem como eu automatizar essa planilha diária com a minha
Bom dia, talvez criar uma conexão de consulta entre os arquivos. ruclips.net/video/gMHZZRwEn3k/видео.html
Muito bom. E quando quero importar um arquivo . CSV e que os dados estejam separados por um caractere, tipo ; ou espaço. ,Como que faz?
Bom dia, obrigado, segue link de vídeo neste sentido. ruclips.net/video/aV0q4qx6Hy0/видео.html
@@CanalSGP massa demais. Mais uma pergunta. O arquivo que eu quero importar, contém muitas colunas, porém, ao importar, eu quero que ele carregue os dados apenas de algumas colunas. É possível fazer isso?
Boa noite, talvez colocar um if com as colunas que deseja carregar. Mas teste primeiro carregar todas, depois vai tentando ajustar.
Olá professor. Estou com um problema onde o código está copiando a informação de duas linhas abaixo do meu cabeçalho. Ao invés de uma linha baixo. Não consigo achar a solução. Pode me ajudar?
Boa tarde, pode ser que esteja referenciando o número da linha errada nas variáveis.
Tentei fazer conforme o que foi passado no código, mas segundo a minha planilha de origem, seria necessário executar o código de forma a importar os dados de células bem específicas e salvar na planilha de destino referenciando as células sequencialmente.
Bom dia, talvez colocar condições if para analisar as condições dentro do loop.
Oi, amigo. tô com um problema e já procurei todos os técnicos possíveis. tenho 2 planilhas com nomes de clientes. uma tem algumas informações e a outras tem as informações complementares com adição de mais algumas clientes. como posso mesclar as duas sem repetir os nomes dos clientes e sem apagar os dados da outra ? Queria que ficasse somente uma planilha
Bom dia, não fiz algo semelhante ainda, talvez utilizando o Power Query do Excel.
Professor, Boa tarde,
não tem nenhuma função ou formula no excel que faça isto? Queria copiar o valor automaticamente sem que fique o vinculo, pois distribuo em meses, se eu mudar na tabela padrão, não mudaria em nos meses anteriores. Procv e Procx não me ajudaram, pois ele mantem o vinculo e quando mudo na matriz, muda em todos os meses alterando as somas anteriores.
Boa tarde, infelizmente não sei de fórmula neste sentido.
@@CanalSGP Obrigado pela atenção professor, acho que vou tentar usar o conteúdo deste vídeo e adaptar para o que preciso.
De nada.
Bom dia professor poderia me tirar uma dúvida
Boa noite, qual a dúvida.
Como faria pra inserir o valor da célula A1 da coluna A da planilha 1 e inserir em todas as planilhas que estão no mesmo diretório?
Boa tarde, não fiz algo semelhante ainda, acredito que salvar em todas as planilhas seja um pouco complexo.
Oi bom dia, como eu faço para que ao importador dados de uma segunda tabela, as células a serem preenchidas fiquem duas linhas após a ultima célula preenchida do import da primeira tabela? Deu pra entender? Ex: importei os primeiros dados, ok! ai vou importar dados de uma segunda tabela, eu não quero que os dados da segunda tabela, fique imediatamente após os dados da primeira, quero que pule duas linhas e depois preencha. Me ajuda por favor?
Bom dia, segue exemplo, com base na planilha do vídeo para alterar a variável linha.
If Planilha1.Range("B4").Value = Empty Then
Linha = WorksheetFunction.CountA(Planilha1.Range("B:B")) + 3
Else
Linha = WorksheetFunction.CountA(Planilha1.Range("B:B")) + 5
End If
@@CanalSGP deu certo em partes, quando exporto o segundo dado, ele pula as linhas que quero, mas no terceiro importe ele não pula mais. Eu vou importar dados todos os dias então preciso que a cada importe, seja pulado esse mesmo tanto de linha. Obrigada por responder.
Bom dia, se a célula B4 for diferente de vazio, deveria pular.
Olá, tudo bem? Consegui executar o seu código e fica toda vez aparecendo o erro antes de puxar meus dados, como resolver isso? E outra coisa, a partir desse código eu consigo puxar apenas colunas específicas da planilha que eu quero importar? Pois tem algumas colunas que não me interessam importar. Grato pelo vídeo!
Boa tarde, qual erro está enfrentando.
@@CanalSGP aparece a mensagem "Erro!" A que configura no início do código
Retire a linha de código On Error Goto Erro e execute novamente para ver qual linha está errada.
@@CanalSGP Consegui resolver. Agora reparei que esse VBA ele puxar todos os dados, tem como fazer para puxar somente as colunas que eu queira? Pois no trabalho tenho uma planilha padrão da empresa que tem muitas informações que meu setor não usa e queria automatizar isso.
Bom dia, no lugar do asterisco informe as colunas que deseja carregar, separando as colunas por virgula.
E sem o cabeçalho ? do zero ? com faço mestre ?
Boa noite, teste alterar a variável Linha para o número da linha de cabeçalho dos dados.
Procurava exatamente isso, mas preciso puxar linha com palavra específica, poderia ajudar?
Boa noite, tem o procedimento da vídeo aula no link a seguir, talvez ajude. ruclips.net/video/ZqRnJs7BRLo/видео.html
@@CanalSGP No meu trabalho, todo dia eu preciso transferir linhas com uma palavra especifica para outra planilha, para que outro setor trabalhe com ela.
Estou tentando criar um código, onde todo dia eu clique no botão e as linhas com a palavra Reclassified na coluna h, copie automaticamente para outra planilha (Que eles usam) e acumule com o que já está lá. Não pode subscrever, tem que vir na linha abaixo.
Criei o código me espelhando no seu otimo trabalho, mas ele da erro de 'subscrito fora de intervalo' nos meus testes, parece não encontrar a planilha, erro na linha onde coloco as planilhas de origem e destino. Ja renomeei diversas vezes e nada, deixei o nome como origem e destino até, pra não confundir.
@@CanalSGP
Sub ImportarLinhas()
Dim planilhaOrigem As Worksheet
Dim planilhaDestino As Worksheet
Set planilhaOrigem = ThisWorkbook.Worksheets("Origem") Linhas do erro
Set planilhaDestino = ThisWorkbook.Worksheets("Destino")
ultimaLinhaDestino = planilhaDestino.Cells(Rows.Count, "H").End(xlUp).Row
For Each linha In planilhaOrigem.Range("A2:H" & planilhaOrigem.Cells(Rows.Count, "H").End(xlUp).Row)
If linha.Value = "Reclassified" Then
If WorksheetFunction.CountIf(planilhaDestino.Range("A2:H" & ultimaLinhaDestino), linha.Value) = 0 Then
linha.EntireRow.Copy Destination:=planilhaDestino.Cells(ultimaLinhaDestino + 1, 1)
ultimaLinhaDestino = ultimaLinhaDestino + 1
End If
End If
Next linha
End Sub
Boa tarde, não fiz algo assim ainda, mas copiando e colando vai ser difícil.
@@CanalSGP Sem problemas, mandei caso já tivesse feito algo assim e visse algum erro. Obrigado pela sua atenção.
Deu Erro de Obejct 1004 neste comando > .Cells(Linha, ColDestino).Value = Guia.Cells(LinOrigem, Coluna).Value
Boa tarde, quando o código parar neste ponto, pare o cursor sobre cada variável e veja se todas tem valores.
@@CanalSGP Estou com esse mesmo erro, os valores aparecem Linha=0 , ColDestino=0, LinOrigem=6 e Coluna=1 sou iniciante em VBA , não faço ideia de por onde começar a resolver
Sensacional. Pra mim está dando um pequeno erro, ela está copiando a partir da linha 2 depois do cabeçalho. Como eu resolvo?
Boa tarde, deveria pegar corretamente, teste reduzir a variável LinOrigem = Linha - 1
@@CanalSGP show. Agora sim funcionou 100%. Obrigado
Que bom.
Mas e se eu quero fazer a importação na primeira linha / primeira coluna ?
Boa noite, se adequar as variáveis pode importar a primeira linha também.
Estou fazendo, mas está dando erro, mesmo na planilha de origem de vcs.
Boa tarde, na planilha de exemplo faltava uma linha de código.
No meu aparece um erro dizendo que não encontrou valores na planilha "Não encontrado cabeçalho".
Bom dia, o cabeçalho precisa estar no espaço que foi definido, se não em engano até a linha 10.
fiz tudo e não busou as informações no teste com F8 para ver se funciona, o que devo fazer ?
ub Importar_Dados()
On Error GoTo Erro
Application.ScreenUpdating = False
Dim Guia As Object
Dim Planilha As Workbook
Dim EnderecoPlan As String
Dim Coluna As Double, Linha As Double, ColDestino As Double
Dim ColInicial As Double, ColFinal As Double, LinOrigem As Double
EnderecoPlan = Application.GetOpenFilename(FileFilter:="file, *.xls*")
If EnderecoPlan Empty And EnderecoPlan "Falso" Then
Set Planilha = Application.Workbooks.Open(EnderecoPlan)
Else
Application.ScreenUpdating = True
Exit Sub
End If
Set Guia = Planilha.Worksheets(1)
Windows(Planilha.Name).Visible = False
Coluna = 1
Lin = 1
Inicio:
Do
Linha = Linha + 1
If Guia.Cells(Linha, Coluna).Value Empty Then
LinOrigem = Linha
ColInicial = Coluna
Do
Coluna = Coluna + 1
Loop Until Guia.Cells(Linha, Coluna).Value = Empty
ColFinal = Coluna - 1
Exit Do
End If
If Coluna = 100 Then
MsgBox "Não encontrado cabeçalho!", vbExclamation, "IMPORTAR"
Exit Sub
End If
Loop Until Linha = 10
If LinOrigem = Empty Then
Coluna = Coluna + 1
Linha = 1
GoTo Inicio:
End If
Coluna = ColIncial
ColDestino = 2
Linha = WorksheetFunction.CountA(Planilha1.Range("B:B")) + 3
With Planilha1
Do
LinOrigem = LinOrigem + 1
For Coluna = ColInicial To ColFinal
.Cells(Linha, ColDestino).Value = Guia.Cells(LinOrigem, Coluna).Value
ColDestino = ColDestino + 1
Next Coluna
ColDestino = 2
Linha = Linha + 1
Loop Until Guia.Cells(LinOrigem, ColInicial).Value = Empty
End With
Windows(Planilha.Name).Visible = True
Application.DisplayAlerts = False
Windows(Planilha.Name).Close
Application.DisplayAlerts = True
Set Planiha = Nothing
Set Guia = Nothing
Application.ScreenUpdating = True
Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "IMPORTAR"
End Sub
Boa tarde, retorna alguma mensagem de erro?
@@CanalSGP boa tarde não, apenas não busca as informações, não sei se esqueci ou falhei na montagem do código , até postei o código para facilitar
Boa noite, solicite planilha de exemplo nos contatos do site, link na descrição do vídeo.
@@CanalSGP muito obrigado, te mandei por email.
cara me ajuda erro: variavel do bloco ou do objeto "with" nao definida
Bom dia, pode ser if sem colocar end if ou mesmo um with que não foi finalizado com end with.
Disponibilize meu amigo esse codigo pra gente (texto)
Boa tarde, fiz este teste em alguns vídeos e o resultado não foi favorável. Gera dúvidas devido falta de entendimento do código e se colocar link para baixar os códigos o alcance do vídeo no RUclips é prejudicado. Sem contar que pode ser contra as regras do RUclips, spam, etc.
Tem como importar sem o botão importar?
Boa tarde, se o código for adaptado acredito que sim.
@@CanalSGP É que estou procurando alguém que ensine isso, porque até agora não achei nenhum vídeo ensinando isso. Achei um que ativava ao digitar, mas não ensinava passar o arquivo pra outro layout. Um que gostei ele passava os dados organizando por linhas, foi o que gostei, só que ficar apertando toda hora o botão cansa pois sempre estou fazendo outras coisas. Os dados que recebo é online e sempre desaparecem quando chega num limite e eu queria grava-los por isso queria que quando eles aparecessem fossem salvos organizados em outra planilha. Sei que é possível pois já vi uma pessoa usando esse método, mas não consegui informação.
Boa noite, vou estudar se é possível fazer um loop, se os arquivos forem todos padrão pode dar certo.
@@CanalSGP Então consegui fazer o looping, mas ele não copia os dados onde tem função, não sei se há outro modo. Eu coloquei pra ativar a macro através do looping da célula de quando ela modificasse automaticamente, mas não ativou. Coloquei pra ativar por on time, mas algumas vezes ela repete o que já foi copiado, então fica complicado. Tem um site que apresenta uns códigos que diz copiar dados de células com fórmulas, mas não consegui fazer funcionar. Tive até pane no PC, ainda bem que tinha uma copia, pois o PC parou de abrir a planilha. Foram 8 planilhas perdidas. Fiz 25 copias e uns 50 testes, mas ainda não achei uma função de copiar células que modificam com o tempo.
Bom dia, macros por tempo é complexo, porque precisa ficar rodando o tempo todo.
Pra falar a verdade achei tudo munto confuso, você fez muitas voltas indo e voltando. Desculpe a sisceridade mais este tipo de video deixa qualquer pessoa mais confunsa ainda no processo. Me perdi diversas vezes da forma que foii feito esse vídeo.
Boa tarde, agradeço o feedback.
Loop Until Guia.Cells(Linha, Coluna).vale = Empty
esta linha deu erro 438
Bom dia, se esta igual ao comentário tem erro de digitação.
Loop Until Guia.Cells(Linha, Coluna).vale = Empty 'Errado
Loop Until Guia.Cells(Linha, Coluna).value = Empty 'Correto