Logo Hardware.com.br
P@tropi
P@tropi Highlander Registrado
3.4K Mensagens 2.6K Curtidas
#2 Por P@tropi
21/02/2016 - 08:07
Bom dia Cristian

Tem que utilizar programação VBA, por isso não se esqueça de habilitar as macros ao abrir a planilha.

Baixe a planilha e veja se é isto que vc deseja.

Após digitar, ao dar ENTER passa para maiúscula.

Se não quiser macro tem um suplemento que faz isso, mas eu nunca testei. Clique no link para ver uma matéria sobre o assunto:
http://gurudoexcel.com/convertendo-maiusculas-e-minusculas-excel/

Dê retorno.

[]s

Anexos

21_02_16_Sempre LetrasMaisculas_Patropi.xlsm
Se foi útil, clique em Curtir.
Devemos combater o Comunismo ou qualquer doutrina totalitária.
osvaldomp
osvaldomp Geek Registrado
753 Mensagens 558 Curtidas
#3 Por osvaldomp
21/02/2016 - 09:34
Código alternativo:


Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

  If Not Target.HasFormula Then Target.Value = UCase(Target.Value)

Application.EnableEvents = True

End Sub



P@tropi disse:

Baixe a planilha e veja se é isto que vc deseja.


Patropi, sugestão - coloque Application.ScreenUpdating = True antes do End Sub wink.png
stick_out_tongue.png
Osvaldo
P@tropi
P@tropi Highlander Registrado
3.4K Mensagens 2.6K Curtidas
#4 Por P@tropi
21/02/2016 - 09:59
Cristian

A macro do mestre Osvaldo é mais enxuta, portanto, mas funcional do que aquela que eu postei.
Outra coisa, a macro que postei transforma a fórmula em resultado (números) sendo que o Osvaldo resolveu esse problema, adicionando uma linha de comando na macro dele.

Osvaldomp
Já fiz a correção.
Obrigado.

[]s
Se foi útil, clique em Curtir.
Devemos combater o Comunismo ou qualquer doutrina totalitária.
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal