Notifications
Clear all

UCase

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

Boa tarde !

Como posso fazer na coluna 7 da linha 12 até a última seja UCase

Estou tentando isso

wsAtiva.Rows(12 & ":" & UltL).Offset(0, 7).Value = UCase()

Obrigado desde já !

 
Postado : 15/04/2016 11:22 am
Basole
(@basole)
Posts: 487
Reputable Member
 

Bom se seu intervalo estiver com dados isso deve funcionar:

Sub Teste()
    Dim rng As Range, c As Range
    Dim uC As Long
    Dim sh As Worksheet

    Set sh = ActiveSheet

    With sh
        uC = .Cells(12, .Columns.Count).End(xlToRight).Column

        Set rng = .Range(.Cells(12, "G"), .Cells(12, uC))

        For Each c In rng
            c = UCase(c.Value)
        Next

    End With

End Sub

Click em se a resposta foi util!

 
Postado : 15/04/2016 1:50 pm
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

O que significa esse G ?

 
Postado : 15/04/2016 3:47 pm
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Ah ta, esquece, pois é coluna 7

 
Postado : 15/04/2016 4:14 pm