GabrielSRP

Boa tarde Pessoal do forum! Está aparecendo essa tela toda vez que abro o Excel, alguém conhece esse problema e sabe a solução?

refiz o suplemento, não resolveu

O meu problema é justamente com os dados que eu não tenho informação. Ex: procuro o codigo a, mas não tem foto do codigo a. Antigamente ele só retornava o erro da celula, o problema é enviar a caixa de mensagem que trava os processos. Esse código abaixo onde você sugere eu colocar? Ele pede uma resposta Then, não entendi onde chegar. If oImage Is Nothing

Boa tarde Basole! Mas porque eu fiz a formula de exemplo em uma célula vazia, fiz de proposito. Até mês passado a formula buscava, se não encontrava, ele retornava "#valor" Agora ele de essa caixa de alerta, que é o meu real problema.

Boa tarde! Utilizava um código em suplemento que usava para inserir imagens nas minhas planilhas de acordo com um referencia alfanumérica, porem no inicio do mês o suplemento começou a responder uma mensagem para as referencias não encontradas. E isso está causando muito transtorno nos meus processos, vocês conseguem pensar alguma solução? Segue abaixo o codigo e a mensagem de erro: [code]Public Function getImage(ByVal sCode As String) As String Dim sFile As String Dim oSheet As Worksheet Dim oCell As Range Dim oImage As Shape Set oCell = Application.Caller ' Célula onde a função foi chamada Set oSheet = oCell.Parent ' Planilha que chamou a função ' Se ainda não existir uma imagem com o código, carrega do arquivo e cria-a. ' A imagem já é posicionada na exata posição da célula onde a função foi chamada. If oImage Is Nothing Then sFile = "G:\FOTOS\" & sCode & ".jpg" Set oImage = oSheet.Shapes.AddPicture(sFile, msoCTrue, msoCTrue, oCell.Left, oCell.Top, oCell.Width, oCell.Height) oImage.Name = sCode End If ' Retorna nada para a célula (afinal, esta é somente uma função de auxílio) getImage = False End Function [/code] [img]https://i.imgur.com/8K2Wf64.jpg[/img]