ó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
Excelente, obrigado por passar seu conhecimento, vim aqui através do canal Programado Vba.
♥️♥️♥️
Parabéns William conteúdo relevante, bastante útil.
fico feliz pelo seu retorno.
Att, Gledson Programador Excel VBA
Obrigado meu amigo Gledson.
Parabéns meu querido. Muito bem explicado
Agradeço pela a participação, isso é motivador
Parabens Will, muito bom
Muito boa a função
no evento initialize do userform funciona?
ó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
Boa noite
Gostaria de saber como vou fazer para utilizar nos demais userforms?
pode usar em qualquer um fazendo o mesmo procedimento, chamando essa função no form