Este fórum está sendo desativado

[Alino]

Bom dia senhores, preciso de ajuda numa planilha de controle de estoque.
Tenho uma planilha com os cadastros dos produtos e preciso que, qdo esse produto seja consultado em outra planilha, a imagem e as demais informações sejam trazidas na tela, porém, o excel entende que a célula onde está inserida a foto está vazia.
Para trazer a informação da célula onde está a imagem, estou usando a formula: =SEERRO(PROCV(C3;'Cadastro de Produtos'!A:C;3;0);"NÃO ENCONTRADO"), mas, só dá certo com textos, e não com imagens.
Alguém pode dar uma olhada nisso e ajudar a encontrar o erro?!?

Desde já agradeço a atenção de todos.

Obrigado,

Andréa

[LucasJose]

Olá colega,
Poderia postar a planilha para eu dar uma olhada

[Alino]

Obrigado Lucas pelo interesse em ajudar, fico no aguardo.

[Kledison]

Olá Alino,

encontrei um jeito de fazer o que você deseja, vai dar muito trabalho.

[JorgeLuisNeves]

Kledison, poste o que foi feito para que possamos avaliar e ajudar se possivel

[Kledison]

Olá JorgeLuisNeves,

vou tentar explicar o que eu fiz até o momento:

Criei uma pasta chamada imagens na unidade C: e coloquei pelo menos as quatro primeiras imagens do controle de estoque, e coloquei nas fotos o mesmo nome de cada código.

Na aba Cadastro de Produtos, criei mais uma coluna chamada CAMINHO DAS FOTOS, aqui listamos o caminho:

Código: Selecionar todos

c:\imagens\nomedafoto.jpg

Na aba ENTRADA e SAÍDA, acrescentei mais uma linha para buscar o caminho das imagens, coloquei um controle de IMAGEM ActiveX que chamei de imgFoto.

Obs.: Não estou conseguindo fazer aparecer uma imagem PADRÃO caso o produto não tenha foto, está dando um erro e ainda não consegui resolver.

Código PROCV utilizado na ENTRADA e SAÍDA:

Código: Selecionar todos

=PROCV(Entrada!$C$3;'Cadastro de Produtos'!$A$1:$F$500;4;0)

Código VBA utilizado no módulo da planilha2 (entrada e saída)

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 3 And Target.Column = 3 Then
imgFoto.Picture = LoadPicture(Range("C5").Value)
End If
End Sub

No arquivo dele, aba Consulta Estoque não coloquei as formulas ainda.

Segue link de uma página que fala do assunto.
http://www.mprinformatica.com.br/blog/i ... m-imagens/

Estou anexando a planilha e a pasta com as 04 primeiras imagens dos produtos que deve ser colocada na unidade C:.

Bons estudos.