Excel Piscar label se textbox estiver preenchida

[josequali]

Olá bom dia! Tenho a seguinte dúvida: como fazer uma label piscar (mudar de cor) se a textbox estiver preenchida.

 Essas são as condições:

 

Se a textbox1 estiver preenchida, a label 1 pisca.

Se a textbox2 estiver preenchida a label 2 pisca

Se a textbox3 estiver preenchida a label 3 pisca

 

Desde já, agradeço a disponibilidade de todos.

 

 

 

 

 

[AfonsoMira]

E como queria acionar essa condições?
Quando escreve-se na textbox ou clicando em alguma botão, ou depois de escrever e sair da textbox?

[josequali]

@AfonsoMira ao ir mudando linha na listbox1 (click), se a textbox1, 2 ou 3 tiver a informação ela executa a ação na label correspondente.

[AfonsoMira]

@josequali Consegue disponibilizar o arquivo para implementar e testar um código nele?
Obrigado!

[josequali]

@AfonsoMira o projeto é meio grande! Vou ver se consigo criar um como exemplo.

[AfonsoMira]

@josequali Certo, desde que contenha a ListBox, as TextBoxes e as Labels penso que consiga implementar o código.

[Midori]

@josequali Isso pode ser feito com OnTime para fazer o label mudar de cor no tempo desejado. A ativação será no momento que carregar o Form e aí toda vez que o text box for preenchido o label terá a cor alternada, p.ex no Label1,

 

Coloque essas macros no Módulo,

Private Continua    As Boolean
Private CorOriginal As Long

Sub Parar()
    Continua = False
End Sub

Sub Iniciar()
    Continua = True
    CorOriginal = UserForm1.Label1.BackColor
    Call Piscar
End Sub

Private Sub Piscar()
    Static Alterna As Boolean
    On Error Resume Next
    
    Alterna = Not Alterna
    
    With UserForm1
        If .TextBox1 <> "" Then
            .Label1.BackColor = IIf(Alterna = True, CorOriginal, vbYellow)
        Else
            .Label1.BackColor = CorOriginal
        End If
    End With
    Call Application.OnTime(Now + TimeValue("00:00:01"), "Piscar", , Continua)
End Sub

 

E no módulo do Form,

Private Sub UserForm_Activate()
    Call Iniciar
End Sub

Private Sub UserForm_Terminate()
    Call Parar
End Sub

 

Assim vai alternar a cor a cada um segundo. Para fazer nos outros Labels é só colocar o critério no mesmo procedimento.

[josequali]

@AfonsoMira tentei o método do @Midori mas não consegui . Deixei os códigos sugeridos por ele já no módulo. Segue em anexo o modelo. Desde já agradeço a disponibilidade

Alerta teste.rar

[AfonsoMira]

@josequali Consegue desativar a abertura do formulário ao abrir o arquivo, pois ele abre e eu não consigo aceder ao ficheiro.
Obrigado! 

 

Já consegui desabilitar vou ver o que posso fazer!

[Midori]

Se os controles do formulário estiverem como os nomes Default do VBA, não precisa fazer nenhuma alteração no meu código. Mas se for o caso de adaptar, é só ter atenção para não omitir algum ponto e certificar que os nomes dos controles estão corretos.

[josequali]

@Midori Eita achei, tinha errado, rs! Perfeito