Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
ERRO EM TEMPO DE EXECUÇÃO 1004[ RESOLVIDO]
ERRO EM TEMPO DE EXECUÇÃO 1004[ RESOLVIDO]
[/b][/b]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
End Sub
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
End Sub
Editado pela última vez por mukask4 em Sex Set 25, 2020 10:48 am, em um total de 1 vez.
Re: ERRO EM TEMPO DE EXECUÇÃO 1004
Na linha antes do erro, coloque o seguinte:
Debug.Print(A" & lin)
Abra a Janela de Verificação Imediata.
O que aparece?
Debug.Print(A" & lin)
Abra a Janela de Verificação Imediata.
O que aparece?
Re: ERRO EM TEMPO DE EXECUÇÃO 1004
ao colocar Debug.Print("A" & lin) , na verificação imediata aparece -----> A1048577
Logo após da o mesmo erro no range
Logo após da o mesmo erro no range
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: ERRO EM TEMPO DE EXECUÇÃO 1004
Aparentemente a coluna A referenciada não possui registros, o que resulta em "tentar" inserir dado em um endereço inexistente
-
- Manda bem
- Mensagens: 173
- Registrado em: Qua Mai 17, 2017 2:27 pm
Re: ERRO EM TEMPO DE EXECUÇÃO 1004
Colega
Bom dia
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
Sheets("PNL_Cadastro").Select
lin = Sheets("PNL_Cadastro").Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & lin).Value = txtid.Text
End Sub
Atenciosamente
Tov Elen shau
Bom dia
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
Sheets("PNL_Cadastro").Select
lin = Sheets("PNL_Cadastro").Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & lin).Value = txtid.Text
End Sub
Atenciosamente
Tov Elen shau
Re: ERRO EM TEMPO DE EXECUÇÃO 1004[ RESOLVIDO]
Oi amigo, consegui resolver o erro aqui de outra forma , mas agradeço muito pela ajuda , obrigado.