|
 Saberexcel o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, converte as letras minusculas de determinada coluna em letras maiúsculas.
Sub Converte_texto_selecionado_para_maiusculo()
Dim vTexto As String
Dim vCelulas As Range
Dim vContaCelulas As Integer
Range("A1").Select
On Error Resume Next
Set vCelulas = ActiveSheet.Range(ActiveWindow.Selection.Address)
For vContaCelulas = 1 To vCelulas.End(xlDown).Row
If Not vCelulas.Cells(vContaCelulas).HasFormula Then
vTexto = vCelulas.Cells(vContaCelulas).Value
vCelulas.Cells(vContaCelulas).Value = UCase(vTexto)
End If
vCelulas.Offset(1, 0).Select
Next vContaCelulas
[D3].Value = "LETRAS MINÚSCULAS CONVERTIDAS PARA MAIÚSCULAS "
[d4].Value = "a linha de código no inicio Range(A1) select - determina a coluna "
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com Saberexcel
 Baixe o exemplo de planiha contendo a macro acima
Publicidade
Compre com garantia, segurança e ótimos preços nas lojas submarino
|