josequali

Já consigo inserir a data usando Text = Format (Date, "longe Date") E o da linha também consegui resolver, e o nome da empresa resolvi concatenando "Relatório referente" com o nome da empresa (textbox). Só preciso mesmo agora mudar a fonte (tamanho, tipo e negrito) e alinhar a "recebido por" e a "data" a esquerda quando enviar para o word, assim como a data na parte superior a esquerda também.

Boa tarde! Alguém poderia me ajudar, tenho um código que permiti enviar as informações da minha planilha do excel para um novo documento word, entretanto não consigo enviar da forma que desejo, o relatório acaba deformando quando tento inserir as informações da coluna B. Atualmente uso esse comando: Sub gerarleatorio() MsgBox "Gerando relatório!", vbInformation, "Aguarde" Worksheets("Relatorio").Activate Dim objWord 'o aplicativo do word Dim objDoc 'o documento word em si Dim objSelection 'o cursor de operações Dim text As String Set objWord = CreateObject("Word.application") 'coloca o word na memória Set objDoc = objWord.documents.Add 'criar um novo documento word objWord.Visible = True 'tornar word visivel Set objSelection = objWord.Selection 'ver referencia do cursor do mouse For Each cell In Range("A1:A23") text = text & cell.Value & Chr(13) 'o chr(13) serve para dar enter entre as linhas do excel Next cell objSelection.Typetext (text) 'digitar o texto End Sub Para pegar a informação da coluna B eu altero de ("A1:A23") para ("A1:B23"), mas o relatório desconfigura todo. A segunda situação é a data, eu preciso que ela seja transferida por extenso, mas quando envio para o word ela fica no formato padrão de data (dd,mm,yyyy). A terceira situação é que tenho linha que servem para assinatura, mas elas não são enviadas e nem os nomes abaixo delas ficam em negrito. Vide imagem abaixo: OBS: obrigatoriamente para o que preciso todas vez que eu gerar um relatório tem que ser um novo doc word, e não um modelo para substituição de dados, como mala direita ou comando que procurem palavras e substituam as informações no documento do word. Segue abaixo o vídeo que me baseei para adaptar o código. Estou também anexando como o relatório está sendo gerado (relatório errado) e como eu preciso que fique (relatório correto). Desde já, agradeço a ajuda e disponibilidade de todos Relatorio word.rar

@Midori Eita achei, tinha errado, rs! Perfeito

@AfonsoMira tentei o método do @Midori mas não consegui . Deixei os códigos sugeridos por ele já no módulo. Segue em anexo o modelo. Desde já agradeço a disponibilidade Alerta teste.rar

@AfonsoMira o projeto é meio grande! Vou ver se consigo criar um como exemplo.

@AfonsoMira ao ir mudando linha na listbox1 (click), se a textbox1, 2 ou 3 tiver a informação ela executa a ação na label correspondente.

@Basole vou tentar implementar! Obrigado

Olá bom dia! Tenho a seguinte dúvida: como fazer uma label piscar (mudar de cor) se a textbox estiver preenchida. Essas são as condições: Se a textbox1 estiver preenchida, a label 1 pisca. Se a textbox2 estiver preenchida a label 2 pisca Se a textbox3 estiver preenchida a label 3 pisca Desde já, agradeço a disponibilidade de todos.

@Basole tentei referenciar, mas não consegui...

Bom dia! Gostaria de tirar a seguinte dúvida. Tenho diferentes documento PDF que consigo abrir utilizando meu Excel, gostaria de saber se é possível abrir o PDF e adicionar automáticamente um rodapé, pegando as informações da textbox1 (responsável) e textbox (data). Achei só esse tutorial: https://stackoverflow.com/questions/40422546/open-adode-pdf-and-edit-a-page-by-adding-a-text-box/40440316 O texto do rodapé ficaria assim: Cópia controlada impressa por (Nome do responsável) no dia (Data). Tentei pesquisar por tutoriais que adicionassem diretamente ou convertesse o PDF para jpg, pnj e adiciona-se a descrição, mas não tive sucesso. Meus PDF são todos escaneados e não textos word convertidos em PDF, porquê coleto assinaturas antes e escaneio para adicionar ao sistema. Desde já agradeço a disponibilidade . Obrigado!

@RafaVillani perfeito Muito Obrigado!

Boa tarde. Como formatar a textbox para receber apenas letras em maiúsculo e bloquear símbolos, pontuação, número e espaço entre palavras e emitir a mensagem de alerta. Msgbox "Não é permitido inserir espaço, números, pontuação e símbolos", vbexclamation, "Atenção". Alguém poderia me ajudar? Desde já agradeço a disponibilidade .

@AfonsoMira erro: "Sub funciona não definida" O comando call filtro deve ser aplicado no listbox1 do userform1 quando o userform 2 for fechado. Essa é a ideia.

@AfonsoMira perfeito! Muito obrigado! Obrigado também @Midori

@AfonsoMira na verdade o userform 1 continua aberto e eu abro o userform2 sobre este. Mas quando eu fizer unload no userform2 eu queria que ele aplica-se filtrar no Userform1. Não sei se ficou claro.

Bom dia! Gostaria de tirar uma dúvida. Tenho dois userforms. O primeiro userform tenho uma listbox1 e o segundo tenho caixas de texto. Minha dúvida é: como carregar os dados da listbox1 do userform1 nas textbox do userform2? Desde já agradeço a disponibilidade

Boa dia, gostaria de tirar a seguinte dúvida. Tenho dos formulários o primeiro com uma listbox1 e que recebe o comando "call filtro' para carregar a listbox1. Já o segundo userform é um painel de cadastro que tem o botão de salvar e fechar. Minha dúvida é: como executar o comando "call filtro" no userform1 depois de usar o userform2 para fazer um cadastro ou depois de fechar o userform2. . Alguém saberia? Desde já agradeço a disponibilidade

Boa noite, gostaria de tirar a seguinte dúvida. Tenho um formulário de cadastro em que neles tenho duas textbox e cinco frames (cada frame com dois opptionbutton). Quando tento salvar o meu cadastro programei para que o preenchimento das textbox sejam obrigatorias, entretanto, não conheço nenhum comando que obrigue a preencher opptionbutton dentro de um frame antes de concluir o salvamento do cadastro. Alguém saberia? Desde já agradeço a disponibilidade

consegui If TextBox1 = TextBox2 <> Empty Then Me.TextBox3.Enabled = True Else Me.TextBox3.Enabled = False End If

@Midori perfeito Obrigado!

Boa tarde! Tenho a seguinte situação! Alguém poderia me ajudar? Possuo duas textbox (textbox1 e 2). Se a palavra que estiver na textbox 1 for igual a a palavra da textbox2, eu quero que ela habilite (enabled = true) a Label1 indicada, se for diferente ou vazio que seja falso. Textbox1: Maria Textbox2: Maria label1.enabled = true Fiz essa formula mas não deu certo. If Me.TextBox1.Text = Me.TextBox2.Text Then Me.TextBox3.Enabled = False Else Me.TextBox3.Enabled = True End If End Sub Desde já agradeço a ajuda de todos!

Boa noite gostaria de tirar a seguinte dúvida de como preencher um textbox respeitando o seguintes critérios: Três letras maiúsculas + ponto mais três letras maiúsculas + números. Exemplo: FOR.RCP.000 POP.HIG.1200 Desde já agradeço a disponibilidade e ajuda de todos . Obrigado!

@Midori Ta bem

@AfonsoMira Foi eu também testei assim mas não foi. Se não for pelo webBrowser será que existe por outro método. Deve ter. Já vi esse tipo de campo da imagem abaixo, mas nunca conseguir achar como colocar também!

Boa noite@Muca Costa! Muito obrigado ! Consegui adaptar! Deus te abençoe!