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.

Citação

tabela_clientes.Range(n, 3).Value = Sistema.cbb_sexo.Value

@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á!