RafaVillani

agora, Andre4 disse:

Não funcionou. Eu colei no botão mas não deu nada.

@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

23 minutos atrás, paulotuca disse:

O em aberto e vendidos não da este erro

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!

27 minutos atrás, paulotuca disse:

problema  da consulta no ultimo nome da listbox não aceitar o duploclick.

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.

32 minutos atrás, paulotuca disse:

para mim aqui não esta atualizando. 

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