Logo Hardware.com.br
Adrilmb
Adrilmb Novo Membro Registrado
5 Mensagens 0 Curtidas

[Resolvido] Formato Célula (letra + numero + símbolo)

#1 Por Adrilmb 10/12/2016 - 00:20
Olá,

Gostaria de saber como fazer um código para a formatação de uma célula

usuário digita célula J12: c40056722016
exibir na célula J2: C400567-2/2016

achei o um código assim, porém a "/" não fica no lugar correto.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'c123456-2/2016
Dim sig1, sig2, sig3, sig4

For Each x In Range("j12")
If x.Value <> "" And Len(x.Value) = 12 Then
x.Value = UCase(x.Value)
sig1 = Left(x.Value, 7)
sig2 = Right(x.Value, 2)

x.Value = sig1 & "-" & sig2 & "/"


End If
Next
formato codigo formato letra numero celula fazer c40056722016 j12
osvaldomp
osvaldomp Geek Registrado
753 Mensagens 558 Curtidas
#2 Por osvaldomp
10/12/2016 - 14:37
Experimente:
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Target.Address <> "$J$12" Or Len(Target.Value) <> 12 Then Exit Sub

  On Error GoTo rst

   Application.EnableEvents = False

   Target.Value = UCase(Left(Target.Value, 7)) & "-" & Mid(Target.Value, 8, 1) & "/" & Right(Target.Value, 4)

rst:

   Application.EnableEvents = True

End Sub


funcionamento - o código irá introduzir o hifen e a barra nos conteúdos com 12 caracteres inseridos na célula 'J12'.
Osvaldo
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal