Excel erro no código excluir vba excel

paulotuca · 8 de abril de 2021

Professor @RafaVillani Bom dia!

No userform2 onde tem o box capacidade na imagem abaixo o que temos de preencher é assim:

1.5522m³ x Ø 25,20 x 30,00m eu gostaria de fazer 3 box um de m³ outro de Ø diâmetro e o terceiro de m metros mais que fosse para a mesma célula e coluna que já temos na planilha seria possivel? eu tinha feito outro tópico sobre isso

RafaVillani · 9 de abril de 2021

@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

paulotuca · 9 de abril de 2021

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

paulotuca · 9 de abril de 2021

8 horas atrás, RafaVillani disse:

@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

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

RafaVillani · 9 de abril de 2021

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

paulotuca · 12 de abril de 2021

Em 06/04/2021 às 06:42, RafaVillani disse:

@paulotucaBom dia, fiz as devidas correções no formulário de cadastro de usuários, dessa forma a planilha usuário pode permanecer oculta.

Finalizei as planilhas de impressão, somente não pude testar.

Essas são as fórmulas que buscam os dados para serem impressos.

Deu pra dar uma boa relaxada, obrigado.

RafaVillani

Com Botão - Relação de produtos ABRIL.rar 332 kB · 4 downloads

Bom dia @RafaVillani Desculpe pela demora com esse covid tive problemas na familia e não trabalhei mais com planilha, mais hoje estou voltado.

Bom realmente esta ultima planilha que estou usando na hora de cadastrar ela não esta indo para a planilha cancelado mesmo selecionando o cbbstatus ela esta ficando no formulario em aberto.

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

RafaVillani · 12 de abril de 2021

@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

paulotuca · 12 de abril de 2021

23 minutos atrás, RafaVillani disse:

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

Bom dia! desculpe eu não tinha entendido, mais se mudar o salvar para o cbbstatus o consultar com o option buton continua do mesmo jeito que esta né? porque ficou muito bom.

23 minutos atrás, RafaVillani disse:

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

RafaVillani

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

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

RafaVillani · 12 de abril de 2021

@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

paulotuca · 12 de abril de 2021

4 horas atrás, RafaVillani disse:

@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 330 kB · 8 downloads

Nossa perfeito professor @RafaVillani Rafa poderia me explicar esse código que usou não conhecia e gostaria saber

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

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.txtcapacidade.Value = A(0)
Me.txtDiametro.Value = A(1)
Me.txtMetro.Value = A(2)
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)
End Sub

RafaVillani · 12 de abril de 2021

@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

paulotuca · 12 de abril de 2021

5 minutos atrás, RafaVillani disse:
@paulotuca
Dim Texto As String, A() As String 
Texto = Me.ListBox2.List(ListBox2.ListIndex, 10) 
A() = Split(Texto, "x")
A primeira linha contem a declaração das variáveis Texto e A(), sendo A um vetor, ambas do tipo String

Na segunda linha a vará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).
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

Ficou bem claro professor irei estudar mais sobre ele para colocar em prática.

Professor tem que alterar alguma coisa na sub excluir por quando vou excluir da o seguinte erro

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

RafaVillani · 12 de abril de 2021

@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 · 12 de abril de 2021

Na impressão depurei e fica neste erro

RafaVillani · 12 de abril de 2021

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

paulotuca · 12 de abril de 2021

agora, RafaVillani disse:

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

Professor e se deixar ele para salvar em pdf como eu fiz e sem querer e depois imprimir daria certo?

Mais as informações que atende seria

Orça. - data - Vendedor - Cliente - Modelo - Preço - Observações - se por acaso couber Cidade - Uf e Capacidade.

agora, RafaVillani disse:

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

RafaVillani

Sim coloquei os dois código como falou, planilha em anexo.

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

RafaVillani · 12 de abril de 2021

@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

paulotuca · 13 de abril de 2021

14 horas atrás, RafaVillani disse:

@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 327 kB · 4 downloads

@RafaVillani Bom dia professor, bom primeiramente peço desculpas a demora em entrar como disse anteriormente essa pandemia me trouxe algumas dor de cabeça para resolver.

Mais fiz todos os testes aqui e esta perfeito tudo funcionando perfeitamente.

Agora preciso trabalhar em cima do gráfico de mapa para saber onde estou perdendo as no caso da planilha cancelado saber os estados que estou perdendo venda.

Eu agradeço muito por toda a ajuda e estou todos os dias estudando os códigos que você usou para eu poder aprender mais.

@RafaVillani posso colocar o no botão novo o comando txtorcamento.setfocus, para iniciar o cadastro?

RafaVillani · 13 de abril de 2021

@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

paulotuca · 13 de abril de 2021

12 minutos atrás, RafaVillani disse:

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

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

12 minutos atrás, RafaVillani disse:

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

Sua ajuda, sua humildade e paciência sem palavras só tenho a agradecer. e se o que eu puder fazer e avaliar recomendar seu trabalho sempre poderá contar comigo.

12 minutos atrás, RafaVillani disse:

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.

Sim eu tento ao máximo que posso, e pesquiso bastante, estou fazendo o curso de VBA no site da UDEMY, com videos no youtube e este site que pra mim você e seus companheiros ai me ajudou muito, porque aqui já estou vendo código que não aprendi ainda.

12 minutos atrás, RafaVillani disse:

No mais, o que precisar de ajuda estou aqui.

RafaVillani

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

RafaVillani · 13 de abril de 2021

@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

paulotuca · 13 de abril de 2021

1 hora atrás, RafaVillani disse:

@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

@RafaVillani Vou fazer um gráfico onde a planilha cancelado tem que me dar qual estado estou perdendo as vendas. seja mostrando o gráfico em bolhas ou por cores. tem alguma dica?

RafaVillani · 13 de abril de 2021

@paulotucaVeja se é isso que você quer.

RafaVillani

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

paulotuca · 13 de abril de 2021

35 minutos atrás, RafaVillani disse:

@paulotucaVeja se é isso que você quer.

RafaVillani

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

@RafaVillani acabei aqui reparando em um detalhe, quando fazemos a consulta com optionbuton cancelado quando damos o duploclick o valor que retorna na page cadastro esta sem formatação de moeda. eu fiz a seguinte alteração:

no listbox2 no evento click esta com esse código

Me.txtpreco.Value = (Me.ListBox2.List(ListBox2.ListIndex, 11)

eu alterei para

Me.txtpreco.Value = Format(Me.ListBox2.List(ListBox2.ListIndex, 11), "R$ #,##0.00")

esta correto?

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

Essa planilha que esta em anexo é só para teste não é a que finalizamos ok mais seria básicamente isso que tinha em mente de fazer na aba gráfico já agregando o userform que você fez.

Com Botão - Relação de produtos - 13-04-2021.rar

RafaVillani · 13 de abril de 2021

@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