none
ERRO EM TEMPO DE EXECUÇÃO 1004 RRS feed

  • Pergunta

  • Oi gente sou novo no vba e acompanhando uma vídeo aula, ao depurar uma parte do código apresentou o seguinte erro ( O método Range do Objeto_Global Falhou )

    segue onde esta dando o erro

    Private Sub BtnSalvar_Click()
    Dim lin As Long
    Dim Quest As VbMsgBoxResult

    Quest = MsgBox("Confimar Cadastro ?", vbQuestion + vbYesNo, "CADASTRO")
    If Quest = vbNo Then Exit Sub

    PNL_Cadastro.Select
    lin = Range("A1").End(xlDown).Row + 1
    Range("A" & lin) = txtid.Text
    quinta-feira, 24 de setembro de 2020 19:03

Todas as Respostas

  • https://youtu.be/cD7p8S0InHo

    A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz diniabr2011@gmail.com

    • Sugerido como Resposta AndersonFDiniz2 quinta-feira, 24 de setembro de 2020 19:33
    quinta-feira, 24 de setembro de 2020 19:32
  • Bom dia.

    Verifique o valor da variável "lin". Caso seja a última linha da planilha vai gerar erro mesmo, pois está tentando escrever uma linha após a última.


    Filipe Magno

    sexta-feira, 25 de setembro de 2020 14:03
  • Private Sub CommandButton1_Click()
    
    Dim lin As Long
    Dim Quest As VbMsgBoxResult
    
    Quest = MsgBox("Confimar Cadastro ?", vbQuestion + vbYesNo, "CADASTRO")
    If Quest = vbNo Then Exit Sub
    
    PNL_Cadastro.Select
    
    lin = Range("A" & Rows.Count).End(xlUp).Row + 1
    Range("A" & lin) = txtid.Text
    End Sub


    A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz diniabr2011@gmail.com

    sexta-feira, 25 de setembro de 2020 15:12