Uma sugestão:
Crie um procedimento no módulo do userform e chame esse procedimento no evento change de cada textbox.
Private Sub TextBox1_Change()
Textbox_texto
End Sub
Private Sub TextBox2_Change()
Textbox_texto
End Sub
Private Sub TextBox3_Change()
Textbox_texto
End Sub
Private Sub TextBox4_Change()
Textbox_texto
End Sub
Private Sub TextBox5_Change()
Textbox_texto
End Sub
Private Sub Textbox_texto()
Select Case CInt(Replace(ActiveControl.Name, "TextBox", ""))
Case 1, 2, 4, 6, 8, 10 To 24
ActiveControl.Text = UCase(ActiveControl.Text)
Case 5, 7, 9
ActiveControl.Text = LCase(ActiveControl.Text)
Case 3
ActiveControl.Text = WorksheetFunction.Proper(ActiveControl.Text)
Case Else
End Select
End Sub
No código acima só fiz até o TextBox5. No seu caso tem que criar os demais procedimentos no evento de cada evento change dos textboxs.
Se não quiser usar assim, talvez o artigo do link abaixo possa ser adaptado para sua necessidade.
http://stackoverflow.com/questions/5940596/excel-vba-userform-execute-sub-when-something-changes
Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/
Postado : 17/07/2015 8:54 am