Caixa Alta - maiúsculas
Enviado: 21 Out 2015 às 15:08
por 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.
Caixa Alta - maiúsculas
Enviado: 21 Out 2015 às 15:37
por wallacethiago
Amigo irei lhe enviar um tutorial bem explicadinho para resolver o seu problema, tem algumas maneiras para se resolver isso.
Att,
Re: Caixa Alta - maiúsculas
Enviado: 21 Out 2015 às 15:41
por alexandrevba
Boa tarde!!
um exemplo seria
Código: Selecionar todosSub 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 todosPrivate 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