Notifications
Clear all

Letras Minúsculas

4 Posts
2 Usuários
0 Reactions
1,130 Visualizações
(@lucas842)
Posts: 23
Eminent Member
Topic starter
 

Pessoal, tudo bem?

Gostaria de saber se há como colocar as letras de uma célula do Excel em letras minúsculas sem precisar usar a função =MINÚSCULA(). Gostaria que a célula onde há letras maiúsculas ficasse com todas as letras minúsculas sem que o texto fosse realocado para outra célula para que o processo ocorresse.

Desde já obrigado.

 
Postado : 21/01/2017 6:46 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite,

Veja se este código atende:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    
    Target.Value = LCase(Target.Value)
End Sub

O código dever ser inserido no evento Change da planilha (botão direito no nome da planilha, selecione "Exibir Código").

Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/01/2017 10:14 pm
(@lucas842)
Posts: 23
Eminent Member
Topic starter
 

Amigo, poderia explicar melhor como faço para executar o código? Depois que eu clico em Exibir Código aparece isso:

Qual o próximo passo?

 
Postado : 22/01/2017 8:49 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Lucas

É só copiar o código que o JValq postou e colar aí.
Depois clique em ALT+Q para sair do editor de VBA e retornar a planilha.

O código vai ser executado sempre que você digitar texto em letras maiúsculas e teclar ENTER.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/01/2017 9:49 am