Atualizar Label Formulário Excel

2024 - VBA & Macros

Post Recente por badchico 8 anos atrás

3 Posts

2 Usuários

0 Reactions

1,063 Visualizações

RSS

badchico

(@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.