Este fórum está sendo desativado

[WilliamPereira88]

Boa tarde,

Tenho a seguinte célula com textos e números como exemplo

P-08 - SISTEMA DE COMBATE A INCÊNDIO - RTI - CALDEIRARIA - RECOMENDAÇÕES DE INSPEÇÃO (NOTAS ZR) 124999 - SUBSTITUIR TRECHOS DA LINHA 3´´-CI-B10S-123 DO HEADER DE DISTRIBUIÇÃO DE LGA LOCALIZADOS NO CONVÉS PRINCIPAL ABAIXO.

gostaria de separar em outra célula apenas a numeração que coloquei em negrito que sempre são de 6 dígitos. As funções esquerda e direita não funcionam neste caso pois a descrição sempre varia. Obrigado pela ajuda!

[Deciog]

WilliamPereira88, Boa Tarde

O ideal é você postar um modelo, mas, confere se é desta forma que desejas

Se minha resposta foi útil, clique em obrigado é uma forma de agradecimento da ajuda

Decio

[Jimmy]

Ólá Willian,

Veja se a planilha anexa te atende. Foi desenvolvida uma function, e se for usar em outra planilha, tem que passar a Function pra lá também, para que funcione também na outra. Se não souber como, avise.

O critério para achar o número é que tenha exatamente 6 dígitos.
Se tiver mais ou menos que 6, é desprezado.
Se não existir nenhum, retorna #N/D
Se existir mais de 1 número de 6 dígitos, retorna o primeiro a encontrar.

Jimmy San Juan

[WilliamPereira88]

Perfeito Jimmy! Você consegue me passar a function para todos os valores com digito 6 e coloca -los na mesma célula? exemplo:


SISTEMA DE COMPRESSÃO DE GÁS - INTEGRIDADE - RECOMENDAÇÕES DE INSPEÇÃO (NOTAS ZR) - CALDEIRARIA - 123500, 123599, 123511 - TRATAMENTO MECÂNICO E PINTURA DOS SUPORTES AÉREO E DE PISO E GRAMPOS DE FIXAÇÃO DAS LINHAS NA BACIA DE CONTENÇÃO DO V-UC-123101A-03 RECÉM SUBGSTITUIDOS. COM USO DE AGULHEIRO, LIXADEIRA PNEUMATICA E FERRAMENTAS MANUAIS EM ACESSO POR ANDAIME, MÓDULO P01

resultado na mesma célular: 123500 123599 123511

[Jimmy]

Willian,

Segue a planilha anexa com a alteração.

Fiz testes superficiais. Peço que faça de forma mais rigorosa.

Você sabe como passar a sub para outra planilha, se necessário?

Jimmy San Juan

[WilliamPereira88]

Não sei não Jimmy, estou começando a estudar isto agora...

[Jimmy]

Bom dia William,

Mas funcionou a última alteração?

Para passar a function de uma planilha para a outra é muito fácil:

- Abra a planilha que receberá a function e tecle ALT+F11. Vai aparecer a janela do editor do VBA.

- Clique no menu INSERIR e em MÓDULO. Vai O Cursor vai passar a piscar na parte de cima da janela da direita.

- Copie o código abaixo e cole nessa janela.

- Feche o edito do VBA, e tá pronto.

Dê feedback sobre o resultado final.

Willian, nas mensagens acima que você julgar que ajudaram de alguma forma com a solução do problema, peço que dê um Like, clicando no botão com o "positivo", acima e a direita. Obrigado.

Código: Selecionar todos

Function Achar(Onde)
    For Pos = 1 To Len(Onde) + 1
        Char = Mid(Onde & "X", Pos, 1)
        If IsNumeric(Char) Then
            Cont = Cont + 1: Cada = Cada & Char
        Else
            If Cont = 6 Then Achar = Achar & Cada & " "
            Cont = 0:        Cada = ""
        End If
    Next
    If Achar = "" Then Achar = CVErr(2042)
End Function

Jimmy San Juan