Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Pegar o último valo...
 
Notifications
Clear all

Pegar o último valor do split, somar e atualizar na célula!

 
2024 - VBA & Macros
Post Recente por edumanilha 7 anos atrás
5 Posts
2 Usuários
0 Reactions
933 Visualizações
RSS
 edumanilha
(@edumanilha)
Posts: 20
Eminent Member
Topic starter
 

Boa noite!

Estou fazendo uma planilha que usa split e no final da tarefa dela, ela cria uma outra com os dados inseridos na planilha 1, ou 1 e 2 se for o caso! Estou tentando fazer sequencial, caso as informações mudem pouco, como número de portas ou sequência de id entre as planilhas, para automatizar a criação de várias ao mesmo tempo! Só que estou tendo problema para mudar somente o campo que preciso no split...

If Plan1.Range("B3") Like "[!:]*:*:*:*[!:]" Then
salto0_split = Split(Plan1.Range("B3"), ":")

nesse script eu consigo verificar se tem o número de campos certos e separar por ":", no caso eu queria pegar somente o último campo. Nesse caso seria salto0_split(3) e aumentar esse valor em 1 e reinserir na célula para gerar uma próxima automaticamente! tem como fazer desse jeito? grato desde já!

 
Postado : 11/03/2018 5:52 pm
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 
dim valor as double
valor = cdbl(salto0_split(3)) +1
Plan1.Range("B3").value = valor
 
Postado : 11/03/2018 6:10 pm
 edumanilha
(@edumanilha)
Posts: 20
Eminent Member
Topic starter
 

Opa! Obrigado pela prontidão klarc28!

Mas o meu problema é o seguinte! Queria atualizar o valor no final do split e mudar só o final dentro da célula! Ao que me parece pela lógica que vc me passou ele vai inserir no B3 o valor atualizado com +1 somente do retorno (3), queria que o (0),(1),(2) continuassem na célula e atualizasse somente o quarto counteúdo, ou seja o (3)...É possível somar somente nele e mudar somente ele? Ou seria uma boa aproximação aguardar todos, alterar somente o final e reinserir os 4 novamente? Se possível tbm...

 
Postado : 11/03/2018 6:58 pm
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 
salto0_split(3) = cdbl(salto0_split(3)) +1
 
Postado : 11/03/2018 7:13 pm
 edumanilha
(@edumanilha)
Posts: 20
Eminent Member
Topic starter
 

Consegui fazer desse jeito:

Substituindo tudo pelos valores puxados e acrescentando o valor desejado no último campo...Do outro jeito não foi! Grato. Está resolvido!

Plan1.Range("B3").Value = salto0_split(0) & ":" & salto0_split(1) & ":" & salto0_split(2) & ":" & salto0_split(3) + 1

 
Postado : 12/03/2018 1:18 am
Forum Jump:
  Tópico Anterior
Próximo Tópico