none
Retira o texto das vírgulas com critério RRS feed

  • Pergunta

  • Boa noite!!

    Gostaria de uma ajuda para uma Função Definida pelo Usuário.

    Considere que a célula "B2" tenho os senguites textos:
    B2: 6545ULK65481RFD123GFH123422 .

    Note que cada texto(independente de quantos digitos),cada texto está separado por vírgula.

    Na função, depois de pronta vou digitar 1 para qual quer texto antes da 1º vírgula, 2 para para qual quer texto antes da 2º vírgula; 3 para qual quer texto antes da 3º vírgula....
    ...e assim sucessivamente.


    Alguém poderia me ajudar?

    Obrigado!!!!!!!


    zinho
    quarta-feira, 13 de abril de 2011 23:38

Respostas

  • Boa noite!!

    Pessoal, consegui resolver....

    ...Segue o código.....

     

    Function Parte_N(Texto As String, n As Integer) As String
        Dim Vetor
       
        Application.Volatile
        Vetor = Split(Texto, ";")
        Parte_N = Vetor(n - 1)
    End Function

     

    Obrigado!!!!!!!


    zinho
    • Marcado como Resposta zinhovba sábado, 16 de abril de 2011 22:00
    sábado, 16 de abril de 2011 21:59