Views

Histats

Vitrine

VBA Intermediário - Função Converte um Range numa String - Range to String - Function ConRngInStr

VBA Intermediário - Função Converte um Range numa String - Range to String - Function ConRngInStr


O que segue abaixo é uma função que permite converter o intervalo contido num Range numa String para apresentação dentro de uma célula.


Function ConRngInStr 
(tgtRange As Range, Separator As String) As String
    '      Author: André Luiz Bernardes - A&A - In Any Place - andreluizbernardess@gmail.com
    '        Date: 20/07/2016 - 09:15
    ' Application: Field Force Dashboard Analysis®
    '     Purpose: Função Converte um Range numa String - Range to String
    
If tgtRange Is Nothing Then Exit Function
Dim nCells As Range

For Each nCells In tgtRange.Cells
    Let ConRngInStr = ConRngInStr & Separator & nCells
Next nCells
Let ConRngInStr = Right(ConRngInStr, Len(ConRngInStr) - 1)
End Function


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







brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®Author´s Profile  Google+   Author´s Professional Profile   Pinterest   Author´s Tweets

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...