Este fórum está sendo desativado

[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

[Reinaldo]

Faltou seu arquivo, a pasta compactada está vazia.

[Herika]

Obrigada Reinaldo, primeira postagem no fórum....

Segue o arquivo, acho que agora está certo.

[gfranco]

Bom dia.
Comigo, aqui funcionou normal.

[Herika]

Obrigada, vou testar em outro computador e ver o que acontece.

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

Private 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

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

[Herika]

Valeu pessoal!! Parece que o problema é com o computador mesmo....