ESSE CÓDIGO TORNA MAIÚSCULA O TEXTO DIGITADO NA CÉLULA:
Sub TrocaParaMaiusculas()
If (Not ActiveCell.HasFormula) And (Not IsNumeric(ActiveCell.Value)) Then
ActiveCell.Value = UCase(ActiveCell.Value)
End If
End Sub
Sub TrocaParaMaiusculas()
If (Not ActiveCell.HasFormula) And (Not IsNumeric(ActiveCell.Value)) Then
ActiveCell.Value = UCase(ActiveCell.Value)
End If
End Sub
Comentários
Postar um comentário