Página 1 de 1
Planilha para de funcionar com o tempo
Enviado: 16 Set 2015 às 20:27
por jonathanstelapagno
Boa Noite
Tenho um sisteminha que desenvolvi para a empresa, mas o problema e que conforme vou usando, ele para de funcionar. A partir desse momento só fechando e abrindo denovo, ele trava em alguma determinada tela (aleatória) e só fechando mesmo. Alguém sabe o que pode ser? Ele não trava de não deixar fechar e salvar, pelo contrário ela só deixa fechar e salvar.
Re: Planilha para de funcionar com o tempo
Enviado: 17 Set 2015 às 08:39
por alexandrevba
Bom dia!!
Quais versão você usa, houve um upgrade ou downgrade dessas versões para a atual?
Foi feito os updates da ferramenta?
ou tente a dica do danilo
Faça o seguinte procedimento:
Vai no menu Iniciar / Executar / Digite: "excel /safe" (sem aspas, se quiser copie e cole o comando no Executar)
Click em OK, vai abrir o Excel em modo de segurança
Verifica se ocorre o erro,
Caso persista,
- Ir no editor de registro (Iniciar/Executar/Regedit) e renomear a chave abaixo:
- HKEY_CURRENT_USER\Software\Microsoft\Office para Office.old
Fecha o editor de registro e verifica se ocorre o erro.
Att
Planilha para de funcionar com o tempo
Enviado: 17 Set 2015 às 08:40
por Henrique
Bom dia Jonathan,
Tente desligar a atualização de cálculos automática e ver se o problema persiste.
Espero ter ajudado!
Planilha para de funcionar com o tempo
Enviado: 17 Set 2015 às 08:57
por jonathanstelapagno
Henrique: Não funcionou
Alexandrevba: Em modo segurança, percebi que demorou mais tempo até travar, mas travou. Tentei renomear o registro, mas não é possível.
Planilha para de funcionar com o tempo
Enviado: 17 Set 2015 às 09:18
por Henrique
Jonas,
Já tive um problema parecido com o seu no passado.
Eu resolvi abrindo um novo arquivo do excel e copiando, aba por aba até descobrir qual é que estava causando o problema. Dá trabalho, mas pode ser um caminho.
Se for fazer use o click direito do mouse sobre a aba da planilha que vai copiar para o arquivo novo.
Abraço.
Espero ter ajudado
Re: Planilha para de funcionar com o tempo
Enviado: 16 Jul 2016 às 19:54
por jonathanstelapagno
Será que alguem pode me ajudar novamente, pois o problema persiste e não consegui achar em lugar nenhum uma solução. Já tentei todas as opções e não consigo resolver.
Planilha para de funcionar com o tempo
Enviado: 17 Jul 2016 às 00:13
por DJunqueira
Dá uma olhada no canto inferior esquerdo p/ ver se não está ocorrendo referências circulares ou então procure ver em Fórmulas / Verificação de Erros o q pode estar ocorrendo.
Re: Planilha para de funcionar com o tempo
Enviado: 17 Jul 2016 às 18:30
por jonathanstelapagno
Olá DJJUNQUIERA
O problema é que é uma aplicação no vba. ele não usa nenhuma fórmula nas planilhas do excel. Ele funciona tudo normal, até um certo tempo (geralmente 5 min) e de repente para e não funciona mais nada.
Planilha para de funcionar com o tempo
Enviado: 18 Jul 2016 às 09:42
por DJunqueira
Parece ser alguma coisa de loop infinito ou acúmulo em variável, checa o código p/ ver esses problemas.
Re: Planilha para de funcionar com o tempo
Enviado: 18 Jul 2016 às 13:24
por jonathanstelapagno
DJJUNQUEIRA
Eu coloquei em anexo a minha planilha.
Sou bem novo nesse mundo vba. Você consegue me ajudar e ver se tem algum problema.
Re: Planilha para de funcionar com o tempo
Enviado: 18 Jul 2016 às 20:40
por jonathanstelapagno
Agora consegui descobrir em qual ponto ele trava. Ele acontece após o evento after update de um textbox. O código esta relacionado abaixo. Após atualizar o textbox ela preenche as labels. Ele funciona algumas vezes e de repente para. Existe alguma forma de fazer o código diferente?
Código: Selecionar todosPrivate Sub CODIGOBARRA_AfterUpdate()
CODIGOBARRA.Text = UCase(CODIGOBARRA.Text)
Dim LINHA As Integer
Dim codigo As String
codigo = CODIGOBARRA
LINHA = 2
Sheets("BASE").Select
Do Until Sheets("BASE").Cells(LINHA, 1) = ""
If Sheets("BASE").Cells(LINHA, 9) = codigo Then
OP = Sheets("BASE").Cells(LINHA, 5)
TAMANHO = Sheets("BASE").Cells(LINHA, 2)
COR = Sheets("BASE").Cells(LINHA, 3)
REFERENCIA = Sheets("BASE").Cells(LINHA, 1)
sequencia = Sheets("base").Cells(LINHA, 7)
periodo = Sheets("base").Cells(LINHA, 4)
OC = Sheets("BASE").Cells(LINHA, 6)
jonathan = Sheets("base").Cells(LINHA, 6)
BOTAO_CONFIRMA.Enabled = True
CODIGOBARRA.Enabled = False
If Sheets("base").Cells(LINHA, 9) <> codigo Then
MsgBox ("Esse código não existe!")
CODIGOBARRA.Enabled = True
Exit Sub
End If
Exit Sub
End If
LINHA = LINHA + 1
Loop
CODIGOBARRA = ""
End Sub