Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Trocar para Maiúscu...
 
Notifications
Clear all

Trocar para Maiúsculas automaticamente

 
2024 - VBA & Macros
3 Posts
3 Usuários
0 Reactions
940 Visualizações
RSS
 tonilanis
(@tonilanis)
Posts: 0
New Member
Topic starter
 

Encontrei nas minhas pesquisas a respeito deste assunto o seguinte código:

Sub TrocaParaMaiusculas()
If (Not ActiveCell.HasFormula) And (Not IsNumeric(ActiveCell.Value)) Then
ActiveCell.Value = UCase(ActiveCell.Value)
End If
End Sub

Ele funciona em uma determinada célula ativa e precisa ser disparado por um botão.

A pergunta é: Como posso fazer que na planilha ativa, se as células preenchidas não contiverem números ou fórmulas, os seus conteúdos sejam trocados para maiúsculas automaticamente? Alguém ajuda?

 
Postado : 07/10/2015 8:44 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

tonilanis

Boa Tarde!

Basta você colocar o código dentro do evento Worksheet_SelectionChange da planilha que você quer que ocorra a troca de minúsculas por maiúculas.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Not ActiveCell.HasFormula) And (Not IsNumeric(ActiveCell.Value)) Then
        ActiveCell.Value = UCase(ActiveCell.Value)
    End If
End Sub
 
Postado : 07/10/2015 9:21 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!

Eu uso está:

Private Sub Worksheet_Change(ByVal Target As Range)
     With Target
         If Not .HasFormula Then
             Application.EnableEvents = False
             .Value = UCase(.Value)
             Application.EnableEvents = True
         End If
     End With
 End Sub

Doni

 
Postado : 07/10/2015 9:54 am
Forum Jump:
  Tópico Anterior
Próximo Tópico