Ajustar Formatação Excel para Placa de Carro

Question

Boa tarde,

Gostaria de ajustar a formatação de uma coluna onde irá conter placa de carros, para essa formatação e forçar letra maiúscula.

Formatação que gostaria:

AAA-0000

Ja tentei diversas formas de formatação diretamente no excel, tipo "AAA""-"0000, mas nenhuma delas funciona.

será que vocês me ajudariam?

obrigado desde ja,

Abs,

Alfredo

Answer 1

Olá Alfredo!

Infelizmente a formatação personalizada da célula possui a limitação de não permitir formatação de valores alfanuméricos na célula. A solução poderia somente através de macro, porém creio que seja mais simples você criar uma coluna ao lado e utilizar a fórmula que gere no formato que você quer, por exemplo, se a placa "abc1234" for digitada na célula A2, a fórmula na célula ao lado para ficar no formato de placa seria:

=MAIÚSCULA(ESQUERDA(A2;3))&" - "&DIREITA(A2;4)

Caso queira a solução via macro, tente isso:

• Aperte Alt + F11 e cole o código abaixo na área de edição de código da planilha onde você irá digitar as placas: 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim placa_letra As String

Dim placa_numero As String

For Each x In Range("B5:B10")

If x.Value <> "" And Len(x.Value) = 7 Then

x.Value = UCase(x.Value)

placa_letra = Left(x.Value, 3)

placa_numero = Right(x.Value, 4)

x.Value = placa_letra & "-" & placa_numero

End If

Next

End Sub

Mude o intervalo B5:B10 para o intervalo onde você irá digitar as placas. Neste caso, só irá converter para o formato AAA-1234 se na célula for digitado 7 caracteres. Feche o VBA e teste! Se usar macro, você precisar salvar o arquivo como "Pasta de trabalho habilitada para Macro do Excel" caso contrário a macro não fica gravada.

Se te foi útil não esqueça de marcar como útil a resposta!

Abraços!

Answer 2

Segui passo a passo, porem não consegui fazer rodar essa macro =(

Obrigado a todos pela ajuda... Sou meio leigo (na realidade totalmente) nesses lances de macro rsrs. Mas trabalhar com macro com versões de excel diferente, e as vezes até o broffice, acho que terei mais problemas...

Mas obrigado de qualquer forma..  mas queria fazer essa macro funcionar. Tem algum detalhe que não foi mencionado?

Olá Alfredo!

Eu testei aqui para confirmar se estava certo e confirmei que está certinho.

Vou tentar detalhar mais, passo a passo:

1º) Aperte ALT + F11 no Excel e deverá aparecer a janela do Microsoft Visual Basic;

2º) Observe que a tela do Visual Basic deverá estar dividida em duas áreas, no lado esquerdo aparece toda estrutura do seu arquivo como se fosse uma espécie de Windows Explorer e do lado direito a tela onde se digita as linhas de programação.

3º) No lado esquerdo localize o nome da planilha onde você está digitando as placas dos carros. Ela vai estar dentro de uma pasta "Microsoft Excel Objetos". Depois de localizar, dê dois cliques no nome. 

4º) A tela do lado direito vai estar em branco, então copie e cole o código:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim placa_letra As String

Dim placa_numero As String

For Each x In Range("B5:B10")

If x.Value <> "" And Len(x.Value) = 7 Then

x.Value = UCase(x.Value)

placa_letra = Left(x.Value, 3)

placa_numero = Right(x.Value, 4)

x.Value = placa_letra & "-" & placa_numero

End If

Next

End Sub

5º) Observe no código a linha 4 onde há o intervalo: B5:B10. Altere este intervalo para o intervalo onde você está digitando as placas. Mantenha as "" entre o valor do intervalo. Você pode fechar o visual basic para checar o intervalo e apertar ALT + F11 que as linhas continuarão lá, ou pode alternar as janelas com ALT + TAB mesmo.

6º) Teste lá digitando as placas com 7 digitos (ex: abc1234) que elas irão automaticamente mudar para o formato desejado (ABC-1234).

7º) Salve como "Pasta de trabalho habilitada para Macro do Excel" para que a macro fique gravada.

Se estiver usando o BROffice realmente não sei como ajudar, pois nunca utilizei essa plataforma.

Tenta ai e se não conseguir posso tentar te dar um suporte melhor por e-mail

Abraços!

Answer 3

Bom dia!

Muito útil esse tutorial, resolveu meu problema. parabéns!!! :)

Answer 4

Segui passo a passo, porem não consegui fazer rodar essa macro =(

Obrigado a todos pela ajuda... Sou meio leigo (na realidade totalmente) nesses lances de macro rsrs. Mas trabalhar com macro com versões de excel diferente, e as vezes até o broffice, acho que terei mais problemas...

Mas obrigado de qualquer forma..  mas queria fazer essa macro funcionar. Tem algum detalhe que não foi mencionado?