fbpx

Se você quiser converter rapidamente uma grande quantidade de texto em diversas células,  sem a necessidade de redigitar o texto nas células, você pode usar o seguinte macro e em qualquer coluna:

Sub MakeUpper()
Dim MyText As String
Dim MyRange As Range
Dim CellCount As Integer

Set MyRange = ActiveSheet.Range(ActiveWindow.Selection.Address)
For CellCount = 1 To MyRange.End(xlDown).Row
If Not MyRange.Cells(CellCount).HasFormula Then
MyText = MyRange.Cells(CellCount).Value
MyRange.Cells(CellCount).Value = UCase(MyText)
End If
MyRange.Offset(1, 0).Select
Next CellCount
End Sub


Caso você tenha uma dica ou truque, envie para nós: [email protected]

Por: FV

Siga-Me

Nossas Redes Sociais

Facebook
Linkedin
Instagram
Youtube