Notifications
Clear all

Atualizar Label Formulário Excel

3 Posts
2 Usuários
0 Reactions
1,073 Visualizações
(@badchico)
Posts: 35
Eminent Member
Topic starter
 

Boa tarde!

Caros, qual o código que preciso adicionar a meu formulário, para que atualize?
O processo desse formulário é executar varias macros , com isso acrescentei a cada linha antes do CALL , para que o LABEL mude a cada etapa, mais ele não atualiza.

Private Sub Tudo()
    
    UserForm1.lbl01.Caption = "Aguarde, processos sendo executados"
    UserForm1.lbl01.ForeColor = &HFFFFFF
    UserForm1.lbl01.BackColor = &HFF&
      
    UserForm1.lbl01.Caption = "Abrindo Correio"
    Call Correio
    
    UserForm1.lbl01.Caption = "Abrindo Cabine"
    Call Cabine
    
    UserForm1.lbl01.Caption = "Abrindo Judiciario"
    Call Judiciario
    
    UserForm1.lbl01.Caption = "Abrindo App_01"
    Call App_01

End Sub
 
Postado : 28/10/2016 11:59 am
Trindade
(@trindade)
Posts: 278
Reputable Member
 

Boa tarde, badchico.

Não seria mais fácil você inserir no inicio de cada processo para preencher o label?
Seria algo assim

Sub Correio()

	UserForm1.lbl01.Caption = "Abrindo Correio"
	.
	.
	Seu Código
	
End Sub

Sub Cabine()

	UserForm1.lbl01.Caption = "Abrindo Cabine"
	.
	.
	Seu Código
	
End Sub

E assim por diante ... Não sei se vai executar os processo ao iniciar o UserForm, se sim basta inserir no evento Initialize as chamadas Call Correio, Call Cabine ...

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

 
Postado : 28/10/2016 1:52 pm
(@badchico)
Posts: 35
Eminent Member
Topic starter
 

Verdade.. deu certo...

Muito obrigado!

 
Postado : 28/10/2016 2:29 pm