Separar Nomes de Números de 1 célula em várias colunas

[João Célio da Costa]

Amigos,

Tenho uma planilha com mais de mil nomes na Coluna A, que contém números e nomes e preciso desmembrar para outras colunas.

Hospedei como exemplo no site:

https://www.transferbigfiles.com/73bb656a-a37b-4252-a294-c5e3dfb3c510/KmGVrf_2MwCaRPr5q311KQ2

Também anexei aqui.

Agradeço desde já pela ajuda.

Att.

Planilha Completa.xlsx

[zinhovba]

Bom dia!!

 

Tente um recurso nativo Texto para coluna

http://www.exceldoseujeito.com.br/2008/10/04/extrair-um-conteudo-especifico-em-textos-inteiros/

http://www.doutorplanilha.com.br/2012/04/texto-para-colunas.html

 

Att

[João Célio da Costa]

Zinhovba

Tentei as sugestões mas não deu certo.

Mesmo assim, obrigado.

[Visitante]

@joao, veja se este código atende.

Sub ExtraiNúmTexto() Dim p As Long, var1 As Variant, var2 As Variant, m As Long, rngN As Range, i As Long, x As Long  For Each rngN In Range("A1", Range("A" & Rows.Count).End(xlUp))   Do While p < Len(rngN.Value) - 10    p = WorksheetFunction.Find(" ", rngN.Value, p + 1)    var1 = Mid(rngN.Value, m + 1, p - m - 1)    If IsNumeric(Left(var1, 1)) Then      m = p      Cells(rngN.Row, i + 2) = var1      i = i + 1    Else:      var2 = var1      Do       m = p: x = p       If p = Len(rngN.Value) - 10 Then GoTo stpDo       p = WorksheetFunction.Find(" ", rngN.Value, p + 1)       var1 = Mid(rngN.Value, m + 1, p - m - 1)        If IsNumeric(Left(var1, 1)) ThenstpDo:         p = x: m = p: Exit Do        End If       var2 = var2 & " " & var1      Loop      Cells(rngN.Row, i + 2) = var2      i = i + 1    End If   Loop   Cells(rngN.Row, i + 2) = DateValue(Right(rngN.Value, 10))   i = 0: p = 0: m = 0  Next rngNEnd Sub

[João Célio da Costa]

Osvaldomp, boa noite

Obrigado por ter respondido

É que eu não sei nem por onde começar. Sou iniciante no Excel e não tenho a menor ideia de fazer esses comandos.

Tem possibilidade de me enviar um passo a passo?

Agradeço desde já.

Abraço

João Célio

[Visitante]

Fala, João. Seguem as dicas para instalar e para rodar o código.

Instale o código abaixo em um módulo comum, assim:
1. copie o código daqui
2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA
3. no menu do editor >> Inserir >> Módulo
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha e testar

para rodar o código:
6. tecle 'Alt+F8' >> selecione a macro correspondente >> Executar, ou insira um botão na planilha e vincule-o à macro ou vincule-a a um atalho de teclado (Alt+F8 > Opções).

[João Célio da Costa]

Osvaldo bom dia

Segui seu passo a passo e deu certo até a linha 610. Daí para frente não aparece mais as conversões.

Minha planilha tem mais de 1000 linhas.

Como faço?

Obrigado

[Visitante]

 

Como faço?

 

 

Disponibilize o seu arquivo com o código instalado. Tentaremos encontrar o problema.

[João Célio da Costa]

Osvaldo,

Hospedei em:

https://www.transferbigfiles.com/download/file/e59bab30-c719-49e0-a432-898eb9e30e88?rt=98Z32rMhbJxtr53Ac1vt9A2

Obrigado

[Visitante]

@joao

 

No registro da linha 610 consta a data 22/5/1075 e o Excel reconhece datas a partir de 1900, por isso está travando.

 

Há outros registros mais abaixo daquela linha nos quais falta a data. O código vai travar aí também.

[João Célio da Costa]

Osvaldo boa tarde

Fiz as alterações e deu tudo certo.

Tenho uma outra planilha um pouco diferente conforme você vê abaixo. Devo abrir um novo tópico ou você pode me ajudar aqui mesmo?

Obrigado;

 

 

Hospedei ela em:

https://www.transferbigfiles.com/5a0c5f13-ac5a-49a8-9198-d6d8931455dc/IyKwuEZO8vk2nzafG4azZA2

[João Célio da Costa]

Boa tarde

Planilha com uma coluna, contém diferentes informações. Preciso Separar essas informações em colunas diferentes.

 

Hospedei em:

https://www.transferbigfiles.com/5a0c5f13-ac5a-49a8-9198-d6d8931455dc/IyKwuEZO8vk2nzafG4azZA2

 

Também anexei a planilha aqui

 

Agradeço desde já pela ajuda.

Abraço

Final Classificatória.xlsx

[DJunqueira]

Uma solução usando funções no arquivo anexado abaixo.

Final Classificatória.xlsx

[João Célio da Costa]

DJunqueira bom dia

Agradeço a ajuda. Dá certo, porém quando vou classificar de A a Z os nomes por ordem alfabética ou por "nota1" da maior para a menor ou "nota2" da maior para menor" ou "nota3" da maior para a menor ou pela "data nascto" da maior para a menor, o programa não aceita fazer essa classificação de A a Z.

Tem algum comando que preciso dar?

Obrigado.

[DJunqueira]

você precisa copiar e colar o resultado, se mantiver as fórmulas a ordem não sairá do lugar.

[João Célio da Costa]

DJunqueira

Me desculpe a falta de conhecimento para acompanhar seu raciocínio. 

Tentei copiar, p. ex. a coluna dos nomes e inserir como primeira coluna, para selecionar tudo por ordem alfabética, mas aparece essa informação #REF!

Agradeço pelo que já fez, peço a gentileza, se possível, me esclarecer mais detalhado como devo fazer.

Muito obrigado pela paciência.

Estou colocando a planilha de volta para você ver como ficou quando tentei classificar por nomes.

Abraço:

João Célio

 

Final Classificatória.xlsx

[DJunqueira]

você não pode classificar as fórmulas então você tem q copiar e colar especial / Valores em outras colunas.

A planilha abaixo já está com a solução p/ ordem alfabética.

 

 

Final Classificatória.xlsx

[João Célio da Costa]

DJunqueira, boa noite

Muito obrigado.

É exatamente isso que eu preciso

Obrigado pela competência e paciência.

Abraço

[João Célio da Costa]

Amigos,

Preciso separar os nomes de números de uma planilha Excel. Anexei aqui.

Obrigado,

João Célio

CLASSIFICAÇÃO FINAL.xlsx

[DJunqueira]

Já te ofereci uma solução em mensagem anterior.

[Patropi]

João Célio

 

Eu uni os teus 2 tópicos, pois conforme as normas do fórum, não é permitido criar mais de um tópico sobre a mesma dúvida.

 

Leia as regras do fórum:

 

http://forum.clubedohardware.com.br/forums/topic/690576-regras-do-f%C3%B3rum-atualizadas-em-01102014/

 

Patropi - Moderação

[minoso]

você não pode classificar as fórmulas então você tem q copiar e colar especial / Valores em outras colunas.

A planilha abaixo já está com a solução p/ ordem alfabética.

 

Hahahaha e eu sempre aprendendo com as junções de fórmulas que você faz. Substituir e Procurar! Genial! Obrigado por mais uma

[DJunqueira]

Valeu minoso.