Nomear itens no cadastro via vba

[diego_janjao]

@Enival Bento Ficou ótimo! 

 

Só não entendi uma parte (macro eu não entendo nada), quando não mencionamos um nome no codinome, e ao mostrar a MsgBox apagam-se os campos. 

[Enival]

Olha a chamada da sua Macro Limpar, esta no  BTCadastrar_Click

Private Sub BTCadastrar_Click()

    Application.ScreenUpdating = False

    Cadastrar

    Limpar 'Tira  daqui<<<

    Application.ScreenUpdating = True

End Sub

 

 

Coloca ele no fim da Macro Cadastrar

Sub Cadastrar()



Application.ScreenUpdating = True


        MsgBox "Fornecedor Cadastrado com sucesso", vbInformation, [D12]

        Limpar 'E coloca  aqui>>> depois da mensagem

                       assim ela só será chamada depois que todo processo for concluído 

    End If

End Sub

 

 

[diego_janjao]

@Enival Bento  muito obrigado, Enival. 

O bom de suas macros é que você sempre deixa comentários explicando.

 

Já até abriu minha mente para novas ideias aqui.

 

Vou tentando e quando eu travar, chamo-lhes novamente.

 

Novamente, um muito obrigado.