Este fórum está sendo desativado

[Handred]

Olá Pessoal

tenho uma macro que cria a máscara de moeda no textbox, porém, tenho 30 textbox em um userform e não queria aplicar a macro a cada um, e sim que quando dessa change ele gerava a macro de um lugar só.
o que preciso saber é, como que eu descubro o nome do textbox que está selecionado.

por exemplo:

estou digitando o textbox1, porém a minha macro geral não sabe disso, queria saber o comando que gerasse o nome do meu textbox, para que a macro entendesse em qual aplicar a máscara.

obrigado.

[wesleyribeiro123]

Handrer
Boa tarde,

Da forma como vc descreveu acredito ser impossível, pelo menos eu não consigo visualizar nenhum jeito para construção deste código.
Porém, te aconselho a fazer de 2 formas:
>> 1ª - Inserindo a máscara no evento AfterUpdate (Após atualizar) do TextBox1:

Código: Selecionar todos

Private Sub TextBox1_AfterUpdate()
UserForm1.TextBox1 = Format(UserForm1.TextBox1, "R$0.00")
UserForm1.TextBox2 = Format(UserForm1.TextBox2, "R$0.00")
UserForm1.TextBox3 = Format(UserForm1.TextBox3, "R$0.00")
UserForm1.TextBox4 = Format(UserForm1.TextBox4, "R$0.00")
End Sub

A desvantagem deste código é que se o usuário não preencher o TextBox1 a máscara não sera aplicadas as demais.

Então vem a 2ª sugestão.
2ª - Aplicar máscara no evento Initialize do seu UserForm, assim não haverá este risco não aplicar máscara em algum TextBox. Veja como ficaria o código:

Código: Selecionar todos

Private Sub UserForm_Initialize()
UserForm1.TextBox1 = Format(UserForm1.TextBox1, "R$0.00")
UserForm1.TextBox2 = Format(UserForm1.TextBox2, "R$0.00")
UserForm1.TextBox3 = Format(UserForm1.TextBox3, "R$0.00")
UserForm1.TextBox4 = Format(UserForm1.TextBox4, "R$0.00")
End Sub

Espero ter ajudado...