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