[VBA] Function para colocar as letras do formulário em maiúscula (Caixa Alta)

[@claudineisantos4515]

Excelente, obrigado por passar seu conhecimento, vim aqui através do canal Programado Vba.

[@matematicam-ideia5345]

Parabéns meu querido. Muito bem explicado

[@WilliamOliveiraExcel]

Agradeço pela a participação, isso é motivador

[@ProgramadorExcelVBA]

Parabéns William conteúdo relevante, bastante útil.
fico feliz pelo seu retorno.
Att, Gledson Programador Excel VBA

[@WilliamOliveiraExcel]

Obrigado meu amigo Gledson.

[@edhermarco1]

♥️♥️♥️

[@marcelolucena1921]

Muito boa a função

[@marciosantos73]

Parabens Will, muito bom

[@AbelCastilhos]

ótima função. Aproveitei e trabalhei nessa rotina para rodar essa função em qualquer form que estiver ativo.
Option Explicit
'Função para uppercase em todos os campos de todos os forms
Function uppercase(control As Object)
'Rotina para pegar o nome do formulário ativo
Dim frm, controle As Object
Dim nomeFormulario As String
For Each frm In VBA.UserForms
If frm.Visible = True Then
nomeFormulario = frm.Name
Exit For
End If
Next frm
'Rotina para Uppercase em todos do controles de todos os forms
For Each frm In VBA.UserForms
If frm.Name = nomeFormulario Then
For Each controle In frm.controls
If TypeOf controle Is MSForms.TextBox Or TypeOf control Is MSForms.ComboBox Then
controle.Value = VBA.UCase(controle.Value)
End If
Next controle
Exit For
End If
Next frm
End Function

[@LucasLima-yb6tf]

Boa noite
Gostaria de saber como vou fazer para utilizar nos demais userforms?

[@WilliamOliveiraExcel]

pode usar em qualquer um fazendo o mesmo procedimento, chamando essa função no form

[@plenclean3205]

no evento initialize do userform funciona?