Notifications
Clear all

UCase

3 Posts
2 Usuários
0 Reactions
642 Visualizações
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Bom dia !
Como deixar a celula C12 Ucase, pois quando digitar na celula passa para maiúsculo

Já fiz várias coisas e não altera !

Obrigado desde já !

 
Postado : 20/05/2016 10:22 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Utilize:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(False, False) = "C12" Then
        Application.EnableEvents = False
        Target.Value = StrConv(Target.Value, vbUpperCase)
        Application.EnableEvents = True
    End If
End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/05/2016 11:27 pm
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Funcionou Perfeito !

Obrigado !

 
Postado : 21/05/2016 4:53 am