Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro_Separar Númer...
 
Notifications
Clear all

Macro_Separar Número de Uma Célula

 
2024 - VBA & Macros
Post Recente por MPrudencio 9 anos atrás
3 Posts
3 Usuários
0 Reactions
894 Visualizações
RSS
 MauroMeira
(@mauromeira)
Posts: 6
Active Member
Topic starter
 

Boa Tarde a Todos
Por Favor, alguém pode me ajudar com uma macro, preciso separar uma sequencia de números de uma célula para vária células, segue exemplo abaixo:

Meu projeto vai preencher uma planilha com no mínimo 100 linhas da coluna "A1" com números aleatórios, após este preenchimento, que estou fazendo também via macro, vem esta separação dos números por coluna.

OBS: Eu vou aplicar em mais de uma célula com valores diferentes e misturados, mas apenas números como apresentado na figura.

Obrigado a todos
Mauro

 
Postado : 18/01/2016 1:22 pm
 edcronos2
(@edcronos2)
Posts: 346
Reputable Member
 

eu tinha disposto uma função que faz isso

Public Function SeparaPartX(ByVal Textoss As String, ByVal Separador As String, posição As Long)
    v = Split(Textoss, Separador)

    If posição <= UBound(v) + 1 Then
        If IsNumeric(v(posição - 1)) = True Then
            SeparaPartX = Val(v(posição - 1))
        Else
            SeparaPartX = v(posição - 1)
        End If
    Else
        SeparaPartX = ""
    End If
End Function

SeparaPartX("55 - 44 - 29 - 74 - 52" ; " - "; 3) = 29
SeparaPartX("04:74:24:64:73:37:69" ; ":"; 2) = 74
SeparaPartX("nada|tudo|casa" ; "|"; 2) = tudo

=SeparaPartX($a1;",";1)
claro que tem como fazer melhor
mas pode te dar uma ideia de como fazer

 
Postado : 18/01/2016 1:44 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Texto para colunas faz isso facilmente.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 18/01/2016 7:29 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico