Notifications
Clear all

Atualizar campo numérico com ponto

5 Posts
2 Usuários
0 Reactions
833 Visualizações
(@edumanilha)
Posts: 0
New Member
Topic starter
 

Boa noite! estou tentando a seguinte operação:

If Plan1.Range("E2") <> "" Then
os_jump = Split(Plan1.Range("E2"), ".")
Plan1.Range("E2").Value = os_jump(0) & "." & os_jump(1) + 1
End If

A idéia era pegar o conteúdo de E2, separar o número do chamado pai, do chamado filho e fazer a sequência alterando a célula antes de cada salvamento, para gerar as planilhas nomeadas de acordo com a célula! Só que ao alterar a célula, esta ficando com vírgula ao invés do ponto que mandei inserir...Manualmente não tem problema, mas pela macro insere automaticamente vírgula...e isso dá erro na geração da planilha seguinte...Obrigado desde já!

 
Postado : 20/03/2018 3:21 pm
(@edsonbr)
Posts: 0
New Member
 

Boa noite, Edumanilha

Não consegui reproduzir o problema aqui. Pra mim aparece normal com ponto.

Fiquei aqui tentando imaginar qual conteúdo de E2... Texto com número? Só número? A coluna E ou célula E2 está formatada como Texto?

Anexe uma amostra para podermos ver.

 
Postado : 20/03/2018 4:05 pm
(@edumanilha)
Posts: 0
New Member
Topic starter
 

Boa noite edson!

Olhei a formatação da célula e está como geral! A célula E2 só tem números ex: 75421.1, no caso queria fazer uma sequencia de geração de planilhas e nessa parte de mudar o número da OS filho, ao tentar inserir o valor(0) + valor(1) atualizado para +1, ele troca o "." por vírgula e trava a próxima geração de planilha, porque o split se perde já que era pra separar baseado no "."... A não ser que tenha como fazer o split buscar "." e "," daí em cima do retorno do split, posso forçar o valor com "." e ver se passa no próximo loop...

EDIT: tentei um gatinho aqui, mas não foi...

If Plan1.Range("E2") <> "" Then
os_jump = Split(Plan1.Range("E2"), ".")
os_jump = Split(Plan1.Range("E2"), ",")
Plan1.Range("E2").Value = os_jump(0) & "." & os_jump(1) + 1
End If

Tentei colocar ele pra separar em caso de virgula ou ponto...

 
Postado : 20/03/2018 6:03 pm
(@edsonbr)
Posts: 0
New Member
 

Olhei a formatação da célula e está como geral!

Então é simples resolver:

Clique com o botão direito sobre a célula E2 --> Formatar Células --> Escolha Texto na guia Número

 
Postado : 20/03/2018 6:14 pm
(@edumanilha)
Posts: 0
New Member
Topic starter
 

Putz, muito simples mesmo! Resolveu! Muito obrigado!

 
Postado : 20/03/2018 6:41 pm