Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 ETE 57121 e 32809

Ir para baixo 
2 participantes
AutorMensagem
celliusctba




Mensagens : 23
Data de inscrição : 17/10/2013

ETE 57121 e 32809 Empty
MensagemAssunto: ETE 57121 e 32809   ETE 57121 e 32809 EmptySex Fev 21, 2014 5:16 pm

Como vocês são feras, gostaria muito dessa ajuda...

É o seguinte, minha planilha que é a mesma que postei aqui sempre funcionou bem, mas agora ela ao entrar na planilha dá o seguinte erro, impossibilitando de usá-la (usei 1 ano sem problemas):


Erro em tempo de execução '57121'
Erro de definição de aplicativo ou definição de objeto

assim que clico em fim já aparece essa:

Erro em tempo de execução '32809'
Erro de definição de aplicativo ou definição de objeto


e não posso inserir novos dados, nem buscar nada Sad


Se clico em depurar, vai na linha:

Private Sub cmdDocumento_Click()
'Verificar se foi digitado um nome na primeira caixa de texto
If txtCPF.Text = "" Then
MsgBox "Pesquisar pelo Número de Identificação do Visitante"
txtCPF.SetFocus
GoTo Linha1
End If
With Worksheets("Dados Visitantes").Range("A:A")
Set c = .Find(txtCPF.Value, LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
c.Activate
txtCPF.Value = c.Value
txtNome.Value = c.Offset(0, 1).Value
txtEndereco.Value = c.Offset(0, 2).Value
cboEstado.Value = c.Offset(0, 3).Value
cboCidade.Value = c.Offset(0, 4).Value
txtTelefone.Value = c.Offset(0, 5).Value
txtEmail.Value = c.Offset(0, 6).Value

End If
End With
Linha1:
End Sub



Alguém sabe o que significa????

Desde já agradeço, pois sempre soluciono os problemas com vocês!
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

ETE 57121 e 32809 Empty
MensagemAssunto: Re: ETE 57121 e 32809   ETE 57121 e 32809 EmptySex Fev 21, 2014 5:50 pm

Bom dia!!

Você alterou a versão que usava antes?
http://support.microsoft.com/kb/178982/pt-br

Tente postar seu arquivo modelo.

Att
Ir para o topo Ir para baixo
celliusctba




Mensagens : 23
Data de inscrição : 17/10/2013

ETE 57121 e 32809 Empty
MensagemAssunto: Re: ETE 57121 e 32809   ETE 57121 e 32809 EmptySex Fev 21, 2014 5:54 pm

Então Alexandre, foi feito no Excel 2010 e está sendo usado no 2010, nada foi mudado! Estranho né!
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

ETE 57121 e 32809 Empty
MensagemAssunto: Re: ETE 57121 e 32809   ETE 57121 e 32809 EmptySex Fev 21, 2014 6:54 pm

Boa tarde!!

Tem como postar o arquivo modelo?

Use um site gratuito como sendspace, depois deposite o link aqui.

Att
Ir para o topo Ir para baixo
celliusctba




Mensagens : 23
Data de inscrição : 17/10/2013

ETE 57121 e 32809 Empty
MensagemAssunto: Re: ETE 57121 e 32809   ETE 57121 e 32809 EmptySex Fev 21, 2014 7:06 pm

http://www.sendspace.com/file/wneq81


Se se consegue interpretar o erro!



Abraços e compreendendo me diz o que é...


rs


Smile
Ir para o topo Ir para baixo
celliusctba




Mensagens : 23
Data de inscrição : 17/10/2013

ETE 57121 e 32809 Empty
MensagemAssunto: Re: ETE 57121 e 32809   ETE 57121 e 32809 EmptySex Fev 21, 2014 9:18 pm

Espero que consiga baixar, está ai. OK!
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

ETE 57121 e 32809 Empty
MensagemAssunto: Re: ETE 57121 e 32809   ETE 57121 e 32809 EmptySex Fev 21, 2014 9:24 pm

Boa tarde!!

E onde está o link?  drunken 

Att
Ir para o topo Ir para baixo
celliusctba




Mensagens : 23
Data de inscrição : 17/10/2013

ETE 57121 e 32809 Empty
MensagemAssunto: Re: ETE 57121 e 32809   ETE 57121 e 32809 EmptySex Fev 21, 2014 9:29 pm

http://www.sendspace.com/file/wneq81



Mas tava acima Alexandre Smile




Smile
Ir para o topo Ir para baixo
celliusctba




Mensagens : 23
Data de inscrição : 17/10/2013

ETE 57121 e 32809 Empty
MensagemAssunto: Re: ETE 57121 e 32809   ETE 57121 e 32809 EmptySex Fev 21, 2014 9:31 pm

https://fs01n3.sendspace.com/dl/98bdb907d545a33467d5241a272f8a16/53079ada37698690/wneq81/Teste.xlsm


Se ainda assim não conseguir tem esse, foi do site que me referendou...


Smile
Ir para o topo Ir para baixo
celliusctba




Mensagens : 23
Data de inscrição : 17/10/2013

ETE 57121 e 32809 Empty
MensagemAssunto: Re: ETE 57121 e 32809   ETE 57121 e 32809 EmptyQui Fev 27, 2014 3:12 pm

Muito difícil?


Conseguiu baixar ao menos?




Obrigado!
Ir para o topo Ir para baixo
Conteúdo patrocinado





ETE 57121 e 32809 Empty
MensagemAssunto: Re: ETE 57121 e 32809   ETE 57121 e 32809 Empty

Ir para o topo Ir para baixo
 
ETE 57121 e 32809
Ir para o topo 
Página 1 de 1

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: