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,213 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

(@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!

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

(@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