Fóruns
Microsoft Excel - 2...
2024 - Fórmulas Ava...
Erro em Tempo de Ex...
 
Notifications
Clear all

Erro em Tempo de Execução 424 "Objeto não Encontrado"

 
2024 - Fórmulas Avançadas - Funções Microsoft Excel
Post Recente por olavo69 10 anos atrás
6 Posts
3 Usuários
0 Reactions
1,203 Visualizações
RSS
 olavo69
(@olavo69)
Posts: 3
New Member
Topic starter
 

Olá pessoal

Eu tenho uma macro antiga em uma planilha que compila informações, e do nada ela começou a dar

Erro em Tempo de Execução 424 "Objeto não Encontrado"

Já tentei varias coisas mas não consegui fazer ela volar ao normal, você poderiam me ajudar.

Segue arquivo.

Private Sub CommandButton1_Click()
Sheets(2).Unprotect
Sheets(2).Range("A:AB").ClearContents
Sheets(2).Cells(3, 4).Value = ComboBox1.Text
l = Sheets(1).UsedRange.Rows.Count
linha = 6
For z = 1 To 29
Sheets(2).Cells(5, z).Value = Sheets(1).Cells(1, z).Value
Next z
For x = 1 To l
With Sheets(1)
If .Cells(x, 1).Value = ComboBox1.Text Then
For y = 1 To 29
Sheets(2).Cells(linha, y).Value = .Cells(x, y).Value
Sheets(2).Cells(linha, y).Select
Next y
linha = linha + 1
End If
End With
Next x
Sheets(2).Range("A1").Select
Sheets(2).Protect
End Sub

Private Sub Worksheet_Activate()
ComboBox1.Clear
ComboBox1.AddItem (" 01/2014")
ComboBox1.AddItem (" 02/2014")
ComboBox1.AddItem (" 03/2014")
ComboBox1.AddItem (" 04/2014")
ComboBox1.AddItem (" 05/2014")
ComboBox1.AddItem (" 06/2014")
ComboBox1.AddItem (" 07/2014")
ComboBox1.AddItem (" 08/2014")
ComboBox1.AddItem (" 09/2014")
ComboBox1.AddItem (" 10/2014")
ComboBox1.AddItem (" 11/2014")
ComboBox1.AddItem (" 12/2014")

End Sub

 
Postado : 16/01/2015 11:26 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Eu tenho a impressão que sei exatamente o que está acontecendo...

Faça o seguinte, acredite e faça. Feche Excel, Access, tudo que for do Office.

1) Abra o Windows Explorer
2) Na barra de endereços, cole isso: %appdata%..LocalTemp
3) Na barra de pesquisa digite: *.EXD
4) Apague todos os arquivos EXD que forem encontrados. *(Se não quiser apagar (por medo), mova-os para outro lugar. Não se preocupe, o Excel identificará que eles estão ausentes e os criará novamente.)
5) Reabra seu arquivo e verá que tudo volta ao normal.

Avisa aê se deu certo, dps explico os por quês!

FF

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/01/2015 11:31 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Dei uma olhada rápida:

Vc conferiu se tem um "comboBox1" com esse nome?

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 16/01/2015 11:33 am
 olavo69
(@olavo69)
Posts: 3
New Member
Topic starter
 

KKKKKKKKKKKKKKKKKKKK

Que isso cara, deu certo sim amigo funcionou perfeitamente.

quando deletei tudo e tentei de novo funcionou normal.

valeu!

 
Postado : 16/01/2015 11:38 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

ÉÉÉÉÉÉ AMIGO, fróids !!!

Isso acontece devido a algumas atualizações do Windows... A MS instala uns KB (nome das atualizações) que destroem os arquivos EXD e o Excel para de encontrar os objetos ActiveX na planilha. Tipo assim, eles estão lá, o código está lá. Tudo funcionava antes dessa atualização. Mas ninguém liga os fatos.

Basta apagar os EXD que o Excel os cria novamente do jeito que deveriam estar, e tudo volta a funfar perfeitamente... Ixi isso acontece em média uma vez a cada 2 anos, e me deparei com esse problema no inicio dessa semana de novo, por isso que eu já estava preparado pra te responder.
Eu na verdade já sabia que uma hora ia aparecer alguém com o problema....

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/01/2015 11:46 am
 olavo69
(@olavo69)
Posts: 3
New Member
Topic starter
 

kkkkkkkkkk

Beleza então amigo, muito obrigado pela ajuda!

 
Postado : 16/01/2015 12:10 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico