Adquira o meu curso: Dominando Módulo de Classe ✔ Mais de 200 aulas; ✔ 22 horas de conteúdo; ✔ Exemplos práticos; ✔ Exercícios teóricos; ✔ Criação de Projetos; ✔ Suporte a dúvidas; ✔ Grupo da turma no Telegram; ✔ Certificado de conclusão; ✔ Garantia de 7 dias Aproveite o cupom de lançamento: CLS35 (35% de desconto) 🔗 go.hotmart.com/R94584567J?dp=1
Cara ganho um inscrito era disso que tanto precisava, estava fazendo com Python mas encontrei alguns obstáculos com limitação de bibliotecas. Top demais!
@programandoemvba excelente conteúdo! Parabéns mesmo... Só um adeno: Acho que a planilha está sem o Módulo ou a intenção é a gente praticar mesmo? Abraço e mais uma vez, parabéns!
Muito legal... Foi sensacional.. Teria alguma forma do preechimento trazer a mesma formação que esta no excel, quando aplicamos uma formula por exemplo. No meu caso o resultado ficará em reais com ponto e vingula tudo certinho. Porém no gerar o arquivo não traz a formatação... Somente o número inteiro..
OBRIGADO pelo conteudo!!! Consegui! Gostaria de um auxilio aqui, fizemos a busca para um unico arquivo do Word com nome de "Contrato de Aluguel", mas caso eu tenha mais dois tipos de contrato, exemplo: "Contrato de Fiador" e Contrato Seguro", qual comando coloco para que na coluna TAL eu Selecionar o Contrato Tal, ele gera o contrato certo? Poderia me auxiliar nesta duvida? Desde já obrigado
Grande aula professor, professor, fiquei com uma curiosidade. Qual a diferença desse código para usar o recurso de mala direta do próprio Word? Qual dos dois é mais produtivo?
Se você consegue automatizar as atividades do word com o próprio word e ele atende as suas necessidades de forma satisfatória, então vai de word, caso contrário pode utilizar essa forma que mostrei. A verdade é que quase sempre tem outras formas de fazer as mesmas coisas, nós escolhemos a que fica mais fácil ou a que mais nos adaptamos.
Maravilhosa aula! Parabéns! Eu estou procurando uma solução para gerar contratos de prestação de serviços a partir do meu cadastro de clientes no Excel (que é uma planilha simples) há anos. Só uma dúvida: meu cadastro está na vertical. Por exemplo: Linha 1 e coluna 1 = #Nome. Linha 1 e coluna 2 = Nome da pessoa. Linha 2 e coluna 1 = #CPF. Linha 2 e coluna 2 = número do CPF E por aí vai... pode me explicar como eu faço nesse caso de ser vertical, por favor? Muito obrigado!
Para fazer desse modo você precisa inverter a lógica apresentada no vídeo, mas não é o ideal, pois o normal de qualquer tabela, são os dados crescerem para baixo. Inclusive, até recomendo que você faça essa alteração.
@@programandoemvba Entendi. É que no meu caso cada cliente é um arquivo. Não estão todos no mesmo arquivo. Então vou criar esse cadastro com VBA e cadastrar todos clientes novamente. Muito obrigado!
Professor estou precisando saber em uma planilha ao selecionar uma linha de dados no Excel criar apenas 1 carta conforme o registro na linha Excel . Com o bva o Sr pode me ajudar
@@programandoemvbaSim . O método que o Sr. Passou é criar uma automaticamente mala direta de todos os dados da planilha. Eu preciso através de eu selecionar uma linha onde estacionar registro no Excel gerar individualmente. Assim que seleciono uma linha
Excelente. Vamos supor que no meu modelo de contrato peça o e-mail, porém a pessoa não possui email e o campo obviamente está vago no cadastro. Como faço paraexcluir/retirar a palavra e-mail, quando encontrar um campo vago para melhor compreensão do texto ?
Fernando, obrigado pela pergunta. Há diversas formas de solucionar essa questão, umas delas é você utilizar a forma que fiz no vídeo utilizando a função Replace. Na prática ficaria assim: você colocaria uma condição verificando que o e-mail foi fornecido, caso não fosse você utilizando a função Replace, passaria todo o texto que você faz mensão a e-mail e substituiria por nada. Ex: If Me.TxEmail = "" Then texto = Replace(texto, "enderço de email: ", "") End if Nesse exemplo, supondo que você esteva em um formulário, ao verificar que a caixa de texto do e-mail está vazio, e que "texto" é a variável que contém o conteúdo padrão, ele entra na condição e limpa a frase que faz referência ao e-mail. Espero que você tenha entendido. Caso tenha ficado alguma dúvida, fique a vontade para perguntar novamente.
Bom dia Professor. Fiz o passo a passo, arquivos salvos na mesma pasta, Word habilitado, quando coloco pra executar, ele abre o arquivo, altera o nome, mas quando chega nessa parte: Doc.SaveAs2 ThiaWorkbook.Parh & "\Gerador\" & Planilha1.Cells(3,1) & "docx" Aparece a seguinte mensagem: Erro em tempo de execução '5152': O nome do documento não é válido. *Verifique o caminho para certificar-se de que foi digitado corretamente. *Selecione um arquivo da lista de arquivos e pastas.
Olá, olhei as suas dicas, mas não consegui avança, pois não está localizando extensão do arquivo em Word. Ou seja, na parte de concatenar, não avanço, sempre dar erro
Olá, Bianca! Deixa eu te fazer uma pergunta, você habilitou a biblioteca do word no Excel? Eu mostro no minuto 3:29 do vídeo. Veja se não foi isso, por favor.
É possível sim, basta seguir a o exemplo abaixo alterando a linha de código que salva o arquivo: Doc.ExportAsFixedFormat ThisWorkbook.Path & "\Contratos\" & Planilha1.Cells(lin, 1) & ".pdf", wdExportFormatPDF
Amigo, não consegui fazer a integração que eu necessito, semelhante a essa que você ensina. Você poderia fazer para mim, mediante um preço? Se se sim, como posso entrar em contato com você, por favor?
@@programandoemvba Exatamente o que você faz no vídeo, porém, meu cadastro tem que ser na vertical ao invés de ser na horizontal. Também a planilha precisa de três botões: um preencherá um modelo de contrato, outro preencherá um modelo de procuração e outro preencherá uma declaração.
Olá! É possível sim, basta você se tornar apoiador do canal, independente do valor. Depois que se tornar apoiador, basta acessar o link do Discord que deixei no perfil, e sincronizar a sua conta do UA-cam com o Discord e em alguns segundos a sala chamada: arquivos_utilizados_nos_videos, estará disponível. Se não souber sincronizar, no próprio Discord tem uma sala pública onde eu ensino todo o passo a passo. Obrigado pelo seu comentário!
Exemplo : Tenho que emitir uma carta com todos os "Nomes" de pessoas de cada base da minha empresa, então em uma só carta irá constar 10 "Nomes". Como eu puxo esses 10 "Nomes" vinculados a cada base que tenho? Exemplo : Base de SP Sara, Júlio, Carla, José, Manuel..... Tem como puxar todos os nomes automaticamente ?
Nesse exemplo você precisa quebrar o texto utilizando a função split e guardar o resultado em um array, depois disso só desenvolver a lógica. Se ficou com dúvida, dá uma pesquisada no chatgpt.
Professor, bom dia. Estou usando da seguinte forma para exportar os arquivos em pdf. Ele exporta todos nomeados conforme a planilha, porém efetua a substiuição de todos somente pelo nome da linha 3, internamente todos estão com o nome da linha 3, não está seguindo a sequência. Ex: na linha 3 o nome é Alex, na linha 4 Adolfo Está preenchendo o documento do Adolfo com as informações do Alex, mas exporta como Adolfo. O que pode estar errado na composição? Help rsrs. Option Explicit Sub GerarCertificados() Dim Wd As New Word.Application Dim Doc As Word.Document Dim col As Byte, lin As Byte
lin = 3 Do Until Planilha1.Cells(lin, 1) = ""
Set Doc = Wd.Documents.Open(ThisWorkbook.Path & "\Termo de VT.docx") Wd.Visible = True
For col = 1 To 2
With Doc.Content.Find .Execute Planilha1.Cells(2, col), ReplaceWith:=Planilha1.Cells(lin, col), Replace:=wdReplaceAll
Adquira o meu curso: Dominando Módulo de Classe
✔ Mais de 200 aulas;
✔ 22 horas de conteúdo;
✔ Exemplos práticos;
✔ Exercícios teóricos;
✔ Criação de Projetos;
✔ Suporte a dúvidas;
✔ Grupo da turma no Telegram;
✔ Certificado de conclusão;
✔ Garantia de 7 dias
Aproveite o cupom de lançamento: CLS35 (35% de desconto)
🔗 go.hotmart.com/R94584567J?dp=1
Muito obrigado pela aula. Consegui executar.
Ae sim Ramon, mandou bem!!
Agora é só alegria 😄😄😄
Muito profissional... Valeu.
Muito obrigado 🤝🏽
Fora da curva... Sensacional parabéns. Estava procurando isso para otimizar um processo na empresa. Gratidão ❤
Fico feliz por poder ter lhe ajudado, Richard! Sucesso sempre!!
Grande Matheus, outra dica excelente p ganhar uns minutos de descanso no trabalho. Valeu Mestre 👍
É isso ae, deixa o Excel trabalhar enquanto tomamos um cafezinho ☕
Haha 😄😄
Mais um bom canal indicado pelo Fernando. Sucesso!
Marcos, muito obrigado! Principalmente pela sua inscrição e confiança! 🤝🏽
Cara ganho um inscrito era disso que tanto precisava, estava fazendo com Python mas encontrei alguns obstáculos com limitação de bibliotecas. Top demais!
Obrigado maninho!! Fico muito feliz por você ter lhe ajudado, e por você ter se inscrito no canal. Tmj!🤝🏽
Perfeito, Já vou recomendar o seu canal.
Muito grato pelo seu apoio Miguel! 🤜🏽🤛🏽🤝🏽
Ótima aula. Muito obrigado por compartilhar seu conhecimento.
Muito obrigado mano!! 🤜🏽🤛🏽
@programandoemvba excelente conteúdo!
Parabéns mesmo...
Só um adeno: Acho que a planilha está sem o Módulo ou a intenção é a gente praticar mesmo?
Abraço e mais uma vez, parabéns!
Obrigado mano!! Sobre a sua pergunta, a ideia é vocês praticarem, porque só assim aprendemos de fato. No demais, lhe desejo sucesso!! 🤜🏽🤛🏽
Muito interessante...
Uma outra alternativa é fazer por Mala Direta.
Sim, sim.. Essa também é uma alternativa bacana.
Excelente vídeo...
Muito obrigado Marcos!🤝🏽
Muito legal... Foi sensacional.. Teria alguma forma do preechimento trazer a mesma formação que esta no excel, quando aplicamos uma formula por exemplo. No meu caso o resultado ficará em reais com ponto e vingula tudo certinho. Porém no gerar o arquivo não traz a formatação... Somente o número inteiro..
Obrigado, Fernando!! Tem sim, só colocar ".Text" depois da referência da célula da planilha.
Ficaria assim:
.Cells(lin, 1).Text
Valeu, muito obrigado mesmo 👏🙌
Resolveu?
Resolveu sim 👏👍
Show mano! Sucesso!!🚀🚀
MUITO BOM
Muito obrigado mano! 🤜🏽🤛🏽
OBRIGADO pelo conteudo!!! Consegui!
Gostaria de um auxilio aqui, fizemos a busca para um unico arquivo do Word com nome de "Contrato de Aluguel", mas caso eu tenha mais dois tipos de contrato, exemplo: "Contrato de Fiador" e Contrato Seguro", qual comando coloco para que na coluna TAL eu Selecionar o Contrato Tal, ele gera o contrato certo?
Poderia me auxiliar nesta duvida? Desde já obrigado
Você precisa atribuir a macro ao botão, eu explico como fazer antes de testar
Grande aula professor, professor, fiquei com uma curiosidade. Qual a diferença desse código para usar o recurso de mala direta do próprio Word? Qual dos dois é mais produtivo?
Se você consegue automatizar as atividades do word com o próprio word e ele atende as suas necessidades de forma satisfatória, então vai de word, caso contrário pode utilizar essa forma que mostrei. A verdade é que quase sempre tem outras formas de fazer as mesmas coisas, nós escolhemos a que fica mais fácil ou a que mais nos adaptamos.
Maravilhosa aula! Parabéns! Eu estou procurando uma solução para gerar contratos de prestação de serviços a partir do meu cadastro de clientes no Excel (que é uma planilha simples) há anos. Só uma dúvida: meu cadastro está na vertical.
Por exemplo:
Linha 1 e coluna 1 = #Nome. Linha 1 e coluna 2 = Nome da pessoa.
Linha 2 e coluna 1 = #CPF. Linha 2 e coluna 2 = número do CPF
E por aí vai... pode me explicar como eu faço nesse caso de ser vertical, por favor?
Muito obrigado!
Para fazer desse modo você precisa inverter a lógica apresentada no vídeo, mas não é o ideal, pois o normal de qualquer tabela, são os dados crescerem para baixo. Inclusive, até recomendo que você faça essa alteração.
@@programandoemvba Entendi. É que no meu caso cada cliente é um arquivo. Não estão todos no mesmo arquivo. Então vou criar esse cadastro com VBA e cadastrar todos clientes novamente. Muito obrigado!
bacana.
Obrigado!
Muito bom.
COmo faço pra salvar em pdf
Só mudar a extensão para .pdf
Professor estou precisando saber em uma planilha ao selecionar uma linha de dados no Excel criar apenas 1 carta conforme o registro na linha Excel . Com o bva o Sr pode me ajudar
Claro! Pode dar mais detalhes do que você precisa?
@@programandoemvbaSim . O método que o Sr. Passou é criar uma automaticamente mala direta de todos os dados da planilha. Eu preciso através de eu selecionar uma linha onde estacionar registro no Excel gerar individualmente. Assim que seleciono uma linha
Excelente. Vamos supor que no meu modelo de contrato peça o e-mail, porém a pessoa não possui email e o campo obviamente está vago no cadastro. Como faço paraexcluir/retirar a palavra e-mail, quando encontrar um campo vago para melhor compreensão do texto ?
Fernando, obrigado pela pergunta.
Há diversas formas de solucionar essa questão, umas delas é você utilizar a forma que fiz no vídeo utilizando a função Replace. Na prática ficaria assim: você colocaria uma condição verificando que o e-mail foi fornecido, caso não fosse você utilizando a função Replace, passaria todo o texto que você faz mensão a e-mail e substituiria por nada.
Ex:
If Me.TxEmail = "" Then
texto = Replace(texto, "enderço de email: ", "")
End if
Nesse exemplo, supondo que você esteva em um formulário, ao verificar que a caixa de texto do e-mail está vazio, e que "texto" é a variável que contém o conteúdo padrão, ele entra na condição e limpa a frase que faz referência ao e-mail. Espero que você tenha entendido. Caso tenha ficado alguma dúvida, fique a vontade para perguntar novamente.
Bom dia Professor.
Fiz o passo a passo, arquivos salvos na mesma pasta, Word habilitado, quando coloco pra executar, ele abre o arquivo, altera o nome, mas quando chega nessa parte:
Doc.SaveAs2 ThiaWorkbook.Parh & "\Gerador\" & Planilha1.Cells(3,1) & "docx"
Aparece a seguinte mensagem:
Erro em tempo de execução '5152':
O nome do documento não é válido.
*Verifique o caminho para certificar-se de que foi digitado corretamente.
*Selecione um arquivo da lista de arquivos e pastas.
Olá!!
Você esqueceu de colocar o ponto antes da extensão, está assim "docx", mas era pra está assim: ".docx"
@@programandoemvba no código está com ponto. Ao digitar aqui nos comentários que acabei não colocando.
Entendi.
A pasta Gerador existe? E se existir, está na mesma pasta que o Excel?
Olá, olhei as suas dicas, mas não consegui avança, pois não está localizando extensão do arquivo em Word.
Ou seja, na parte de concatenar, não avanço, sempre dar erro
Olá, Bianca! Deixa eu te fazer uma pergunta, você habilitou a biblioteca do word no Excel? Eu mostro no minuto 3:29 do vídeo. Veja se não foi isso, por favor.
Amigo como posso ao invés de salvar em .Doc converter pra o arquivo salvar como .pdf?
É possível sim, basta seguir a o exemplo abaixo alterando a linha de código que salva o arquivo:
Doc.ExportAsFixedFormat ThisWorkbook.Path & "\Contratos\" & Planilha1.Cells(lin, 1) & ".pdf", wdExportFormatPDF
Amigo, não consegui fazer a integração que eu necessito, semelhante a essa que você ensina. Você poderia fazer para mim, mediante um preço? Se se sim, como posso entrar em contato com você, por favor?
Como seria a integração que você precisa?
@@programandoemvba Exatamente o que você faz no vídeo, porém, meu cadastro tem que ser na vertical ao invés de ser na horizontal. Também a planilha precisa de três botões: um preencherá um modelo de contrato, outro preencherá um modelo de procuração e outro preencherá uma declaração.
Olá! Minha biblioteca esta habilitada, porém não encontra o arquivo. O que pode ter acontecido, e como arrumar?
O que acontece?
@@programandoemvba Não consegue localizar o arquivo, fiz tudo do jeitinho que você fez, habilitei a biblioteca, e não vai!
O arquivo está no mesmo local do Excel? Se sim, o nome e a extensão está exatamente igual? Pois um simples acento fará diferença.
Tem como eu receber o código terminado?Obrigado
Olá! É possível sim, basta você se tornar apoiador do canal, independente do valor. Depois que se tornar apoiador, basta acessar o link do Discord que deixei no perfil, e sincronizar a sua conta do UA-cam com o Discord e em alguns segundos a sala chamada: arquivos_utilizados_nos_videos, estará disponível. Se não souber sincronizar, no próprio Discord tem uma sala pública onde eu ensino todo o passo a passo. Obrigado pelo seu comentário!
Exemplo :
Tenho que emitir uma carta com todos os "Nomes" de pessoas de cada base da minha empresa, então em uma só carta irá constar 10 "Nomes". Como eu puxo esses 10 "Nomes" vinculados a cada base que tenho?
Exemplo :
Base de SP
Sara, Júlio, Carla, José, Manuel.....
Tem como puxar todos os nomes automaticamente ?
Nesse exemplo você precisa quebrar o texto utilizando a função split e guardar o resultado em um array, depois disso só desenvolver a lógica. Se ficou com dúvida, dá uma pesquisada no chatgpt.
Aperto o meu Alt F11 abaixa a luz da tela. kkkkkkkkkkkkkkkkkkkkkkkkkk cilada
No seu caso deve ter a tecla Fn, então precisa ser a combinação das 3. Alt + Fn + F11
Professor, bom dia.
Estou usando da seguinte forma para exportar os arquivos em pdf. Ele exporta todos nomeados conforme a planilha, porém efetua a substiuição de todos somente pelo nome da linha 3, internamente todos estão com o nome da linha 3, não está seguindo a sequência.
Ex: na linha 3 o nome é Alex, na linha 4 Adolfo
Está preenchendo o documento do Adolfo com as informações do Alex, mas exporta como Adolfo.
O que pode estar errado na composição? Help rsrs.
Option Explicit
Sub GerarCertificados()
Dim Wd As New Word.Application
Dim Doc As Word.Document
Dim col As Byte, lin As Byte
lin = 3
Do Until Planilha1.Cells(lin, 1) = ""
Set Doc = Wd.Documents.Open(ThisWorkbook.Path & "\Termo de VT.docx")
Wd.Visible = True
For col = 1 To 2
With Doc.Content.Find
.Execute Planilha1.Cells(2, col), ReplaceWith:=Planilha1.Cells(lin, col), Replace:=wdReplaceAll
End With
Next
Doc.ExportAsFixedFormat ThisWorkbook.Path & "\Certificados" & Planilha1.Cells(lin, 1) & ".pdf", wdExportFormatPDF
Doc.Close
lin = lin + 1
Loop
Wd.Quit
Set Wd = Nothing
Set Doc = Nothing
End Sub
Boa tarde! Ainda precisa de ajuda com o código?
@@programandoemvba , se puder ajudar, ainda preciso sim.