Andreza Santos

@Basole Cara você resolveeuuu!! Muito obrigada!! @Edson Luiz Branco @Gabriel25121997 Valeu demais pela ajuda de vocês!!

@Basole Meu office é o 365...

@Basole Obrigada pelo ajuste!! Você poderia tentar criar um novo registro (Não sei se já fez esse teste)? Pois mesmo com esse ajuste, toda vez que tento registrar algo via formulário, o erro ocorre.

@Edson Luiz Branco @Gabriel25121997 Segue arquivo para darem uma olhada. @Edson Luiz Branco, eu tentei também o Planilha3.Activate, porém sem sucesso. sistema.zip

@Gabriel25121997 Testei e nadaa!! O mesmo erro e sempre na linha "tabela_carros.ListRows.Add Range("IDC").Value = id + 1"...Se eu desativo essa linha, ai funciona! Porém preciso que ela seja adicionada e que coloque o valor nela, não sei outra forma de fazer isso sem utilizar o "ListRows.Add".

@Gabriel25121997 Tenho, mas é em outro módulo, nem pensei que poderia afetar esse em questão... Esse módulo "Inserir_carros" adiciona o valor do campo cbb_clientes na planilha, e esse campo é atualizado com valores de uma outra planilha, como mostro no módulo "Atualizar_listclientes" um pouco mais abaixo. Sub Inserir_carros() Dim tabela_carros As ListObject Dim i As Integer, idc As Integer Set tabela_carros = Planilha4.ListObjects(1) idc = Range("IDC").Value i = tabela_carros.Range.Rows.Count tabela_carros.Range(i, 1).Value = idc tabela_carros.Range(i, 2).Value = Sistema.cbb_clientes.Value tabela_carros.Range(i, 3).Value = Sistema.txt_modelo.Value tabela_carros.Range(i, 4).Value = Sistema.txt_placa.Value tabela_carros.ListRows.Add Range("IDC").Value = id + 1 MsgBox "Cadastrado com sucesso!", vbInformation, "Informação" End Sub O campo cbb_clientes é atualizado com valores da planilha, ele é atualizado no módulo abaixo: Sub Atualizar_listclientes() Dim tabela As ListObject Set tabela = Planilha3.ListObjects(1) Sistema.cbb_clientes.RowSource = tabela.DataBodyRange.Address(, , , True) Sistema.cbb_clientes.ColumnCount = 2 End Sub

@Gabriel25121997 Tenho o Combobox "Sexo", ele adiciona os valores "Masculino" ou "Feminino" na tabela.

@Gabriel25121997 Eu estou enfrentando o mesmo erro, mas infelizmente ainda não consegui resolver, será que consegue me ajudar? Meu código: Option Explicit Sub Inserir_clientes() Dim tabela_clientes As ListObject Dim n As Integer, id As Integer Set tabela_clientes = Planilha3.ListObjects(1) id = Range("ID").Value n = tabela_clientes.Range.Rows.Count tabela_clientes.Range(n, 1).Value = id tabela_clientes.Range(n, 2).Value = Sistema.txt_nome.Value tabela_clientes.Range(n, 3).Value = Sistema.cbb_sexo.Value tabela_clientes.Range(n, 4).Value = Sistema.txt_telefone.Value tabela_clientes.Range(n, 5).Value = Sistema.txt_cep.Value tabela_clientes.Range(n, 6).Value = Sistema.txt_endereco.Value tabela_clientes.Range(n, 7).Value = Sistema.txt_numero.Value tabela_clientes.Range(n, 8).Value = Sistema.txt_bairro.Value tabela_clientes.Range(n, 8).Value = Sistema.txt_local.Value tabela_clientes.ListRows.Add Range("ID").Value = id + 1 MsgBox "Cadastrado com sucesso!", vbInformation, "Informação" End Sub O objetivo é adicionar na planilha as informações do UserForm, e ele até faz isso, porém da o erro de "Tempo de execução '-2147417848 - O método 'Add' do objeto 'ListRows' falhou" não adiciona a nova linha e fecha tanto o VBA quanto a planilha... Não sei como contornar... Agradeço desde já!