Excel erro no código excluir vba excel

[paulotuca]

@RafaVillani Bom dia, Tudo bem com você?

 

Me ajuda em uma situação, a planilha para imprimir eu posso, e como colocar quebra de linha para sair o nome completo na impressão.

[RafaVillani]

Olá @paulotuca, estou bem, obrigado, e você?

 

Pode usar quebra de linha sim, não irá atrapalhar o código.

Estou tentando elaborar através do botão imprimir, assim que conseguir posto para você.

 

RafaVillani

[paulotuca]

2 horas atrás, RafaVillani disse:

Olá @paulotuca, estou bem, obrigado, e você?

 

Estou bem também obrigado.

2 horas atrás, RafaVillani disse:

Pode usar quebra de linha sim, não irá atrapalhar o código.

Estou tentando elaborar através do botão imprimir, assim que conseguir posto para você.

 

 A legal, a interessante, eu tive que fazer uma alteração no projeto, onde era o campo observação o usuário tinha o texto livre para escrever, iver que colocar um combobox para ele incluir apenas o que eu quero, mais queria deixar uma opção tipo, outros e ai abrir uma txt para digitar.

2 horas atrás, RafaVillani disse:

RafaVillani

 

[RafaVillani]

@paulotuca

59 minutos atrás, paulotuca disse:

mais queria deixar uma opção tipo, outros e ai abrir uma txt para digitar.

Veja se lhe atente, não se esqueça de alterar a propriedade additem do cbbobs no evento initialize do userform2, conforme sua necessidade.

 

RafaVillani

Relação de Orçamento - TESTE capacidade.rar

[paulotuca]

2 horas atrás, RafaVillani disse:

@paulotuca

Veja se lhe atente, não se esqueça de alterar a propriedade additem do cbbobs no evento initialize do userform2, conforme sua necessidade.

 

RafaVillani

 

@RafaVillani A ideia é exatamente essa, uma pergunta sei que pode não ser possivel como tambem pode.

 

no cbbObs uma das opção seria "PREÇO" principalmente quando o status for cancelado eu queria saber se é possivel abrir ou ter campos que compare o  nosso preço com preço da concorrência e nos de a diferença em porcentagem e valor. é possivel?

o outros que você fez esta ótimo.

 

2 horas atrás, RafaVillani disse:

Relação de Orçamento - TESTE capacidade.rar 344 kB · 4 downloads

 

[RafaVillani]

@paulotucaOnde estariam essas informações? Você teria uma base de dados com os preços de outros fornecedores?

 

RafaVillani

[paulotuca]

1 hora atrás, RafaVillani disse:

@paulotucaOnde estariam essas informações? Você teria uma base de dados com os preços de outros fornecedores?

 

RafaVillani

@RafaVillani não seria digitado por um usuário, conforme informação de clientes, mais isso seria só para ter uma ideía.

 

[paulotuca]

@RafaVillani

Eu fiz uma alteração nesta ultima planilha apenas nas informações do cbbobs e inclui os textos, alterei o código onde libera o textbox apenas a palavra de outros para preço, isso é o que vai me atender. e na cbbstatus, cbbvendedor e txtorcamento eu só inclui o código, para pintar o campo, como em todos os outros

If Me.cbbStatus <> "" Then
    Me.cbbStatus.BackColor = &HFFFFFF
End If
cbbStatus.Value = UCase(cbbStatus.Value)

e na planilha do gráfico eu retirei os estados que não atendemos.

e com isso eu fui fazer alteração em um cadastro não salvou, o que será que mudei de errado?

vou incluir a planilha aqui.

Relação de Orçamento - 160421-0945.rar

[RafaVillani]

@paulotucaRetire esta linha de comando cbbStatus.Value = UCase(cbbStatus.Value) do evento change do cbbStatus , as letras maiúsculas estão conflitando com as letras minúsculas já cadastradas no seu banco de dados, ou seja, para o VBA "EM ABERTO" é diferente de "Em Aberto", quando a condição é testada é retornado o valor falso, e as alterações não são salvas.

 

Ou, se quiser deixar você deverá acrescentar o comando UCase na sub salvar em todos os procedimentos IF que estejam verificando a condição do cbbStatus, ficando assim: 

If UserForm2.cbbStatus.Text = UCase(Planilha1.Cells(l, 17)) Then

 

RafaVillani

 

14 horas atrás, paulotuca disse:

campos que compare o  nosso preço com preço da concorrência e nos de a diferença em porcentagem e valor. é possivel?

o outros que você fez esta ótimo.

Em tempo, tem como fazer sim, o preço da concorrência será inserido no txtObs?

[paulotuca]

3 horas atrás, RafaVillani disse:

@paulotucaRetire esta linha de comando cbbStatus.Value = UCase(cbbStatus.Value) do evento change do cbbStatus , as letras maiúsculas estão conflitando com as letras minúsculas já cadastradas no seu banco de dados, ou seja, para o VBA "EM ABERTO" é diferente de "Em Aberto", quando a condição é testada é retornado o valor falso, e as alterações não são salvas.

@RafaVillani muito obrigado, nunca teria ideia desse conflito, fiz de tudo aqui antes de ver sua resposta para ver se eu achava o erro mais não consegui, depurei milhares de vezes e não entendia, e era exatamente isso o que você disse deu tudo certo.

 

3 horas atrás, RafaVillani disse:

Ou, se quiser deixar você deverá acrescentar o comando UCase na sub salvar em todos os procedimentos IF que estejam verificando a condição do cbbStatus, ficando assim: 

If UserForm2.cbbStatus.Text = UCase(Planilha1.Cells(l, 17)) Then

 

RafaVillani

 

 

3 horas atrás, RafaVillani disse:

Em tempo, tem como fazer sim, o preço da concorrência será inserido no txtObs?

Minha ideia era onde você colocou o txtObs dividir ela em duas ou algo diferente, tipo se eu optar no cbbobs pelo preço abri  o campo txtpreço para o usuário digitar o valor, e se escolher outros abri o campo para ele digitar o motivo, isso seria possivel?

[RafaVillani]

@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 

[paulotuca]

18 minutos atrás, RafaVillani disse:

@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 

Claro Rafa que pode ser essa ideia, eu pense em possibilidades mais pratica não achei que seria tão complexo.

[RafaVillani]

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

[paulotuca]

2 minutos atrás, RafaVillani disse:

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

Sim, apenas se for cancelado, para fazer uma pesquisa por quanto perdemos a venda e o que podemos fazer para melhorar

[RafaVillani]

@paulotucaVeja se é isto que você quer!

 

RafaVillani

Relação de Orçamento - TESTE capacidade.rar

[paulotuca]

Em 16/04/2021 às 17:45, RafaVillani disse:

@paulotucaVeja se é isto que você quer!

 

RafaVillani

Relação de Orçamento - TESTE capacidade.rar 334 kB · 0 downloads

@RafaVill bom dia!

 

Sim isso me atende sim, muito obrigado.

 

Bom eu vou anexar a planilha aqui de novo para ver como ficou o gráfico com as cidades que alterei, para mim aqui não esta atualizando. 

e Outra coisa para finalizar este projeto, queria saber se alguma maneira de pesquisar e arrumar aquele problema  da consulta no ultimo nome da listbox não aceitar o duploclick.

[RafaVillani]

@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

[paulotuca]

2 horas atrás, RafaVillani disse:

@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

@RafaVill ok muito obrigado tudo funcionando nesta parte.

Mas sem querer descobri um erro de novo rsrs

quando vou consultar e uso o optonbutton cancelar, e digito o numero de orçamento aparece o seguinte erro, como imagem abaixo

 

O em aberto e vendidos não da este erro

[RafaVillani]

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

[paulotuca]

16 minutos atrás, RafaVillani disse:

Aqui também deu esse erro, segue a planilha corrigida.

 

RafaVillai

Relação de Orçamento - TESTE capacidade.rar 347 kB · 0 downloads

@RafaVillani por favor me explica onde estava esse erro por gentileza, porque eu não tenho ideia de onde era.

@RafaVillani pergunto porque esta dando o erro agora no aberto e infelizmente eu não sei onde é:(

 

[RafaVillani]

@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

[paulotuca]

41 minutos atrás, RafaVillani disse:

@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 323 kB · 0 downloads

@RafaVillani Boa tarde!

 

Realmente era um bug no meu pc ou sei-la voltou a funcionar normal agora. professor, o cbbobs não registra na planilha? 

[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

[paulotuca]

@RafaVillani Bom dia Rafa.

Bom eu gostei demais da planilha mais vou excluir um intem que acho que vou fazer de outra forma depois, quero limpar a parte dos gráficos vou retirar eles. e isso faço de uma outra forma, onde posso excluir?

E no cbbobs vou incluir um item "OUTROS" e deixar o campo txtobs livre para digitação seria possivel?

 

[RafaVillani]

@paulotuca segue a planilha com as modificações desejadas.

 

RafaVillani

Relação de Orçamento - TESTE capacidade.rar