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 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 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 Esta correto sim. 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 Ótima notícia, espero que ele tenha uma rápida recuperação. 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

@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 @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. Continua da mesma forma, a alteração é somente em relação ao salvamento dos dados. 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. 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

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

@paulotucaÉ possível sim, preciso dos dois arquivos para poder ver essa questão. 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

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

@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

@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

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