Excluir Linha da Li...
 
Notifications
Clear all

Excluir Linha da Listbox

2 Posts
1 Usuários
0 Reactions
1,207 Visualizações
(@tiagogn)
Posts: 61
Trusted Member
Topic starter
 

Pessoal,

Boa noite.

Já pesquisei no fórum e inúmeras páginas para tentar solucionar um erro no código que coloquei para apagar uma determinada linha da planilha e também retirar a linha correspondente na listbox porém está dando erro.

O engraçado é que copiei esse mesmo código, de uma outra listbox da planilha, porém só alterei o nome da listbox.

Ele funciona até a exclusão da linha correspondente na planilha porém no momento do .RemoveItem, para tirar a linha da listbox, apresenta "Erro em Tempo de Execução" ... "Erro não Especificado".

Mando depurar e ele mostra, em amarelo: ListBoxPesquisaRecebimento1.RemoveItem (ListBoxPesquisaRecebimento1.ListIndex)

Dim iltbox, itens, xID, c, Resp
Private Sub btnExcluirRecebimento_Click()

itens = Me.ListBoxPesquisaRecebimento1.ListCount

For iltbox = 0 To itens - 1
    If Me.ListBoxPesquisaRecebimento1.Selected(iltbox) Then
        xID = Me.ListBoxPesquisaRecebimento1.List(iltbox)
    End If
    
Next iltbox

With Worksheets("Recebimento").Range("C:C")

    Set c = .Find(xID, LookIn:=xlValues, Lookat:=xlPart)
    
If Not c Is Nothing Then

c.Activate

Resp = MsgBox("Confirmar a Exclusão do Registro?", vbYesNo, "Confirmar")

If Resp = vbYes Then
c.Select
Selection.EntireRow.Delete
ListBoxPesquisaRecebimento1.RemoveItem (ListBoxPesquisaRecebimento1.ListIndex)

MsgBox "Registro Excluído!", vbInformation, "Excluir"

Else
MsgBox "Registro não Excluído!", vbInformation, "Aviso"

End If

End If

End With
End Sub

Alguém consegue me dar uma luz por favor???

Atenciosamente,

Tiago Gonçalves

 
Postado : 17/12/2016 8:45 pm
(@tiagogn)
Posts: 61
Trusted Member
Topic starter
 

Fala pessoal!!

Bom dia.

Alguém teria uma solução para este erro por favor?

Pensei em executar novamente o comando de pesquisar porém acho que isso vai carregar ainda mais o/a "sistema"/planilha, já que ele vai fazer a busca na planilha novamente.

O que vocês acham? O que vocês sugerem?

Muito obrigado!!

Abs

Atenciosamente,

Tiago Gonçalves

 
Postado : 21/12/2016 8:00 am