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.

Vê se ajuda Luiz.

Qualquer coisa da o grito.
Abraço

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.

Luiz

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

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.

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!).

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

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

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