Inserir Foto em planilha automaticamente

[diego_janjao]

Boa tarde, pessoal.

 

Eu tenho uma planilha de não conformidade, e uma das abas é inserir a foto do fato como evidência, será que tem como, ao inserir o número do RNC (Registro de não Conformidade), ele já procurar a foto em questão em um diretório específico?

 

Exemplo, tenho minha planilha, quando eu digitar RNC 001 ele já coloca automaticamente na aba 2 a foto que tiver o nome 001.

 

Desde já agradeço muito.

[Wendell Menezes]

Olá, 

Experimente o código abaixo (Cole na aba onde você digitará RNC 001)

Private Sub Worksheet_Change(ByVal Target As Range)Dim Folder As String, Ext As String, Sheet As String, RNC As StringFolder = "C:\Users\Wendell\Desktop\" 'Local onde a imagem está salvaExt = ".bmp" 'Extensão da imagemSheet = "Plan2" 'Nome da aba onde a imagem será carregadaRNC = Replace(Range("A1"), "RNC ", "") 'Texto que será digitado antes do nome da imagem (RNC )If Target.Address(False, False) = "A1" Then 'Célula que receberá o nome da imagem    If Dir(Folder & RNC & Ext, vbArchive) <> "" Then        Sheets(Sheet).Activate        Sheets(Sheet).Cells(2, 2).Select        Sheets(Sheet).Pictures.Insert(Folder & RNC & Ext).Select            Else        MsgBox "Imagem não localizada!", vbExclamation    End IfEnd If

[diego_janjao]

Está acusando que não encontra a imagem.

 

Eu tenho a imagem 002-15

 

e estou colocando na A1: 002-15

 

é isto mesmo?

 

Segue a planilha:

 

 

RO.14.rar

[Wendell Menezes]

Poste a planilha e a imagem

[diego_janjao]

a imagem pode ser qualquer uma

[David.sps]

Diego.

Desculpe não poder lhe ajudar...

Mas pelo termo RNC, mal lhe pergunte você trabalha no ramo hospitalar?

[Wendell Menezes]

Aqui funcionou, segue arquivo e imagem que usei para teste.

 

 

Desktop.rar

[diego_janjao]

Diego.

Desculpe não poder lhe ajudar...

Mas pelo termo RNC, mal lhe pergunte você trabalha no ramo hospitalar?

Não. Alimentício. Sou Técnico de Controle de Qualidade.

Aqui funcionou, segue arquivo e imagem que usei para teste.

estranho, continua acusando Imagem não encontrada.

[Wendell Menezes]

Cole o código que adaptou com o local das suas imagens para eu ver

[diego_janjao]

Cole o código que adaptou com o local das suas imagens para eu ver

Teste.rar

[Wendell Menezes]

No seu arquivo falta atualizar essas duas linhas:

Folder = "C:\Users\Wendell\Desktop\"Ext = ".bmp"

A primeira deve ser o local do seu PC onde estão as imagens e a segunda  .jpg e não .bmp

 

Abraço

[diego_janjao]

No seu arquivo falta atualizar essas duas linhas:

Folder = "C:\Users\Wendell\Desktop\"Ext = ".bmp"

A primeira deve ser o local do seu PC onde estão as imagens e a segunda  .jpg e não .bmp

 

Abraço

Está havendo algo muito louco no meu PC então, porque eu mudei estas linhas:

 

Private Sub Worksheet_Change(ByVal Target As Range)

 

Dim Folder As String, Ext As String, Sheet As String, RNC As String

 

Folder = "C:\Users\bn45323\Desktop\" 'Local onde a imagem está salva

Ext = ".jpg" 'deixei em JPG pois é a extensão que usamos aqui

Sheet = "FOTOS" 'Nome da aba onde a imagem será carregada

RNC = Replace(Range("AF8"), "RNC ", "") 'Texto que será digitado antes do nome da imagem (RNC )

 

If Target.Address(False, False) = "AF8" Then 'Célula que receberá o nome da imagem

    If Dir(Folder & RNC & Ext, vbArchive) <> "" Then

        Sheets(Sheet).Activate

        Sheets(Sheet).Cells(2, 2).Select

        Sheets(Sheet).Pictures.Insert(Folder & RNC & Ext).Select

            Else

        MsgBox "Imagem não localizada!", vbExclamation

    End If

End If

 

End Sub

[diego_janjao]

No seu arquivo falta atualizar essas duas linhas:

Folder = "C:\Users\Wendell\Desktop\"Ext = ".bmp"

A primeira deve ser o local do seu PC onde estão as imagens e a segunda  .jpg e não .bmp

 

Abraço

Tentei aqui várias vezes e não deu certo.

 

Poderia me disponibilizar a planilha que você fez o teste aí (a sua inicial) para eu ver se roda aqui?