Inserindo Letras Maiusculas e Minusculas na Planilha

Tem alguma dica para o uso do Excel? Algum atalho especial? Algum macete? Aqui é o lugar para você compartilhar!

Inserindo Letras Maiusculas e Minusculas na Planilha

Mensagempor lucianorn » Sáb Jun 17, 2017 11:49 am

O código deverá ser inserido na planilha que será executada.

Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

'Letras Maiusculas Colunas 1 a 4

If Target.Column = 1 Or Target.Column = 2 Or Target.Column = 3 Or Target.Column = 4 Then

If Not Target.Text = UCase(Target.Text) Then

Target = UCase(Target.Text)

End If

End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

'Letras Minusculas Coluna 1 a 4

If Target.Column = 1 Or Target.Column = 2 Or Target.Column = 3 Or Target.Column = 4 Then

If Not Target.Text = LCase(Target.Text) Then

Target = LCase(Target.Text)

End If

End If

End Sub

lucianorn
Membro
Membro
 
Mensagens: 16
Registrado em: Seg Mai 22, 2017 4:31 pm
Localização: Marechal Cândido Rondon - Paraná
Has thanked: 5 times
Have thanks: 0 time

{ SO_SELECT }

Voltar para Dicas & Macetes

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante