Notifications
Clear all

RETORNO DE DADOS

7 Posts
2 Usuários
0 Reactions
1,467 Visualizações
(@jorge38)
Posts: 0
New Member
Topic starter
 

Boa noite a todos..
Eu tenho um formulario VBA. Como faço para
Retornar com uma foto da planilha para meu
Formulário. Ex na coluna da plan1
Está o endereço da foto, quero retornar
Com o endereço e a foto. Poderiam me ajudar ?

 
Postado : 20/08/2018 8:52 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Jorge38,

Bom dia!

Descompacte os 3 arquivos na mesma pasta, na coluna A da planilha, modifique o caminho de modo a refletir o caminho onde você salvou os arquivos e veja se é assim que você está querendo.

 
Postado : 21/08/2018 8:17 am
(@jorge38)
Posts: 0
New Member
Topic starter
 

Boa noite meu amigo.. Obrigado pela resposta e desculpe a demora.. É quase isso

Eu gostaria que quando eu clicasse no botão localizar encontrar a foto que está nessa pasta C:Usersjorge.ruisDesktopTeste e que está armazenada também na planilha na RANGE V2 e trouxesse para o formulário , para a image1. Teria como me passar seu e-mail para eu lhe enviar o formulário ?

 
Postado : 25/08/2018 3:27 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Jorge38,

Boa noite!

Fiz as necessárias adaptações de modo que funcione para o caminho que você especificou e também para que o caminho esteja na coluna V.
Segue novo arquivo.

 
Postado : 25/08/2018 3:57 pm
(@jorge38)
Posts: 0
New Member
Topic starter
 

Private Sub LOCALIZAR_Click()
Dim localing As String
Range("A2").Select
While ActiveCell <> ""
If ActiveCell = TextMATRICULA.Text Then ' a caixa de texto onde vai fazer a procura
TextDATA.Text = ActiveCell.Offset(0, 1).Value
TextHORA.Text = Format(ActiveCell.Offset(0, 2).Value, "Long Time")
TextNOME.Text = ActiveCell.Offset(0, 3).Value
ComboSEXO.Text = ActiveCell.Offset(0, 4).Value
TextIDADE.Text = ActiveCell.Offset(0, 5).Value
ComboCARGO.Text = ActiveCell.Offset(0, 6).Value
TextRG.Text = ActiveCell.Offset(0, 7).Value
TextCPF.Text = ActiveCell.Offset(0, 8).Value
TextENDERECO.Text = ActiveCell.Offset(0, 9).Value
TextNUM.Text = ActiveCell.Offset(0, 10).Value
TextCOMPLEMENTO.Text = ActiveCell.Offset(0, 11).Value
ComboBAIRRO.Text = ActiveCell.Offset(0, 12).Value
TextCEP.Text = ActiveCell.Offset(0, 13).Value
TextPONTOREF.Text = ActiveCell.Offset(0, 14).Value
TextTELFIXO1.Text = ActiveCell.Offset(0, 15).Value
TextTELFIXO2.Text = ActiveCell.Offset(0, 16).Value
TextCELULAR1.Text = ActiveCell.Offset(0, 17).Value
TextCELULAR2.Text = ActiveCell.Offset(0, 18).Value
TextWHATSAPP.Text = ActiveCell.Offset(0, 19).Value
TextEMAIL.Text = ActiveCell.Offset(0, 20).Value
TextENDIMG.Text = ActiveCell.Offset(0, 21).Value
End If
ActiveCell.Offset(1, 0).Activate
Wend
End Sub

 
Postado : 25/08/2018 5:46 pm
(@jorge38)
Posts: 0
New Member
Topic starter
 

bg mesmo pela ajuda, mas não está indo..

Na minha planilha é assim

MATRÍCULA: DATA DO CADASTRO: HORA DO CADASTRO: NOME: SEXO: IDADE: CARGO: RG: CPF/CNPJ: ENDEREÇO: N.º: COMPLEMENTO: BAIRRO: CEP: PONTO DE REFERÊNCIA: TELEFONE FIXO 1: TELEFONE FIXO 2: CELULAR 1: CELULAR 2: WHATSAPP E-MAIL: FOTO:
104678 SEXTA-FEIRA, 24 DE AGOSTO DE 2019 21:36:46 JORGE LÁZARO PÓVOA RUIZ MASCULINO 101 AUXILIAR DE MONITORAMENTO 12.425.555-6 44.444.444/4444-45 RUA ABANO 64 CASA BAÍA GUANABARA 22222-223 CHACRINHA (22)2222-2222 (22)2222-2222 (22)2222-22222 (22)2222-22222 (22)2222-22222 @@@@@@@@@@@@@@ C:Usersjorge.ruisDesktopDoc_JorgeJORGE.jpg
104679 SEXTA-FEIRA, 24 DE AGOSTO DE 2020 21:36:47 JORGE LÁZARO PÓVOA RUIZ MASCULINO 102 AUXILIAR DE MONITORAMENTO 12.425.555-7 44.444.444/4444-46 RUA ABANO 65 CASA BAÍA GUANABARA 22222-224 CHACRINHA (22)2222-2222 (22)2222-2222 (22)2222-22222 (22)2222-22222 (22)2222-22222 @@@@@@@@@@@@@@ C:Usersjorge.ruisDesktopDoc_JorgeJORGE.jpg

 
Postado : 25/08/2018 5:47 pm
(@jorge38)
Posts: 0
New Member
Topic starter
 

Boa noite a todos.. Como faço para buscar uma foto da planilha para p formulário.. adaptando o código da imagem ao que eu já tenho e está descrito aqui.?

 
Postado : 01/09/2018 3:17 pm