Página 1 de 1

Formatar célula excel para processo jurídico

Enviado: 30 Jan 2023 às 21:58
por 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

Re: Formatar célula excel para processo jurídico

Enviado: 31 Jan 2023 às 08:00
por 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.

Re: Formatar célula excel para processo jurídico

Enviado: 02 Fev 2023 às 18:46
por Albino10
Sim, tenho interesse via Macro mesmo
pode enviar por favor
obrigado

Re: Formatar célula excel para processo jurídico

Enviado: 02 Fev 2023 às 19:25
por osvaldomp
osvaldomp escreveu: 31 Jan 2023 às 08:00 Retorne se houver interesse nessa solução e informe a(s) coluna(s) em que irá inserir os números.

Re: Formatar célula excel para processo jurídico

Enviado: 03 Fev 2023 às 11:23
por Albino10
Albino10 escreveu: 02 Fev 2023 às 18:46 Sim, tenho interesse via Macro mesmo
pode enviar por favor
Esqueci de informar, sãoas colunas: "B13:K100" estão mescladas.
obrigado

Re: Formatar célula excel para processo jurídico

Enviado: 03 Fev 2023 às 14:41
por 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

Re: Formatar célula excel para processo jurídico

Enviado: 03 Fev 2023 às 16:14
por Albino10
Perfeeeito Oswaldo, muitíssimo obrigado

Re: Formatar célula excel para processo jurídico

Enviado: 03 Fev 2023 às 16:36
por 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

Re: Formatar célula excel para processo jurídico

Enviado: 03 Fev 2023 às 16:46
por Albino10
Desculpe te "pertubar" precipitadamente, de tanto pesquisar encontrei agora a solução, o comando: On Error Resume Next
obrigado mais uma vez.