ro, só não entendi a parte ListBox1, para passar o valor do Combo para um Label use:

Private Sub ComboBox1_Change()

    Label1.Caption = ComboBox1.Text

End Sub

[]s

ro, só não entendi a parte ListBox1, para passar o valor do Combo para um Label use:

Private Sub ComboBox1_Change()

    Label1.Caption = ComboBox1.Text

End Sub

[]s

Perfeito Mauro !!!!

Tenho mais duas duvida mas não sei se preciso criar um novo topico???
1ª Sobre mascaras no TextBox. Já vasculhei tudo por aqui os exemplos que achei não serviram. Até consegui um no evento exit.

Private Sub Txt_Telefone_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Txt_Telefone = Format(Txt_Telefone, "(##) ####-####")
End Sub

Mas só funciona para telefone tentei para CPF e Titulo mas não deu; e um com uma macro enorme dentro do TextBox.

Existe uma maneira facil.

2ª Sobre a cor desta mesma Label se é possivel ela ficar vermelha quando INATIVO e Verde quando ATIVO??

Se não puder responder me avise que eu crio um novo topico; mesmo assim MUITO OBRIGADO .

De uma olhada no link abaixo, eu até ia criar um aqui no forum e me esqueci :

Fomatar TextBox Eventos KeyPress e Change
http://www.tomasvasquez.com.br/forum/vi ... =17&t=1505

Formata DATA
Formata CPF
Formato Horas, com validação se a Hora é valida
Formata Textbox somente com um numero de Telefone e (dd), Formato (xx) xxxx-xxxx
Textbox com dois numeros de Telefone e (dd), Formato (xx) xxxx-xxxx / xxxx-xxxx
Formata CNPJ
Quanto as rotinas longas, depende muito do que queremos fazer e qual o tipo de resultado, simples, aprimorado, com verificação se é valido, etc

Quanto aos Label, uma vez que está iniciando, uma dica é dar uma olhada na propria ajuda do VBA teclando, é uma biblioteca imensa com explicação e exemplos.

A Propriedade BackColor é a responsavel pela cor de fundo para a maioria dos controles :

Label1.BackColor = RGB(129, 70, 70)

Pesquise no forum que encontrará outras dicas.
[]s

Valeu grande..... Nos falamos . . .