Erro em tempo de execução '6': - Estouro

Question

E ai galera, entendo muito pouco de Excel. Criei uma tabela pra cadastro, e tava normal até esses dias, quando fui abrir novamente pra fazer um cadastro deu esse erro. Alguem poderia me ajudar por favor.   SEGUE ABAIXO O CODIGO

Private Sub BtSalvar_Click()

Dim novo As Integer

novo = Range("A1").CurrentRegion.Rows.Count + 1

Cells(novo, 1).Value = TextBox1.Value
Cells(novo, 2).Value = TextBox2.Value
Cells(novo, 3).Value = TextBox3.Value
Cells(novo, 4).Value = TextBox4.Value
Cells(novo, 5).Value = TextBox5.Value
Cells(novo, 6).Value = TextBox6.Value

MsgBox "Desenho cadastrado com Sucesso!", vbInformation, "CADASTRADO"

Ordenar

Me.TextBox1 = ""
Me.TextBox2 = ""
Me.TextBox3 = ""
Me.TextBox4 = ""
Me.TextBox5 = ""
Me.TextBox6 = ""


End Sub

Answer 1

Rodrigo

Isso acontece porque integer só recebe número até 32767.

altere:

Dim novo As Integer

para

Dim novo As Double

Fonte: https://docs.microsoft.com/pt-br/office/vba/language/reference/user-interface-help/data-type-summary

Abraço!

---

Natan

Answer 2

Boa noite.

No caso, o mais recomendado seria:

Dim novo As Long

Abraço.

---

Filipe Magno

Answer 3

Tentei esse tbm e da outro erro de execução '1004'

Private Sub BtSalvar_Click()

Dim novo As Long

novo = Range("A1").CurrentRegion.Rows.Count + 1

Cells(novo, 1).Value = TextBox1.Value
Cells(novo, 2).Value = TextBox2.Value
Cells(novo, 3).Value = TextBox3.Value
Cells(novo, 4).Value = TextBox4.Value
Cells(novo, 5).Value = TextBox5.Value
Cells(novo, 6).Value = TextBox6.Value

Answer 4

Tentei e da outro erro em tempo de execução '1004'

Private Sub BtSalvar_Click()

Dim novo As Double

novo = Range("A1").CurrentRegion.Rows.Count + 1

Cells(novo, 1).Value = TextBox1.Value
Cells(novo, 2).Value = TextBox2.Value
Cells(novo, 3).Value = TextBox3.Value
Cells(novo, 4).Value = TextBox4.Value
Cells(novo, 5).Value = TextBox5.Value
Cells(novo, 6).Value = TextBox6.Value

Answer 5

https://drive.google.com/file/d/1TrfrOmljivbDdBrdaGFNXkUb9mJsGiEC/view?usp=sharing

---

A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz [e-mail]

Answer 6

Muito Obrigado! Valeu mesmo!

Answer 7

MESMO ASSIM AINDA ESTOU COM PROBLEMAS. SEGUE ANEXO O ARQUIVO QUE MANDEI NO SEU E-MAIL

SE PUDER ME AJUDAR EU AGRADEÇO!

OBRIGADO DESDE JA!