Usuário com melhor resposta
Erro em tempo de execução '6': - Estouro

Pergunta
-
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
Respostas
-
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 diniabr2011@gmail.com
- Marcado como Resposta RodrigoScheler sexta-feira, 3 de abril de 2020 13:16
-
Boa noite.
No caso, o mais recomendado seria:
Dim novo As Long
Abraço.
Filipe Magno
- Marcado como Resposta RodrigoScheler sexta-feira, 3 de abril de 2020 13:17
Todas as Respostas
-
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
- Editado 'Natan Silva terça-feira, 31 de março de 2020 21:08
-
Boa noite.
No caso, o mais recomendado seria:
Dim novo As Long
Abraço.
Filipe Magno
- Marcado como Resposta RodrigoScheler sexta-feira, 3 de abril de 2020 13:17
-
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 -
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
-
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 diniabr2011@gmail.com
- Marcado como Resposta RodrigoScheler sexta-feira, 3 de abril de 2020 13:16
-
-