Bom dia, tenho este código que muda na coluna B as letras para maiúsculas que encontrei na internet mas como sou leigo não consigo mudar ele queria que A e B sempre ficasse maiúscula e a coluna D minuscula. Alguém poderia me ajudar??
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Target é um argumento que se refere ao range que está
'sendo mudado
If Target.Column = 2 Then
'esta verificação é para evitar o procedimento de se
'chamar repetidamente
If Not (Target.Text = UCase(Target.Text)) Then
Target = UCase(Target.Text)
End If
End If
End Sub
Voltando ao Excel, clique em qualquer célula da coluna B, digite um texto em minúsculas e pressione Enter. A macro em questão altera somente textos digitados na coluna B, ou seja, na coluna 2 da planilha. Para alterar essa coluna: 1. Clique com o botão direito do mouse na guia da Plan1 e, em seguida, em Exibir código. 2. Localize a linha If Target.Column = 2 Then e altere o valor 2 para 3 (de terceira coluna, ou coluna C). 3. Feche a janela de código. 4. Digite um texto em qualquer célula da coluna C e pressione Enter.