josequali

@LaerteB Obrigado! Funcionou perfeitamente.

@LaerteB Boa tarde! Então ,fiz as alterações indicadas, mas ele continua lançado a informação do texto na caixa de contato

@LaerteB @MidoriBom dia! Atualmente já tenho códigos que permitem cadastrar as informações do oppttion Button e outro para carregar as informações ao selecionar a linha da Listbox, no entanto, saberia algum código que permita que eu altere a informação do opptbuton? Já consigo alterar para as txtbox usando o comando abaixo. Segue em anexo o modelo resumido do projeto. Private sub btnalterar_Click () Dim fila as object dim linha as integer ser fila = sheets (“bancosedados”). Range (“A:A”). Find(valor_buscado, lookat:=x1whole) linha= fila.row Range (“B” & linha). Value = Me.txtprocedencia.value . . Resto das linhas do código . . end if end sub alterar informações dos opption button.zip

@LaerteB Boa noite! Desculpe pela demora, estava sem celular para fazer o teste. Fiz mudanças indicadas, mas não deu certo. Durante o comando ele joga na aba de pesquisa do contato a mensagem programada (veja a foto). Realizei um teste, mudei em contato para linha 7 e ele dessa vez encontrou o contato, mas não colou a mensagem (vide imagem 2). Nó código foi essa mudança que foi feita em Private Sub btnenviar_Click(): contato = Cells(linha, 7) texto = Cells(linha, 8) por contato = Cells(linha, 7) texto = Cells(linha, 7)

@Midori Obrigado! Funcionou perfeitamente!

@Midori @LaerteB Bom dia! Queria saber se vocês saberiam de algum código complementar para a seguinte situação. Atualmente tenho um código que me permiti trazer a informação da célula A1 da guia1 da minha planilha para uma textbox. Entretanto, gostaria de também carregar a informação da guia2 na textbox2 após dar um click no botão "BUSCA". Tentei adicionar um comando "sheets", mas não funcionou bem. Segue abaixo o código que uso para carregar a informação na textbox1 com o valor da guia1 da célula A1. Me.Txt1.Value = Range("A1").Value Segue em anexo o projeto simplificado. planilha.zip

@luislhl Muito obrigado pelas dicas! Irei anotar! Estou começando a estudar aos poucos pela plataforma do Devmedia! Eles tem uma boa didática de aprendizado.

@LaerteB @midori funcionou perfeitamente! Muito obrigado! adicionado 0 minutos depois @Midori Obrigado! Funciono perfeitamente!

@LaerteB Boa tarde! Acho que não expliquei bem. Vou anexar três imagens abaixo esclarecendo o meu caso. Acredito que irá facilitar. O que eu quero estará explicado nas imagens. Ver imagens e após continuar com o texto abaixo. Por exemplo: Durante um novo cadastro (no exemplo da imagem registro de ID 19), salvo as informações das textbox e dos opptionbutton (Classificação do incidente (administrativa) e grau do ocorrido (leve)). No entanto, em outro dia eu preciso realizar a consulta do cadastro que foi realizado e das informações salvas. Para tanto, preciso que ele traga além das informações das textbox as dos opptionbutton que foram marcados. Logo, o objetivo não é carregar listbox1, uma vez que, meu código já faz isso. O que eu preciso é que o opption button que foram marcados no cadastro apareçam também marcados quando realizar a pesquisa. Não sei se ficou claro. Desde já agradeço a disponibilidade em ajudar. Obrigado! :D

@Edson Luiz Branco vou testar adicionado 14 minutos depois @Edson Luiz Branco Funcionou perfeitamente! Muito obrigado! Que Deus o abençoe. Muito obrigado meu amigo

@Midori @Edson Luiz Branco @LaerteB Boa tarde! Atualmente tenho um projeto que permiti salvar as informações marcadas no opptionbutton. Entretanto, gostaria de também trazer a informação do opption button que foram salvas ao ser consultado na listbox1. Atualmente consigo trazer as informações dos textbox e combobox, mas não consigo carregar as do opption. As informações estão salvam na coluna 10 e 11 do excel. Uso esse código para carregar as informações: Private Sub Txtid_Change() Dim codigo As Integer codigo = Txtid.Value 'ESSE PRIMEIRO CODIGO É NECESSÁRIO PARA PODER APARECER OS OUTROS DADOS On Error Resume Next Me.Txtid.Value = Range("b1").Value Me.Txtprocedencia = Application.WorksheetFunction.VLookup(codigo, Sheets("bancodedadosocorrencia").Range("A:P"), 2, 0) Me.Txtgerador = Application.WorksheetFunction.VLookup(codigo, Sheets("bancodedadosocorrencia").Range("A:P"), 4, 0) Me.Txtdetector = Application.WorksheetFunction.VLookup(codigo, Sheets("bancodedadosocorrencia").Range("A:P"), 5, 0) Me.Txtmotivo = Application.WorksheetFunction.VLookup(codigo, Sheets("bancodedadosocorrencia").Range("A:P"), 6, 0) Me.txtnotificante = Application.WorksheetFunction.VLookup(codigo, Sheets("bancodedadosocorrencia").Range("A:P"), 7, 0) Me.Txtreincidencia = Application.WorksheetFunction.VLookup(codigo, Sheets("bancodedadosocorrencia").Range("A:P"), 8, 0) 'Classificação e grau linhas 10 e 11. Me.txtEmail = Application.WorksheetFunction.VLookup(codigo, Sheets("bancodedadosocorrencia").Range("A:P"), 12, 0) Me.txtData = Application.WorksheetFunction.VLookup(codigo, Sheets("bancodedadosocorrencia").Range("A:P"), 14, 0) Me.Txttime = Application.WorksheetFunction.VLookup(codigo, Sheets("bancodedadosocorrencia").Range("A:P"), 15, 0) Me.Txtresponsavel = Application.WorksheetFunction.VLookup(codigo, Sheets("bancodedadosocorrencia").Range("A:P"), 16, 0) End Sub Desde já agradeço a disponibilidade carregar informacoes no opption button.zip

@Edson Luiz Branco fiz as mudanças sugeridas, o tamanho da imagem agora regula, entretanto, ele só transfere a imagem renomeada como x. Se eu escolher outro cadastro com outra imagem, ela não é transferida. No código abaixo o x é o nome da imagem que ele trás salva com o nome: x. (veja imagem abaixo). Set pic = wdRg.InlineShapes.AddPicture(Filename:="C:\Users\Paloma\Desktop\imagensnf\x.jpg" O nome da textbox que traz o caminho da imagem é: loadimg Mudanças feitas: Set Word1 = CreateObject("Word.Application") Word1.Visible = True Set doc = Word.Documents.Open("C:\Users\Paloma\Desktop\Relatorios\Relatorio_de_nao_conformidade.docx") With doc . . . Dim wdRg As Object Set wdRg = .Content Dim pic As Object wdRg.Find.Execute FindText:= "#IMAGEM" wdRg.Text = "" Set pic = wdRg.InlineShapes.AddPicture(Filename:="C:\Users\Paloma\Desktop\imagensnf\x.jpg", _ LinkToFile:=False, _ SaveWithDocument:=True) pic.LockAspectRatio = msoTrue pic.Width = 150 pic.Height = 150 . . End Sub

@Edson Luiz Branco funcionou, mas o problema que nem toda imagem tem nome “x.jpg”. Como posso alternar. Fazer a busca pela imagem com o nome salvo na linha. Porque para cada cadastro a imagem salva terá um nome diferente na mesma pasta. Segunda dúvida: Ao inserir no word como fazer que ela tenha uma tamanho específico para não deformar o formulário? Desde já agradeço pela disponibilidade! Obrigado

@Edson Luiz Branco sim está na pasta. eu renomeei na planilha também para x.jpg, mas o erro persisti. Mas uma duvida o código só funciona se a imagem estiver com o nome x.jgp, porque a depender da imagem que eu salvar o nome pode alterar. adicionado 6 minutos depois @Edson Luiz Branco

@Edson Luiz Branco A palavras ela sai depois que eu rodo a macro. aparece essa mensagem abaixo. adicionado 2 minutos depois @Edson Luiz Branco essa: a variável wdRg As Word.Range, dimensione-a As Object. A outra não funcionou. adicionado 16 minutos depois @Edson Luiz Branco mas a imagem não aparece.

@Edson Luiz Branco Boa noite! fiz mudança indicada, no entanto, apareceu outro erro.

@Edson Luiz Branco Muito obrigado pela disponibilidade! Está aparecendo a seguinte mensagem em Dim wdRG as Word. Range “O tipo definido pelo usuário não foi definido”.

Boa tarde! Atualmente estou tentando começar a estudar programação na Web, pois não sei nada literalmente. Gostaria de saber o que preciso estudar para desenvolver uma plataforma online que permita, Cadastro, alterar, excluir, gerar relatórios, inserir imagem, PDF, gráficos, pesquisar, (estatística como Dashboard), enviar e-mail, SMS. Além de permitir que eu crie usuários para acessa campos específicos no site. Sei que tenho que ter noções em banco de dados, Frontend e Back and. Qual linguagem aprender? banco de dados: SQL, outro? E qual é para Front e Back and (CSS, Java script, HTML, PHP, NODEC). Qual usar? Desde já agradeço pela ajuda

@LaerteB Boa noite! Atualmente criei um formulário que após eu cadastrar minha informações no excel me permiti transferir as informações do userform para um documento do word. No entanto, só consigo transferir o texto. Queria também poder transferir a imagem carregada no formulário do registro pesquisado na listbox1 junto com as suas informações. Conhece algum comando que permite transferir a imagem para um campo pré-determinado no word? Estou encaminhado o projeto do excel, a pasta com formulário modelo e a pasta para salvamento das imagens após o cadastro (se for em altera não salva a imagem na pasta, melhor apagar o cadastros e inserir novos com imagens, caso queira). Para poder abrir o formulário do word tem que mudar o caminho da pasta no seu pc (atualizar o caminho da pasta Relatórios) assim como a para salvar as imagens (atualizar o caminho da pasta imagensnf). Ver imagens anexas 1 e 2. Após é só selecionar um registro no listbox1 e da um click botão relatórios. Vide imagem 3 e 4. Desde já agradeço a atenção e a disponibilidade! Muito obrigado . inserir imagem no word.zip

@LaerteB Boa noite! Realizei a mudança sinalizada e o código não da mais erro, no entanto, quando abre o whatsapp ele não da o comando para realizar a pesquisa e enviar a mensagem .

@LaerteB Boa noite! Funcionou perfeitamente! Muito obrigado!

@LaerteB @LaerteB Boa noite! Muito obrigado! Realizei as mudanças indicadas, mas ainda continua dando erro no código, tentei mudar como descrito na imagem, mas ainda sim não deu certo. whatsapp envio de mensagem.zip

@LaerteB Perfeito Muito obrigado! adicionado 19 minutos depois @LaerteB Boa noite! gostaria de saber como fazer para evitar a transferência da primeira linha contendo os dados (a linha 3). Porquê caso eu transfira tudo o meu ID irá começar do número 1 novamente, prejudicando assim que eu tenha um número único por registro. Sendo assim, independente do status estar Fechado na linha 3, queria que está não seja transferida para não prejudicar a continuação do meu ID. O projeto é o mesmo do post anterior. Segue abaixo as imagens.