Vídeo recomendado
https://youtu.be/diWPPPhW-9E

ERRO EM TEMPO DE EXECUÇÃO 1004[ RESOLVIDO]

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
mukask4
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Qua Set 16, 2020 1:41 am

ERRO EM TEMPO DE EXECUÇÃO 1004[ RESOLVIDO]

Mensagem por mukask4 »

[/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
Editado pela última vez por mukask4 em Sex Set 25, 2020 10:48 am, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: ERRO EM TEMPO DE EXECUÇÃO 1004

Mensagem por webmaster »

Na linha antes do erro, coloque o seguinte:

Debug.Print(A" & lin)

Abra a Janela de Verificação Imediata.

O que aparece?


mukask4
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Qua Set 16, 2020 1:41 am

Re: ERRO EM TEMPO DE EXECUÇÃO 1004

Mensagem por mukask4 »

ao colocar Debug.Print("A" & lin) , na verificação imediata aparece -----> A1048577
Logo após da o mesmo erro no range


Avatar do usuário
Reinaldo
Jedi
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

Mensagem por Reinaldo »

Aparentemente a coluna A referenciada não possui registros, o que resulta em "tentar" inserir dado em um endereço inexistente


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Tov Elen Shau
Manda bem
Manda bem
Mensagens: 173
Registrado em: Qua Mai 17, 2017 2:27 pm

Re: ERRO EM TEMPO DE EXECUÇÃO 1004

Mensagem por Tov Elen Shau »

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


mukask4
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Qua Set 16, 2020 1:41 am

Re: ERRO EM TEMPO DE EXECUÇÃO 1004[ RESOLVIDO]

Mensagem por mukask4 »

Oi amigo, consegui resolver o erro aqui de outra forma , mas agradeço muito pela ajuda 🙏 , obrigado.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder