Fóruns
Microsoft Excel - 2...
2024 - Excel - O bá...
Separar parte numér...
 
Notifications
Clear all

Separar parte numérica de um texto

 
2024 - Excel - O básico
9 Posts
1 Usuários
0 Reactions
1,479 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Tenho um arquivo, que se renova/altera periodicamente. Na coluna G tem informações do tipo:

Cod. 11 / Administração / Brochura / 193 pg. / Capa em bom estado; miolo com paginas amareladas pela ação do tempo. Algumas anotações e marcas no texto. Não impede leitura.

Cod. 57 / Administração / Brochura / 184 pg. / Estado conservação razoável. Capas e lombadas preservadas. Folhas e laterais, ligeiramente, amareladas, sinal de desgaste pela ação do tempo. Sem prejuízo para a leitura. Sem marcas ou anotações. Dimensões aproximadas: 21 x 14 cm. Imagem real do livro.

Cod. 370 / Administração / Brochura / 494 pg. / Estado conservação razoável. / capas e lombadas preservadas. / laterais das paginas amareladas pela ação do tempo. / sem marcas ou anotações. / condições adequadas à leitura. / imagem real do livro. / dimensões aproximadas: 25 x 18 cm.

Preciso extrair o número do código. Só a parte numérica. Podem conter um, dois, três ou, futuramente, quatro dígitos. Isso já resolve o meu problema.
Tem outra coisinha, que se possível, ficaria supimpa (!!!): após cada barra, fazer a primeira letra, sempre, maiúscula. Seria, então, nota 1.000!

 
Postado : 05/03/2012 8:54 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde Luiz

Para facilitar anexe um exemplo da tua planilha Zipado, demonstrando como vc quer o resultado.

Logo abaixo abaixo da janela de resposta tem o botão "Adicionar um Aenxo".

Abraço.

 
Postado : 05/03/2012 9:20 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Vê se ajuda Luiz.

Qualquer coisa da o grito.
Abraço

 
Postado : 05/03/2012 10:40 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá, Patropi.

Leiaute do banco de dados: A - autor; B - titulo; C - editora; D - ano; E - estante; F - preço; G - descrição; H - peso
A coluna "G" tem aquela trosoba toda!

Preciso extrair a parte negritada e vermelha, conforme indicado nos dez primeiros códigos do anexo.
Objetivo: ordenar o banco de dados, com base no código.
Só isso. Aquele negócio de maiúscula etc. sublimei! É seção "frescura".

Agradeço a sua boa vontade.

Coluna G.xls
 
Postado : 05/03/2012 10:46 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Luiz

Baixe a planilha e veja se é isto que vc quer:

Coluna G 05_03_12.rar

Dê retorno.

Se a resposta foi útil clique na mãozinha que fica no par superior lado direito, ao lado da ferramenta citar.

Um abraço.

 
Postado : 05/03/2012 11:13 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Vê se ajuda Luiz.

Qualquer coisa da o grito.
Abraço

Bernardo, estou "brincando" nas adaptações.
Não respeitei o primeiro manadamento de Prudêncio (que você conhece): "sempre envie uma planilha de exemplo" e deu nisso. as colunas são diferentes e coisa e tal.

Vou dar uma olhada na resposta do Patropi mas, juro, não vou abandonar a sua solução, antes de fazer as adaptações (já fiz duas colunas!).

 
Postado : 05/03/2012 11:23 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Resolvido.
Vou juntar a parte do Patropi (dos números) com a parte da separação das barras do Bernardo e, assim, poderei resolver a questão das maiúsculas!
Grato.
Luiz Cesar

 
Postado : 05/03/2012 11:26 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Veja se te ajuda..

Sub Primeira_Maiúscula)
    Dim oCell As Range
    Application.ScreenUpdating = False
    For Each oCell In ActiveSheet.UsedRange
        If oCell.HasFormula = False Then
            oCell.Value = StrConv(oCell.Value, vbProperCase)
        End If
    Next oCell
    Application.ScreenUpdating = True
End Sub
 
Postado : 05/03/2012 2:57 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Grande Luiz Cesar.....é sempre bom te ver por aki!!!!

 
Postado : 05/03/2012 7:46 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico