VBA Intermediário - Função que converte um Range numa String separada por [Enter] - Convert my Range Array to Single Cell String

VBA Intermediário - Função que converte um Range numa String separada por [Enter] - VBA - Convert my Range Array to Single Cell String

​

Vez ou outra precisaremos converter os conteúdos em um Range, dentro de uma célula. A função abaixo além de fazer isso, propicia que o intervalo entre os conteúdos do Range sejam separados por um [Enter], permitindo a apresentação dentro da célula sem perder o aspecto de coluna. Claro que essa característica poderá ser mudada para: Vírgula, barra, hífen, etc...

Function ConvertRngInStr (MyRange As Range)

    '      Author: André Luiz Bernardes - A&A - In Any Place - andreluizbernardess@gmail.com

    '        Date: 20/07/2016 - 09:05

    ' Application: Field Force Dashboard Analysis®

    '     Purpose: Função que converte um Range numa String separada por [Enter] - Convert my Range Array to Single Cell String.

    

    Dim nFrase As String

Dim r As Range

     

    For Each r In MyRange

        Let nFrase = nFrase & r.Value & vbCrLf

    Next r

    

    Let ConvertRngInStr = nFrase

End Function

Se gostou, compartilhe este post com outros! Deixe seus comentários e sugestões.

brazilsalesforceeffectiveness@gmail.com