Este fórum está sendo desativado

[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.

[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

[Henrique]

Bom dia Jonathan,

Tente desligar a atualização de cálculos automática e ver se o problema persiste.

Espero ter ajudado!

[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.

[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

[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.

[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.

[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.

[DJunqueira]

Parece ser alguma coisa de loop infinito ou acúmulo em variável, checa o código p/ ver esses problemas.

[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.

[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 todos

Private 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