Excel Mudar letras maiúsculas e minusculas no excel automaticamente

[BENILTON BARBOSA]

Boa tarde,
Gostaria se alguém pudesse me ajudar com esta planilha, estava precisando de quando escreve na coluna A ou B ficasse sempre maiúsculo e na coluna D sempre minusculo.
Obrigado.

AgendaTESTE.xlsx

[BENILTON BARBOSA]

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.

 

[Visitante]

 

Experimente:

 

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 If Target.Column < 3 Then
  If Not (Target.Text = UCase(Target.Text)) Then Target = UCase(Target.Text)
 ElseIf Target.Column = 4 Then
  If Not (Target.Text = LCase(Target.Text)) Then Target = LCase(Target.Text)
 End If
End Sub

 

[BENILTON BARBOSA]

Em 09/02/2019 às 14:05, osvaldomp disse:

 

Experimente:

 

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 If Target.Column < 3 Then
  If Not (Target.Text = UCase(Target.Text)) Then Target = UCase(Target.Text)
 ElseIf Target.Column = 4 Then
  If Not (Target.Text = LCase(Target.Text)) Then Target = LCase(Target.Text)
 End If
End Sub

 

 

Obrigado....

Exatamente como estava precisando..