Página 1 de 1
Formulário faz o excel travar, não consigo resolver
Enviado: 13 Set 2018 às 18:08
por Herika
Oi pessoal!
Estou alterando um arquivo para utilização de formulários, evitando que os usuários alterem indevidamente as informações. É simples, mas estou com um problema que está me quebrando a cabeça....
Na planilha anexa, a sub "CadastroAtividades" chama o UserForm "FormCadAtiv". Tenho vários formulários neste arquivo, todos funcionam corretamente. Este é um dos mais simples, e não consigo fazer funcionar. Toda vez que executo o excel trava e reinicia...
Será que alguém consegue me ajudar?
Obrigada.
Herika
Formulário faz o excel travar, não consigo resolver
Enviado: 13 Set 2018 às 22:44
por Reinaldo
Faltou seu arquivo, a pasta compactada está vazia.
Re: Formulário faz o excel travar, não consigo resolver
Enviado: 14 Set 2018 às 10:20
por Herika
Obrigada Reinaldo, primeira postagem no fórum....
Segue o arquivo, acho que agora está certo.
Formulário faz o excel travar, não consigo resolver
Enviado: 14 Set 2018 às 10:31
por gfranco
Bom dia.
Comigo, aqui funcionou normal.
Formulário faz o excel travar, não consigo resolver
Enviado: 14 Set 2018 às 10:56
por Herika
Obrigada, vou testar em outro computador e ver o que acontece.
Formulário faz o excel travar, não consigo resolver
Enviado: 14 Set 2018 às 11:14
por Reinaldo
Não tive problemas com o formulário, o "travamento" ocorre se utiliza unicamente esse formulário, ou depois de algumas atividades/uso de forms?
Uma pequena alteração na rotina do btn_Ok.
Código: Selecionar todosPrivate Sub OK_Click()
Dim lin As Integer
With Planilha3
lin = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
If Me.NomeAtividade.Value = "" Then
MsgBox ("Informe o nome da atividade.")
Me.NomeAtividade.SetFocus
Exit Sub
End If
If Me.Diretor.Value = "" Then
MsgBox ("Informe o diretor da atividade.")
Me.Diretor.SetFocus
Exit Sub
End If
.Cells(lin, 1).Value = Me.NomeAtividade
.Cells(lin, 2).Value = Me.Diretor
.Cells(lin, 3).Value = Me.Subdiretor
.Cells(lin, 4).Value = Me.Secretario
.Cells(lin, 5).Value = Me.Colaborador
End With
With Planilha4
.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Me.NomeAtividade
End With
Unload Me
MsgBox ("Cadastro realizado com sucesso.")
End Sub
Formulário faz o excel travar, não consigo resolver
Enviado: 14 Set 2018 às 11:50
por Herika
Oi Reinaldo, somente com esse formulário...
Toda vez que clico no OK ele trava e reinicia.
Terei que testar no meu not para ver se ocorre a mesma coisa.... talvez seja a memória desta máquina...
Obrigada pela sugestão de alteração!
Formulário faz o excel travar, não consigo resolver
Enviado: 21 Set 2018 às 12:47
por Herika
Valeu pessoal!! Parece que o problema é com o computador mesmo....