none
Problema no código ERRO DE TEMPO DE EXECUÇÃO '13' RRS feed

  • Pergunta

  • Bom dia, estou com problema no meu código, de erro em tempo de execução. Ja não sei como resolver, hora funciona, hora não.

    Algúem pra me salvar por favor?!

    Private Sub cmdSALVAR_Click()
    
            Dim tabela As ListObject
            
            
            Call validacaoCampos
            If validacaoCampos = False Then
                MsgBox "Atenção!! Campo sem preenchimento.", vbCritical, "Injetora 1300-3"
                Exit Sub
            End If
            
            
            i = Cells(1, 1).Select
            i = ActiveCell.FormulaR1C1
            
            Cells(i, 1).Select
            ActiveCell.FormulaR1C1 = txtData.Value
            
            Cells(i, 2).Select
            ActiveCell.FormulaR1C1 = txtRegsitro
            
            Cells(i, 3).Select
            ActiveCell.FormulaR1C1 = txtPartNumber
            
            Cells(i, 4).Select
            ActiveCell.FormulaR1C1 = cboMaquina.Value
            
            Cells(i, 5).Select
            ActiveCell.FormulaR1C1 = cboTurno.Value
            
            Cells(i, 6).Select
            ActiveCell.FormulaR1C1 = txtInicioProd
            
            Cells(i, 7).Select
            ActiveCell.FormulaR1C1 = txtTerminoProd
                                  
            Cells(i, 8).Select
            ActiveCell.FormulaR1C1 = cboSetup.Value
            
            Cells(i, 9).Select
            ActiveCell.FormulaR1C1 = cboPP.Value
            
            Cells(i, 10).Select
            ActiveCell.FormulaR1C1 = cboPME.Value
            
            Cells(i, 11).Select
            ActiveCell.FormulaR1C1 = cboPMM.Value
            
            Cells(i, 12).Select
            ActiveCell.FormulaR1C1 = cboPF.Value
            
            Cells(i, 13).Select
            ActiveCell.FormulaR1C1 = cboPMAN.Value
            
            Cells(i, 14).Select
            ActiveCell.FormulaR1C1 = cboOP.Value
            
            Cells(i, 15).Select
            ActiveCell.FormulaR1C1 = txtOBS
            
            'Cells(i, j).Select
            'ActiveCell.FormulaR1C1 = "dfdf"
      
            Cells(1, 1).Select
            ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 + 1
            
            Call limparCampos
    
            
    End Sub


    terça-feira, 19 de julho de 2016 12:43

Todas as Respostas

  • Olá!

    Em que linha ocorre o erro?

    E o código da rotina ValidacaoCampos?

    Uma sugestão para reescrever o seu código:

    Private Sub cmdSALVAR_Click() Dim tabela As ListObject Dim ws As Worksheet Dim i As Long Call validacaoCampos If validacaoCampos = False Then MsgBox "Atenção!! Campo sem preenchimento.", vbCritical, "Injetora 1300-3" Exit Sub End If Set ws = ThisWorkbook.Worksheets("Plan1") 'Aqui o nome da planilha onde serão gravadas as informações! With ws i = .Cells(1, 1).Value .Cells(i, 1).Value = txtData.Value .Cells(i, 2).Value = txtRegsitro .Cells(i, 3).Value = txtPartNumber .Cells(i, 4).Value = cboMaquina.Value .Cells(i, 5).Value = cboTurno.Value .Cells(i, 6).Value = txtInicioProd .Cells(i, 7).Value = txtTerminoProd .Cells(i, 8).Value = cboSetup.Value .Cells(i, 9).Value = cboPP.Value .Cells(i, 10).Value = cboPME.Value .Cells(i, 11).Value = cboPMM.Value .Cells(i, 12).Value = cboPF.Value .Cells(i, 13).Value = cboPMAN.Value .Cells(i, 14).Value = cboOP.Value .Cells(i, 15).Value = txtOBS .Cells(1, 1).Value = .Cells(1, 1).Value + 1 End With

    msgbox "Cadastrado com sucesso!" End Sub




    Rafael Kamimura - http://excelmaniacos.com



    terça-feira, 19 de julho de 2016 18:29