RafaVillani

Olá @josequali, crie um módulo e declare as variáveis da seguinte forma:

Public nomevariavel as (tipo da sua variavel)

Veja o modelo em anexo, duplo clique no listbox, abre o userform2 e preenche as textbox.

RafaVillani

modelo_public_var.rar

@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?

@paulotucaNão, dificilmente você terá problemas com isso. Pode utilizar esta ferramenta tranquilamente.

RafaVillani

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

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 para você trocar o banco de dados da sua planilha será necessário a modificação de todo o código, uma vez que o Access utiliza a linguagem SQL, e todo o seu código foi feito tendo como banco de dados o próprio excel. 

Uma solução seria você habilitar o modo de compartilhamento da sua pasta de trabalho, todos os usuários terão acesso de forma simultânea.

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

6 minutos atrás, paulotuca disse:

esta correto?

Esta correto sim.

6 minutos atrás, paulotuca disse:

E Sobre o gráfico como fazemos para atualizar ele automático ou clicando no button gráfico?

O gráfico é automático, não precisa de atualização, ele é atualizado sempre que a planilha cancelados é modificada e sempre que o userform é aberto o código gera uma nova imagem .gif que é carregada na ferramenta de imagem.

RafaVIllani

@paulotucaVeja se é isso que você quer.

RafaVillani

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

@paulotuca

43 minutos atrás, paulotuca disse:

Sim saiu do hospital já padrasto estava bem ruim senhor de 86 anos mais ja passou

Ótima notícia, espero que ele tenha uma rápida recuperação.

44 minutos atrás, paulotuca disse:

Eu devo finalizar esse tópico e se eu precisar de ajuda abro outro, tem como classificar você?

Não sei se precisa finalizar esse tópico porque você terá outras dúvidas, por outro lado, o tópico é sobre erro durante a exclusão de dados, o que ja foi resolvido. Mas se quiser pode finalizar, e quando aparecem novas dúvidas você abre um novo post. Para classificar clique no no último post que enviei enviei a planilha e clique em Resolvido.

RafaVillani

@paulotucaEsse vírus não é brincadeira não, infelizmente a situação do Brasil está muito longe de melhorar, espero que seu familiar esteja bem.

Bom, que ótimo que a planilha está funcionando e que você esteja satisfeito com o resultado de minha ajuda. 
 

Vejo que você é bastante esforçado, isso é bom, tenho pra mim que a melhor forma de se aprender é quebrando a cabeça mesmo, tentando e errando até conseguir, estudando códigos já prontos, no YouTube tem bastante material, vários cursos, seria bacana você dar uma olhada depois.

No mais, o que precisar de ajuda estou aqui.

RafaVillani

@paulotucaPlanilhas de impressão devidamente alteradas e funcionando, não consegui inserir a Capacidade na impressão, e para caber tive que concatenar Cidade e UF na mesma célula (somente para impressão, no banco de dados continuam separados), dessa forma não haverá mais problemas quando algum dado for excluído.

RafaVillani

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

7 minutos atrás, paulotuca disse:

Na impressão depurei e fica neste erro 

@paulotucaComo eu disse, dessa forma não vai ser possível fazer a impressão, eu não havia levado em consideração a exclusão de dados, teremos que elaborar outra forma para imprimir, me informe quais os dados você quer que conste na impressão.

Fez as correções no evento Click do listbox e no botão excluir que eu lhe passei? 

RafaVillani

@paulotucaFiz o teste aqui e esse erro somente ocorre se você excluir os dados da ultima linha do listbox, isso ocorre porque após a exclusão a linha abaixo da que foi excluída é selecionada, quando você exclui a ultima linha a seleção da próxima linha não ocorre, porque ela não existe, logo, a variável A() fica vazia e o erro ocorre. Para contornar, substitua o código no evento clique do listbox por esse:

Dim Texto As String, A() As String
Texto = Me.ListBox2.List(ListBox2.ListIndex, 10)
If Texto <> Empty Then
    A() = Split(Texto, "x")
    Me.txtcapacidade.Value = A(0)
    Me.txtDiametro.Value = A(1)
    Me.txtMetro.Value = A(2)
End If

Me.txtID.Value = Me.ListBox2.List(ListBox2.ListIndex, 0)
Me.txtorcamento.Value = Me.ListBox2.List(ListBox2.ListIndex, 1)
Me.txtdata.Value = CDate(Me.ListBox2.List(ListBox2.ListIndex, 2))
Me.txtHora.Value = Format(Me.ListBox2.List(ListBox2.ListIndex, 3), "HH:MM:SS")
Me.cbbVendedor.Value = Me.ListBox2.List(ListBox2.ListIndex, 4)
Me.txtcliente.Value = Me.ListBox2.List(ListBox2.ListIndex, 5)
Me.txtcidade.Value = Me.ListBox2.List(ListBox2.ListIndex, 6)
Me.txtuf.Value = Me.ListBox2.List(ListBox2.ListIndex, 7)
Me.obpadrao.Value = Me.ListBox2.List(ListBox2.ListIndex, 8)
Me.cbbProduto.Value = Me.ListBox2.List(ListBox2.ListIndex, 9)
Me.txtpreco.Value = Me.ListBox2.List(ListBox2.ListIndex, 11)
Me.txtContato.Value = Me.ListBox2.List(ListBox2.ListIndex, 12)
Me.txttelefone.Value = Me.ListBox2.List(ListBox2.ListIndex, 13)
Me.txtcelular.Value = Me.ListBox2.List(ListBox2.ListIndex, 14)
Me.txtemail.Value = Me.ListBox2.List(ListBox2.ListIndex, 15)
Me.cbbStatus.Value = Me.ListBox2.List(ListBox2.ListIndex, 16)
Me.txtDataDeRetorno.Value = Me.ListBox2.List(ListBox2.ListIndex, 17)
Me.txtObs.Value = Me.ListBox2.List(ListBox2.ListIndex, 18)

@paulotucaEm tempo, dentro do botão Excluir, inclua essas quatro linhas de comando após a linha Call Excluir.

Me.txtcapacidade = Empty
Me.txtDiametro = Empty
Me.txtMetro = Empty

Me.txtdata = Empty

RafaVillani

35 minutos atrás, paulotuca disse:

consequentemente fazendo os testes de exclusão reparei que quando excluo os orçamentos pelo formulário a planilha em aberto fica da seguinte forma.

e depois o erro na hora de imprimir

@paulotucaEu não havia lavado em consideração essa situação, realmente quando você excluir algum dado consequentemente irá dar erro nas planilhas de impressão, teremos que elaborar outra forma para impressão, da forma que fiz não funcionará, me informe qual os dados você quer que sejam impressos, irei fazer via código essa impressão.

RafaVillani

@paulotuca

Dim Texto As String, A() As String 
Texto = Me.ListBox2.List(ListBox2.ListIndex, 10) 
A() = Split(Texto, "x")

A primeira linha contém a declaração das variáveis Texto e A(), sendo A um vetor, ambas do tipo String.

Na segunda linha a variável texto recebe o valor da listbox correspondente à capacidade.

Na terceira linha a variável A() recebe o valor da variável Texto, porém dividido, onde Split (dividir) divide o texto armazenado de acordo com a condição "x".

Vejamos esse exmplo: 1.5522m³ x Ø 25,20 x 30,00m
 

O comando irá dividir o texto sempre que encontrar o valor "x", e armazenará na variável A(), começando na posição 0, ficando assim.

A(0)=1.5522m³

A(1)=Ø 25,20

A(2)=30,00m

Se existisse uma quarta medida, altura, por exemplo, 1.5522m³ x Ø 25,20 x 30,00m x 30 Altura, seria criada uma nova posição na variável A, onde altura seria armazenada na posição A(3). Ficando assim: A(3)=30

Me.txtcapacidade.Value = A(0)
Me.txtDiametro.Value = A(1)
Me.txtMetro.Value = A(2)

Aqui os valorem contidos nas posições 0, 1 e 2 da variável A são descarregados nos respectivos textbox.

Espero que a explicação não tenha ficado confusa.

RafaVillani

@paulotucaSegue a planilha com as devidas modificações. Lembrando que agora os dados serão salvos nas planilhas conforme sua seleção no cbbStatus, por esta razão, inclui este componente na lista de obrigatórios.

47 minutos atrás, paulotuca disse:

o consultar com o option buton continua do mesmo jeito que esta né?

Continua da mesma forma, a alteração é somente em relação ao salvamento dos dados.

48 minutos atrás, paulotuca disse:

A capacidade só não consegui fazer a consultar cada item aparecer em seu box, item 25m³ o item Ø 25,20 e o item 25,00m eles aparecem todos juntos

Corrigido, cada medida aparece na sua devida textbox.

RafaVillani

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

@paulotucaBom dia, espero que seu familiar esteja bem.

29 minutos atrás, paulotuca disse:

Rafa entendi o que esta acontecendo, se eu preencher um novo cadastro com o optionbutom na page consultar marcado cancelar, vai para a planilha certa mais se eu deixar o option buton em vendido por exemplo, e na hora de preencher o novo cadastro mesmo que eu selecione o cbbstatus cancelado ele vai para a planilha vendido que esta o optionbuton selecionado

Foi exatamente isso que eu disse na minha postagem anterior. Se quiser podemos alterar o critério para salvar conforme o cbbstatus.

Disponibilize a planilha para download, irei fazer essa alteração e olhar a questão do txtcapacidade.

RafaVillani 

2 horas atrás, paulotuca disse:

@RafaVillani  Deixa citar um problema que tive hoje, preenchendo a planilha percebi que ao preencher uma certa quantia de linhas ela não salva mais EX. preenchi 9 cadastro para a planilha cancelado ou nove linhas, se eu preencher mais alguma coisa não vai para a planilha cancelados ela esta indo para a planilha formulario(em abertos).

@paulotucaacabei de testar aqui, fiz 10 cadastros seguidos, e todos foram salvos na planilha cancelados, veja a foto. Lembre-se, os dados serão salvos na planilha cujo botão de opção está selecionado, ou seja, se quiser cadastrar na planilha cancelados, tenha certeza que o botão de opção Cancelados esteja selecionado.

53 minutos atrás, paulotuca disse:

@RafaVillani professor Boa tarde!

O preenchimento ficou certo agora na hora da consulta para mostrar os textbox esta ficando tudo bagunçado poderia me ajudar?

Disponibilize a planilha para download.

RafaVillani

@paulotucaUsando o mesmo exemplo que o @AfonsoMira lhe passou no outro tópico.

Na sub salvar você deverá alterar todas as linhas de comando onde aparece UserForm2.txtcapacidade.Text, substituindo por esta

 UserForm2.Textbox1.value & "m³ x Ø" &  UserForm2.Textbox2.value & " x " &  UserForm2.Textbox3.value &"m"

Não se esqueça de alterar o nome das textbox1, 2 e 3, para o nome das textbox que você atribuiu.

Também não se esqueça de fazer as devidas correções nos botões, Novo, Editar, Cancelar e Salvar.

Se você não conseguir anexe a planilha que irei ajudar.

RafaVillani

@paulotucaesse erro pode estar acontecendo porque a variável NOME não está declarada, altere a linha:

Dim name as String

por

Dim NOME as String

Acho que isso resolve o problema.

1 hora atrás, paulotuca disse:

Bom eu tentei colocar no userform2 um gráfico sendo extraido de uma outra planilha, mais não obtive êxito sabe me dizer se é possivel ter um notão no userform para mostrar um gráfico?

@paulotucaÉ possível sim, preciso dos dois arquivos para poder ver essa questão.

1 hora atrás, paulotuca disse:

o que poderia ser, as vezes na hora de preencher o formulário de cadastro eu aperto o tab para mudar de caixa de texto e ela fica dentro do mesmo campo dando espaço, o que pode ser?

Testei aqui, e sempre o cursor vai para a próxima box, mas você pode conferir a propriedade tabindex de cada objeto do formulário, você pode numerar os objetos para que sigam a ordem de acordo com a numeração dada a cada um deles.

RafaVillani

1 minuto atrás, paulotuca disse:

Neste caso seria apenas para bloquear quem sabe entrar no VBA correto, não seria em caso de erro na planilha e volta para o VBA em modo de depuração?

Isso, o erro vai ocorrer, mas a pessoa não terá acesso ao projeto VBA.

1 hora atrás, paulotuca disse:

Bom Rafa eu voltei ele para Unload me.

@paulotucasomente não esqueça de corrigir quando o projeto estiver terminado.

Quanto ao erro, preciso saber onde está dando o erro para poder ver a possibilidade do tratamento de erro.

Para inserir senha no projeto, no menu do VBA clique em ferramentas, depois em propriedades VBA project, uma tela será aberta, vá para a aba segurança, digite a senha e clique em Ok.

RafaVillani

Em 01/04/2021 às 00:32, RafaVillani disse:

Bom, para corrigir o erro do formulário substitua a linha de comando Unload Me por Application.Quit (esta opção fecha todos os arquivos abertos do excel) ou se preferir ThisWorkbook.Close (fecha somente a planilha que contem o formulário), porém, aconselho, no momento, deixar como está, ou fazer a alteração e habilitar, por hora, o botão fechar do formulário.

@paulotuca, por esse motivo eu aconselhei a habilitar o botão fechar do formulário.

A questão do erro em outro PC pode ser por causa de incompatibilidade de versões do office, pode ser contornado de duas formas, um tratamento de erro ou simplesmente proteger o projeto VBA com senha.

RafaVillani

10 minutos atrás, paulotuca disse:

Tenho mais desafios esta dispostos a me ajudar?

@paulotucaClaro, tentarei ajudar no que for possível.

RafaVillani