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