Bom dia,
Tenho o seguinte trecho de código (abaixo) para deletar o registro do UserForm, porém está ocorrendo o erro que demonstro no anexo "Erro.png".
Código:
Sub Deletar()
bloqueado = True
Dim tabela As ListObject
Dim n As Integer, l As Integer
Set tabela = Planilha1.ListObjects(1)
n = UserForm1.ListBox1.Value
l = tabela.Range.Columns().Find(n, , , xlWhole).Row
UserForm1.ListBox1.RowSource = ""
tabela.Range.Rows(l).Delete
Call Atualizar_ListBox
Call LimparCampos
MsgBox "O Registro foi deletado"
bloqueado = False
End Sub
Podem me auxiliar por gentileza?
Obrigado!
Tenho o seguinte trecho de código (abaixo) para deletar o registro do UserForm, porém está ocorrendo o erro que demonstro no anexo "Erro.png".
Código:
Sub Deletar()
bloqueado = True
Dim tabela As ListObject
Dim n As Integer, l As Integer
Set tabela = Planilha1.ListObjects(1)
n = UserForm1.ListBox1.Value
l = tabela.Range.Columns().Find(n, , , xlWhole).Row
UserForm1.ListBox1.RowSource = ""
tabela.Range.Rows(l).Delete
Call Atualizar_ListBox
Call LimparCampos
MsgBox "O Registro foi deletado"
bloqueado = False
End Sub
Podem me auxiliar por gentileza?
Obrigado!
- Anexos
- Erro.png
- Você não tem permissão para fazer download dos arquivos anexados.
- (32 Kb) Baixado 4 vez(es)