Excel erro no código excluir vba excel

[paulotuca]

Bom dia!

 

Estou tentando arrumar este código para excluir o arquivo selecionado e não estou conseguindo da o seguinte erro:

quando clico em excluir volta para esta tela:

e não esta excluindo a linha selecionado, minha tabela esta assim entro no consultar no lisbox dou 2 cliques e ele volta para a aba cadastro e ai eu deveria editar e ou exlcuir.

Sub Excluir()
bloqueado = True
Dim tabela As ListObject
Dim n As Integer, l As Integer, x As Integer
Set tabela = Planilha1.ListObjects(1)

For x = 0 To UserForm2.ListBox2.ListCount

      If UserForm2.ListBox2.Selected(x) = True Then
         l = x
         x = UserForm2.ListBox2.ListCount + 1
      End If

Next x

tabela.Range.Rows(l).Delete <<<<<aqui ocorreo o erro>>>>>>>>>

Call atualizar_listbox
MsgBox "O Registro foi excluido"
Call limparcampos(UserForm2)
bloqueado = False

End Sub

 

Com Botão - Relação de produtos - teste 08-03.rarBuscando informações...

[AfonsoMira]

@paulotuca Boas, 

Veja se é isto que pretende:

Com Botão - Relação de produtos - teste 08-03.zipBuscando informações...

[paulotuca]

Bom dia. me desculpe tantas perguntas e incomodar mais estou estudando trabalhando bastante para entender e aprender sobre VBA, essa planilha que você enviou logo ao clicar nela da essa msg.

 

Depois seleciono na aba consultar dou dois clicks no listbox ele volta para a aba cadastro ele só excluir se o listbox da aba cadastro estiver selecionado e queria que exxluise o que eu já selecionei antes, e na segunda exclusão da o seguinte erro.

 

 

clico em depurar o erro fica marcado esse linha 

 

Sub Excluir()
bloqueado = True
Dim tabela As ListObject
Dim n As Integer, l As Integer
Set tabela = Planilha1.ListObjects(1)

n = UserForm2.ListBox1.Value <<<<<aqui aconte o erro>>>>>>
l = tabela.Range.Columns().Find(n, , , xlWhole).Row

tabela.Range.Rows(l).Delete

Call atualizar_listbox
MsgBox "O Registro foi excluido"
Call limparcampos(UserForm2)
bloqueado = False

End Sub

 

[RafaVillani]

Ola, veja se lhe atende.

 

Abraços

Com Botão - Relação de produtos - teste 08-03.rarBuscando informações...

[paulotuca]

Boa tarde!

 

@RafaVillani ao licar na planilha ja da esse erro aqui 

 

@RafaVillani para excluir tenho que deixar selecionado no listbox2 da aba cadastro né? tem como eu dar 2 clicks e na aba consulta e esse já ficar selecionado para excluir?

[RafaVillani]

  Em 11/03/2021 às 16:39, paulotuca disse:

ao licar na planilha ja da esse erro aqui 

Expandir  

Aqui não esta ocorrendo esse erro, abre normalmente.

  Em 11/03/2021 às 16:39, paulotuca disse:

para excluir tenho que deixar selecionado no listbox2 da aba cadastro né? tem como eu dar 2 clicks e na aba consulta e esse já ficar selecionado para excluir?

Expandir  

Mas já esta dessa forma.

 

Veja as fotos.

[paulotuca]

Boa tarde @RafaVillani perfeito estava certo eu abri a planilha errada, eu já estou quase para desistir desta planilha será que consegue me ajudar na parte editar, queria fazer a mesma coisa dois cliques e ir para aba cadastro e la poder editar mais edita só a primeira depois não faz mais 

  Em 11/03/2021 às 16:55, RafaVillani disse:

Aqui não esta ocorrendo esse erro, abre normalmente.

Mas já esta dessa forma.

 

Veja as fotos.

Expandir  

 

 

Poderia me dize qual foi a alteração que você fez para poder analisar meus erros, por favor

[RafaVillani]

Prezado Paulo, segue a plainilha.

 

Abraços

Com Botão - Relação de produtos - teste 08-03.rarBuscando informações...

[RafaVillani]

Segue novamente a planilha, havia um erro que foi corrigido.

Com Botão - Relação de produtos - teste 08-03.rarBuscando informações...

[paulotuca]

Bom dia @RafaVillani

 

Obrigado pela grande ajuda só reparei um detalhe aqui.

quando clico e consultar e dou dois clicks e vou em alterar não esta alterando e sim incluindo outro cadastro abaixo.

[RafaVillani]

Caro Paulo, aqui esta funcionando perfeitamente. Segue novamente a planilha e um vídeo demonstrativo.

 

RafaVillani

Com Botão - Relação de produtos - teste 08-03.rarBuscando informações... Video.rarBuscando informações...

[paulotuca]

Bom dia @RafaVillani

A sim agora achei ontem estamos se desentendo rsrsrs, o local que esta dando o erro é apenas na caixa de texto de Nº ORÇ nas outras esta perfeito, faça o teste ai por gentileza e peço mil desculpas pelo incomodo

[RafaVillani]

  Em 12/03/2021 às 11:45, paulotuca disse:

Bom dia @RafaVillani

A sim agora achei ontem estamos se desentendo rsrsrs, o local que esta dando o erro é apenas na caixa de texto de Nº ORÇ nas outras esta perfeito, faça o teste ai por gentileza e peço mil desculpas pelo incomodo

Expandir  

Sim, isso é perfeitamente compreensível, uma vez que a edição se baseia no numero do orçamento, ou seja, se o orçamento já existe o programa edita, se não existe ele cria um novo registro. Irei alterar para que a edição seja baseada no ID.

 

@paulotuca, fiz a devida alteração, a edição, agora, está baseada no número do ID.

 

Abraços

 

RafaVillani

Com Botão - Relação de produtos - teste 08-03.rarBuscando informações...

[paulotuca]

@RafaVillani rafa agora sim só não entendi algumas alterações que você fez mais vou estudar todos os códigos esse final de semana inteiro, agradeço muito a sua ajuda.

Obs. eu tinha colocado os campos obrigatórios, quando alguem clicar em salvar a caixa de texto ficar vermelha e avisar que é obrigatório, agora com essa alteração. ela fica vermelha, da o aviso, mais ai ele inclui na planilha e da a msgbox de editado com sucesso e não consigo mais fazer nada.

[RafaVillani]

  Em 12/03/2021 às 12:38, paulotuca disse:

msgbox de editado com sucesso e não consigo mais fazer nada.

Expandir  

@paulotuca, para corrigir adicionei a linha Exit Sub dentro de todos os If no botão salvar. Segue.

 

RafaVillani

Com Botão - Relação de produtos - teste 08-03.rarBuscando informações...

[paulotuca]

@RafaVillani Amigo será que posso desistir dessa planilha e começar de novo? kkk

cara agora quando vou editar fecha e como não sei código que usou não consigo arrumar

[RafaVillani]

@paulotuca, Encontrei o erro, mas ainda não sei a causa. O que está ocorrendo é que após você editar pela primeira vez e salvar, os listbox estão perdendo a numeração das linhas, ou seja, se você selecionar uma linha o programa entende que a linha anterior foi selecionada. Não sei se terá como eu olhar durante o final de semana. Mas, qualquer coisa eu posto.

 

RafaVillani

[paulotuca]

Professor se achar melhor começar do zero e mudar tudo eu prefiro porque vou ser sincero remendei muitos códigos nela. mais agradeço a sua atenção e tempo comigo, e quando puder me avise obrigado.

[RafaVillani]

@paulotucaBom dia. Segue a planilha. Não sei o porque, ainda não entendi, mas estava ocorrendo algum conflito apos chamar a função limpar_campos, por isso o editar funcionava apenas uma vez, estava fazendo testes e resolvi retirar a função do botão salvar, funcionou perfeitamente sem a função de limpar.

 

Abraços 

 

RafaVillani

Com Botão - Relação de produtos - teste 08-03.rarBuscando informações...

[paulotuca]

Boa tarde Professor @RafaVillani eu durante o final de semana tinha feito esse mesmo teste sem a função limpar campos mais agradeço muito a sua atenção e dedicação.

Me deparei com a seguinte questão, a hora eu tinha colocado no userform assim:

Private Sub UserForm_Initialize()

    txtdata = Date
    txtHora = Time
    txtdata.Enabled = False
    txtHora.Enabled = False

Mais este nem sempre fica no formato de hora esta aparecendo números 0,12122212112121

e pelo que vi então tenho bastante códigos que esta nestas planilha para excluir  né?

[RafaVillani]

@paulotucaFaça o seguinte, substitua a linha do txtHora nos eventos duplo clique do listbox1 e clique do listbox2 por essa:

txtHora.Value = Format(ListBox2.List(ListBox2.ListIndex, 3), "HH:MM:SS")

 

RafaVillani

[paulotuca]

Professor @RafaVillani no cadastro novo esta incluindo na mesma linha

[RafaVillani]

  Em 15/03/2021 às 17:33, paulotuca disse:

no cadastro novo esta incluindo na mesma linha

Expandir  

@paulotuca, segue a planilha corrigida, eu havia me esquecido de incluir o comando para limpar a seleção do listbox2 no botão novo, também corrigi a questão do ID e da hora.

 

RafaVillani

Com Botão - Relação de produtos - teste 08-03.rarBuscando informações...

[paulotuca]

Boa noite professor @RafaVillani caramba você e muito bom mesmo, conseguiu arrumar minha bagunça de código.

professor se não for meu pc ou o excel percebi que o ultima linha do listbox da aba consultar não funciona o duploclick será que pode conferir.

Agora algo que não sei fazer e gostaria de aprender existe a possibilidade de ao selecionar o combobox status cada item como ex. Vendido, Retorno e Cancelado ter sua própria planilha e ter um controle mensal?

e você teria alguma dica para essa planilha ficar mais profissional, mais rapida e melhorar ela?

 

[RafaVillani]

@paulotucaBom dia. 

  Em 16/03/2021 às 01:08, paulotuca disse:

percebi que o ultima linha do listbox da aba consultar não funciona o duploclick será que pode conferir.

Expandir  

De uma olhada agora, esta funcionando, mas as vezes pega o registro errado, ainda não identifiquei essa inconsistência no código.

 

  Em 16/03/2021 às 01:08, paulotuca disse:

Agora algo que não sei fazer e gostaria de aprender existe a possibilidade de ao selecionar o combobox status cada item como ex. Vendido, Retorno e Cancelado ter sua própria planilha e ter um controle mensal?

Expandir  

Tem sim, criei as planilhas Vendido, Retorno e Cancelado, faça a estrutura das mesmas e, posteriormente, envio o código.

 

  Em 16/03/2021 às 01:08, paulotuca disse:

e você teria alguma dica para essa planilha ficar mais profissional, mais rapida e melhorar ela?

Expandir  

Vou fazer mais testes e te respondo.

 

RafaVillani

Com Botão - Relação de produtos - teste 08-03.rarBuscando informações...