Atualizar campo numérico com ponto

2024 - VBA & Macros

Post Recente por edumanilha 7 anos atrás

5 Posts

2 Usuários

0 Reactions

848 Visualizações

RSS

edumanilha

(@edumanilha)

Posts: 20

Eminent 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

(@edsonbr)

Posts: 1057

Noble 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

(@edumanilha)

Posts: 20

Eminent 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