Erro na Caixa de Combinação

LuizTSantos · Mensagem por **LuizTSantos** » Qua Jan 06, 2021 9:52 am

Bom dia turma,

Estou montando um formulário de cadastro no VBA, porém do nada todas as minhas informações que estavam nas caixas de combinações sumiram, sou novo em VBA, peço a ajuda de vocês, vou deixar abaixo todas as linhas para verificarem onde está o erro e me ajudarem.

Código: Selecionar todos

Option Explicit
Global bloqueado As Boolean

Sub inserir()
    bloqueado = True
    Dim tabela As ListObject
    Dim n As Integer, id As Integer
    Set tabela = Planilha1.ListObjects(1)
    id = Range("ID").Value

    n = tabela.Range.Rows.Count
    tabela.Range(n, 1).Value = id
    tabela.Range(n, 2).Value = Userform1.txtnome.Value
    tabela.Range(n, 3).Value = Userform1.txtcpf.Value
    tabela.Range(n, 4).Value = Userform1.cbborg.Value
    tabela.Range(n, 5).Value = Userform1.cbbestado.Value
    tabela.Range(n, 6).Value = Userform1.cbbsexo.Value
    tabela.Range(n, 7).Value = Userform1.txtnascimento.Value
    tabela.Range(n, 8).Value = Userform1.txtrg.Value
    tabela.Range(n, 9).Value = Userform1.txtorg.Value
    tabela.Range(n, 10).Value = Userform1.txtufrg.Value
    tabela.Range(n, 11).Value = Userform1.txtdataemissao.Value
    tabela.Range(n, 12).Value = Userform1.txtnaturalidade.Value
    tabela.Range(n, 13).Value = Userform1.txtufnatu.Value
    tabela.Range(n, 14).Value = Userform1.txtnomepai.Value
    tabela.Range(n, 15).Value = Userform1.txtnomemae.Value
    tabela.Range(n, 16).Value = Userform1.txtendereco.Value
    tabela.Range(n, 17).Value = Userform1.txtcomplemento.Value
    tabela.Range(n, 18).Value = Userform1.txtcidade.Value
    tabela.Range(n, 19).Value = Userform1.txtbairro.Value
    tabela.Range(n, 20).Value = Userform1.txtcep.Value
    tabela.Range(n, 21).Value = Userform1.txtespecie.Value
    tabela.Range(n, 22).Value = Userform1.txtufmat.Value
    tabela.Range(n, 23).Value = Userform1.txtrenda.Value
    tabela.Range(n, 24).Value = Userform1.txttelresid.Value
    tabela.Range(n, 25).Value = Userform1.txtcel.Value
    tabela.Range(n, 26).Value = Userform1.txtbanco.Value
    tabela.Range(n, 27).Value = Userform1.txtagencia.Value
    tabela.Range(n, 28).Value = Userform1.txtcc.Value
    tabela.Range(n, 29).Value = Userform1.txttipo.Value
    tabela.Range(n, 30).Value = Userform1.txttipodeop.Value
    tabela.Range(n, 31).Value = Userform1.txtvalorb.Value
    tabela.Range(n, 32).Value = Userform1.txtvalorl.Value
    tabela.Range(n, 33).Value = Userform1.txtqtde.Value
    tabela.Range(n, 34).Value = Userform1.txtvalorp.Value
    tabela.Range(n, 35).Value = Userform1.txtprimeiro.Value


    Userform1.ListBox1.RowSource = ""
    tabela.ListRows.Add
    Range("ID").Value = id + 1
    Call Atualizar_Listbox
    Call LimparCampos
    MsgBox "Cadastrado Com Sucesso!", vbInformation, "Informação"
    bloqueado = False

End Sub

Sub Editar()

    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
    tabela.Range(l, 2).Value = Userform1.txtnome.Value
    tabela.Range(l, 3).Value = Userform1.txtcpf.Value
    tabela.Range(l, 4).Value = Userform1.cbborg.Value
    tabela.Range(l, 5).Value = Userform1.cbbestado.Value
    tabela.Range(l, 6).Value = Userform1.cbbsexo.Value
    tabela.Range(l, 7).Value = Userform1.txtnascimento.Value
    tabela.Range(l, 8).Value = Userform1.txtrg.Value
    tabela.Range(l, 9).Value = Userform1.txtorg.Value
    tabela.Range(l, 10).Value = Userform1.txtufrg.Value
    tabela.Range(l, 11).Value = Userform1.txtdataemissao.Value
    tabela.Range(l, 12).Value = Userform1.txtnaturalidade.Value
    tabela.Range(l, 13).Value = Userform1.txtufnatu.Value
    tabela.Range(l, 14).Value = Userform1.txtnomepai.Value
    tabela.Range(l, 15).Value = Userform1.txtnomemae.Value
    tabela.Range(l, 16).Value = Userform1.txtendereco.Value
    tabela.Range(l, 17).Value = Userform1.txtcomplemento.Value
    tabela.Range(l, 18).Value = Userform1.txtcidade.Value
    tabela.Range(l, 19).Value = Userform1.txtbairro.Value
    tabela.Range(l, 20).Value = Userform1.txtcep.Value
    tabela.Range(l, 21).Value = Userform1.txtespecie.Value
    tabela.Range(l, 22).Value = Userform1.txtufmat.Value
    tabela.Range(l, 23).Value = Userform1.txtrenda.Value
    tabela.Range(l, 24).Value = Userform1.txttelresid.Value
    tabela.Range(l, 25).Value = Userform1.txtcel.Value
    tabela.Range(l, 26).Value = Userform1.txtbanco.Value
    tabela.Range(l, 27).Value = Userform1.txtagencia.Value
    tabela.Range(l, 28).Value = Userform1.txtcc.Value
    tabela.Range(l, 29).Value = Userform1.txttipo.Value
    tabela.Range(l, 30).Value = Userform1.txttipodeop.Value
    tabela.Range(l, 31).Value = Userform1.txtvalorb.Value
    tabela.Range(l, 32).Value = Userform1.txtvalorl.Value
    tabela.Range(l, 33).Value = Userform1.txtqtde.Value
    tabela.Range(l, 34).Value = Userform1.txtvalorp.Value
    tabela.Range(l, 35).Value = Userform1.txtprimeiro.Value

    Call Atualizar_Listbox
    Call LimparCampos
    MsgBox "O Registro Foi Atualizado"

    bloqueado = False
End Sub

Sub Atualizar_Listbox()
    bloqueado = True
    Dim tabela As ListObject
    Set tabela = Planilha1.ListObjects(1)

    Userform1.ListBox1.RowSource = tabela.DataBodyRange.Address(, , , True)
    bloqueado = False
End Sub

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

Sub LimparCampos()
    Userform1.txtnome.Value = ""
    Userform1.txtcpf.Value = ""
    Userform1.cbborg.Value = ""
    Userform1.cbbestado.Value = ""
    Userform1.cbbsexo.Value = ""
    Userform1.txtemail.Value = ""
    Userform1.txtrg.Value = ""
    Userform1.txtorg.Value = ""
    Userform1.txtufrg.Value = ""
    Userform1.txtdataemissao.Value = ""
    Userform1.txtnaturalidade.Value = ""
    Userform1.txtufnatu.Value = ""
    Userform1.txtnomepai.Value = ""
    Userform1.txtnomemae.Value = ""
    Userform1.txtendereco.Value = ""
    Userform1.txtcomplemento.Value = ""
    Userform1.txtbairro.Value = ""
    Userform1.txtcep.Value = ""
    Userform1.txtmatricula.Value = ""
    Userform1.txtespecie.Value = ""
    Userform1.txtufmat.Value = ""
    Userform1.txtrenda.Value = ""
    Userform1.txttelresid.Value = ""
    Userform1.txtcel.Value = ""
    Userform1.txtbanco.Value = ""
    Userform1.txtagencia.Value = ""
    Userform1.txtcc.Value = ""
    Userform1.txttipo.Value = ""
    Userform1.txttipodeop.Value = ""
    Userform1.txtvalorb.Value = ""
    Userform1.txtvalorl.Value = ""
    Userform1.txtqtde.Value = ""
    Userform1.txtvalorp.Value = ""
    Userform1.txtprimeiro.Value = ""


End Sub

Sub Exibir()

    Userform1.Show

End Sub