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

  • 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

    terça-feira, 31 de março de 2020 14:42

Respostas

Todas as Respostas