RafaVillani

@Andre4Você está usando botão ou forma? Se for forma você devera criar uma Sub dentro de um módulo para este código, depois atribuir a forma à sub criada. Veja meu exemplo. Modelo_Carrega_Fotos.rar

@paulotucatudo funcionando corretamente aqui, editei com com optAberto selecionado, alterei data retorno, produto, cidade, cliente, tudo certo.

@Andre4, então está fácil, cole este código no botão. On Error GoTo trata_erro Dim FotoNome As String FotoNome = Application.GetOpenFilename(filefilter:= _ "Arquivos de Imagem(*.jpg),*.jpg", Title:="Selecione uma imagem") If FotoNome <> "False" Then Folha3.Foto_Produto.Picture = LoadPicture(FotoNome) End If trata_erro: If Err.Number = 53 Then End End If RafaVillani

@paulotuca segue a planilha com as modificações desejadas. RafaVillani Relação de Orçamento - TESTE capacidade.rar

@Andre4 Fiz algumas alterações, veja se lhe atende, a imagem é carregada automaticamente, sem a necessidade de se clicar em um botão, basta entrar com o valor de pesquisa na célula AD1. Para testar precisei retirar suas fórmulas das células Ano, Cliente e Nome da Pasta, redigite estas fórmulas e teste a planilha, se precisar poste novamente. RafaVillani Modelo_Carrega_Fotos.rar

@ROSANO100, Que pena, sem problemas, vou continuar quebrando a cabeça com o Visual, assim que conseguir algo eu posto aqui. RafaVillani

@Andre4Bom dia, não seria mais fácil carregar a imagem em um controle de imagem? Poderia anexar um modelo da sua planilha para facilitar a ajuda? RafaVillani

@ROSANO100 Bom dia, então, eu instalei o Visual Studio e estava criando o Task Pane por ele, mas vi que existem muitos sub comandos, sub rotinas e sub propriedades. Então eu pesquisei e vi que é possível fazer através do próprio VBA do excel, mas, para isso, precisamos baixar um componente de ferramentas, bom, vamos lá: 1- Baixe e instale a versão Free do A-Tools no seu computador, observe a versão do seu office 32 ou 64 bits, A-Tools Free. 2- Obtenha a imagem que você deseja através da câmera do Excel, e a renomeie como "Imagem". 3- Abra o editor do VBA, insira um novo userform, e adicione um componente de imagem. 4- Na guia de propriedades do userform altere a propriedade ShowModal do userform para False. 5- Insira um novo módulo e cole este código: Sub Carregar_Imagem() Dim Plan As String Dim PastaNome As String Dim oImage As Shape Dim oSheet As Worksheet Dim oTemp As ChartObject Dim oChartArea As Chart Plan = Plan1.Name PastaNome = ThisWorkbook.Path & Application.PathSeparator & "imagem.gif" Set oSheet = Plan1 Set oImage = oSheet.Shapes.Item("Imagem") oImage.CopyPicture Set oTemp = oSheet.ChartObjects.Add(100, 100, oImage.Width, oImage.Height) Set oChartArea = oTemp.Chart oTemp.Activate With oChartArea .ChartArea.Select .Paste .Export Filename:=PastaNome, filtername:="GIF" End With UserForm1.Image1.Picture = LoadPicture(PastaNome) oTemp.Delete End Sub 6- Duplo clique no Userform1, apague as linhas e cole este código: Public WithEvents TP As BSTaskPane Private Sub UserForm_Initialize() Dim TPs As New BSTaskPanes Set TP = TPs.Add("Task Pane", Me, False, dpRight) Call Carregar_Imagem End Sub 7- No evento Change da sua planilha onde está a Imagem, cole este código: Private Sub Worksheet_Change(ByVal Target As Range) Call Carregar_Imagem End Sub No meu modelo os dados e a imagem estão na plan1, altere conforme sua planilha. 8- No evento Open da sua pasta de trabalho cole este código: Private Sub Workbook_Open() UserForm1.Show UserForm1.TP.Visible = True End Sub Sua TaskPane está pronta, espero que lhe atenda. RafaVillani

@paulotucaBem observado, eu havia alterado para fazer alguns testes e esqueci de voltar ao normal. Substitua o código dentro do evento change do cbbobs por este: If Me.cbbStatus.Value <> "Cancelado" And Me.cbbobs.Value = "Preço" Then MsgBox "Preço disponível apenas para status Cancelado!", vbInformation Me.cbbobs.Value = Empty Else Me.txtObs.Text = Me.cbbobs.Value End If RafaVillani

@ROSANO100Gravei um pequeno vídeo, é isso que você precisa? RafaVillani Task Pane Tempo Real.rar

@paulotucaPara ser bem honesto, não sei o por que desse erro. Para corrigir eu apenas copiei toda a planilha cancelados e colei em aberto, creio que seja algo com a tabela. Testei as três planilhas aqui, estão funcionando. RafaVillani Relação de Orçamento - TESTE capacidade.rar

Aqui também deu esse erro, segue a planilha corrigida. RafaVillai Relação de Orçamento - TESTE capacidade.rar

@josequali, veja se lhe atende. RafaVillani modelo_restricao_textbox.rar

@paulotucaBom dia! Paulo, eu já havia descoberto a causa, porém, me esqueci de lhe dizer. Não tem nada de errado com o código, não é erro. O que está ocorrendo é que quando damos o duplo clique no listbox1 na maioria das vezes damos um clique involuntário no listbox2, porque eles estão praticamente sobrepostos um ao outro, e isso nos fez crer que o código estava errado. Faça o teste, atribua False para a propriedade Enabled do listbox2, você irá ver que funciona normalmente, uma vez que não ocorrer este clique involuntário. Já havia percebido isso também, o que está ocorrendo é que os dados referentes ao Preço estão sendo salvos como texto e não como número, dessa forma o excel não reconhece e não faz a soma, siga esses passos: 1) Retire a linha de comando do evento BeforeUpdate do txtpreço; 2) Na planilha cancelados, selecione toda a coluna preço e formate como Contábil, 2 casas decimais, e com o simbolo de R$. 3) Na sub Salvar, altere todas as linhas UserForm2.txtpreco.Text, por UserForm2.txtpreco.Value. Lembrando que quando for entrar com o preço, para que não ocorra erro no na soma e não interfira no gráfico, entre com esse formato, por exemplo 12.500,00, deverá ser digitado 12500.50. RafaVillani

Olá, @Wagner Wilian Guarato, veja se lhe atende: =SE(A1>8;1;SE(E(A1<8;A1>4);2;SE(A1<5;3))) No exemplo os valores serão digitados na célula A1. RafaVillani

@ROSANO100Tudo bem, sem problemas. Então, não consegui visualizar o painel, primeiro deu erro de localização confiável, contornei o erro adicionando uma localização, depois deu erro no arquivo do visual studio (vsto). O código que lhe passei não ajudou em nada? A lógica é de que o componente que está carregando a imagem da câmera seja atualizado a cada modificação na planilha. Para isso, a cada modificação na planilha é gerada uma nova imagem que é salva no local da sua pasta de trabalho, e carregada no componente. RafaVillani

@ROSANO100 Posso não ter visto os painéis de tarefas, muito menos ter criado um com o visual studio, porém, entendo um pouquinho de programação, inclusive VB. Sei que não é a solução para seu problema, mas, pode lhe dar uma luz. Fiz no VBA, usando a ferramenta image, ela é atualizada em tempo real, basta você digitar a linha e coluna que deseja alterar e inserir o novo valor. Se não for isso, me desculpe, minha intenção era somente ajudar, e espero que alguém com maior conhecimento lhe auxilie. Foto_Form_Tempo_Real.rar

@ROSANO100Teria como você disponibilizar a planilha para download? Assim fica mais fácil ajudar. RafaVillani

@ROSANO100Mas é só colocar a foto, e está pronto! Segue o exemplo. RafaVillani modelocamera.xlsx

@paulotucaVeja se é isto que você quer! RafaVillani Relação de Orçamento - TESTE capacidade.rar

@paulotucame tire uma dúvida, você somente digitará o preço no no txtobs se o status for cancelado?

@paulotucaÉ possível sim, mas ai termos que alterar o projeto praticamente todo, acrescentar mais uma coluna nas tabelas das planilhas, alterar a exibição dos listbox e seus eventos cliques, os botões de ação, a sub salvar, ou seja, praticamente teremos que alterar o projeto todo. Pensei em uma saída, já que não existe a possibilidade de se selecionar mais de uma opção no cvv obs, deixe como está, se no cbbobs for selecionado outros na txtobs você entra com a observação, se o status for cancelado e no cbbobs for preço, na txtobs você entra com o preço. A escolha é sua. RafaVillani

@ROSANO100Só me tire uma dúvida, você quer uma imagem dinâmica de uma determinada área da planilha, ou seja, ao se alterar os dados na área imagem seja atualizada em tempo real? RafaVillani

Olá @ROSANO100, veja este vídeo no youtube, na descrição você encontra o arquivo para download. Vídeo RafaVillani

@josequaliColoque o Call filtro no evento Terminate do userform2. RafaVillani