Excel - letra maiúscula

[JorgeSouza]

Olá.

 

Eu gostaria de saber se tem como deixar algumas células do excel apenas com letra maiúscula.

 

Exemplo: A pessoa vai lá e digita "Itaú" em minúsculo, mas automaticamente a célula alterna o que foi digita para maiúsculo. Tem como fazer isso ?

[Basole]

@JorgeSouza

Sim. Quais celulas deseja habilitar para maiusculo ?

[JorgeSouza]

@Basole Seriam: A2:D9

[Basole]

Cole o cod. abaixo no modulo da sua planilha (aba).

 

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Cells.Count > 1 Or .HasFormula Then Exit Sub
   On Error Resume Next
    If Not Intersect(Target, Range("A2:D9")) Is Nothing Then
        Application.EnableEvents = False
        .value = VBA.UCase(.value)
        Application.EnableEvents = True
    End If
    On Error GoTo 0
    End With
End Sub

 

[DJunqueira]

Na planilha anexa tem o código abaixo q deixa tudo em maiúsculo.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cell As Range
    On Error Resume Next
    
    Application.EnableEvents = False
    
If Not Intersect(Target, Range("A2:D9")) Is Nothing Then
    Set Target = Range("A2:D9")
    For Each cell In Target
       cell = UCase(cell)
    Next
End If
    Application.EnableEvents = True
End Sub

Tb pode-se usar a função MAIÚSCULA()

Maiúscula.zip

[JorgeSouza]

Muito obrigado aos dois posts.

 

Basole, teu código funcionou como eu esperava.