Maiúscula

[Roberto Albuquerque]

Bom dia,

Como faço para formatar uma coluna ou linha para que, ao digitar, já venha em maiúscula sem usar o capslock? Alguém pode me ajudar? Obrigado.

[Mauro Coutinho]

Existem várias formas, uma delas é utilizando a rotina abaixo, cole no evento da aba que quer a transformação.
Como utilizamos o Evento Change, o texto digitado só será convertido apos der o enter ou sair da celula digitada.

Nesta rotina está definido as celulas que serão convertidas, ficando entre "A2:D20", é só ajustar

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Cells.Count > 1 Then Exit Sub
    
    'Se não for entre este intervalo não transforma
    If Not Intersect(Target, Range("A2:D20")) Is Nothing Then
        On Error Resume Next
        Application.EnableEvents = False
        Target = UCase(Target) 'Transforma em maiuscula
        Application.EnableEvents = True
    End If
    
    On Error GoTo 0
    
End Sub

[Roberto Albuquerque]

Tem como fazer sem VBA?