Este fórum está sendo desativado

[Albino10]

Senhores, boa noite,
Tentei várias formas e pesquisei desde cedo até agora e não consegui uma forma de configurar as células de uma coluna em formato de número de processo judicial (0000000-00.0000.0.00.0000) digitando apenas os números.
Será que poderiam me ajudar por favor?

Desde de já mueu muito obrigado

[osvaldomp]

Olá, Albino.

Talvez por formatação não seja possível devido a quantidade de dígitos ser superior a 15.

No entanto, é possível inserir o hífen e os pontos via macro.

Retorne se houver interesse nessa solução e informe a(s) coluna(s) em que irá inserir os números.

[Albino10]

Sim, tenho interesse via Macro mesmo
pode enviar por favor
obrigado

[osvaldomp]

Retorne se houver interesse nessa solução e informe a(s) coluna(s) em que irá inserir os números.

[Albino10]

Sim, tenho interesse via Macro mesmo
pode enviar por favor
Esqueci de informar, sãoas colunas: "B13:K100" estão mescladas.
obrigado

[osvaldomp]

Antes de instalar o código no módulo da planilha de interesse formate o intervalo B13:K100 como Texto.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim str As String, n As String
  If Target.Column <> 2 Or Len(Target.Value) <> 20 Then Exit Sub
  n = Target.Value
  str = Left(n, 7) & "-" & Mid(n, 8, 2) & "." & Mid(n, 10, 4) & "." & Mid(n, 14, 1) & "." & Mid(n, 15, 2) & "." & Right(n, 4)
  Target.Value = str
End Sub

[Albino10]

Perfeeeito Oswaldo, muitíssimo obrigado

[Albino10]

Só um detalhe amigo que surgui quando eu apago o numero, abra uma janela de erro:
Erro em tempo de execução '13':
Tipos incompatíveis

[Albino10]

Desculpe te "pertubar" precipitadamente, de tanto pesquisar encontrei agora a solução, o comando: On Error Resume Next
obrigado mais uma vez.