Este fórum está sendo desativado

[tonilanis]

Como posso fazer para que um (ou mais) determinado(s) intervalos de células de uma planilha fiquem em caixa alta automaticamente ao ser digitado, ou seja: Sendo este intervalo preenchido com texto, este texto fique em caixa alta.
Grato por qualquer ajuda.

[wallacethiago]

Amigo irei lhe enviar um tutorial bem explicadinho para resolver o seu problema, tem algumas maneiras para se resolver isso.


Att,

[alexandrevba]

Boa tarde!!

um exemplo seria

Código: Selecionar todos

Sub AleVBA_799()
    Dim Rng As Range
    Dim c As Range
    On Error Resume Next
    Set Rng = Cells.SpecialCells(xlCellTypeConstants, 2)
    For Each c In Rng
        c.Value = UCase(c.Value)
    Next c
End Sub

Forma de ter um catilho automatico em intervalos não continguos.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
'Insira esse código dentro de um módulo de planilha
    If Intersect(Target, Range("A1:B5, D6:F10, I1:K2")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target.Value = UCase(Target.Value)
    Application.EnableEvents = True
End Sub

Att